Thomas Wiki - Benutzerbeiträge [de]

SetField

2022-02-13T17:51:29Z

Root: /* Lotus Notes @Command */

== Lotus Notes @Command ==

Formel für ein SmartIcon um das Thema (Subject) eines Memos zu ändern.

OldSubject:= @GetField("Subject") ;
@SetField("Subject"; "--Löschen--" + OldSubject)

[[Kategorie:Lotus Notes]]
[[Kategorie:Formula Language]]

Kategorie:Formula Language

2022-02-13T17:50:28Z

Root: Die Seite wurde neu angelegt: „Formula language provides syntax and @functions for evaluating constants and variables, and for performing simple logic. Variables can be fields in Notes® documents or temporary variables (also called temporary fields) used only for the immediate formula.“

Formula language provides syntax and @functions for evaluating constants and variables, and for performing simple logic. Variables can be fields in Notes® documents or temporary variables (also called temporary fields) used only for the immediate formula.

Dovecot

2016-01-15T19:51:16Z

Root: Die Seite wurde neu angelegt: „ == Selbstzertifizierten Zertifikates == Folgender Befehl erstellt ein selbstzertifizierten Zerifikat für dovecot openssl req -new -x509 -days 1000 -nodes…“

== Selbstzertifizierten Zertifikates ==

Folgender Befehl erstellt ein selbstzertifizierten Zerifikat für dovecot

openssl req -new -x509 -days 1000 -nodes -out "/etc/ssl/certs/arend-rhb.pem" -keyout "/etc/ssl/private/arend-rhb.pem"

SuSEfirewall

2015-07-23T20:17:23Z

Root: Die Seite wurde neu angelegt: „==Anpassung== Die Anpassungen der SuSEfirewall beziehen sich auf meine Konfiguration des Hausnetzwerkes. ===Routing=== (Notwendige?) Änderungen in der Date…“

==Anpassung==

Die Anpassungen der SuSEfirewall beziehen sich auf meine Konfiguration des Hausnetzwerkes.

===Routing===

(Notwendige?) Änderungen in der Datei /etc/sysconfig/SysSEfirewall2 um ein Routing des internen Netzwerkes und des VPN zu ermöglichen.

FW_TRUSTED_NETS="172.16.0.0/16 192.168.0.0/16"

FW_FORWARD="172.16.0.0/16,192.168.0.0/16 192.168.0.0/16,172.16.0.0/16"

===Transparenter Proxy===

Um SQUID als transparenten Proxy einzusetzen muss folgender Redirect definiert werden.

FW_REDIRECT="192.168.0.0/16,0/0,tcp,80,3128"

Hauptseite

2012-01-11T20:32:50Z

Root:

'''Diese Seite sammelt nützliche Scripte aus den unendlichen Weiten des Universums Script Sprachen'''

Wir schreiben das Jahr 2011 nach Christi und es beginnt unter anderem mit:

* Window Welt
** Lotus Notes
** MS Excel
** MS Word
** Windos Scipting Host

* Linux Welt
** bash
** awk
** sed
** Gambas
** ...

Kategorie:MS Office

2012-01-11T20:24:10Z

Root: Die Seite wurde neu angelegt: „Microsoft Office™“

Microsoft Office™

Unterschrift

2012-01-11T20:23:33Z

Root: /* Unterschrift in selektierten Feld */

Auch wenn es in MS Office oder LibreOffice einen Überarbeitungsmodus gibt, ist es manchmal nötig, eine Unterschrift mit dem aktuellen Datum in ein Dokument einzufügen.

Hier werden für die verschiedenen Produkte Lösungen des Problems angeboten.

== Lotus Notes Formula Language ==

Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein Dokument ein, das zum Editieren geöffnetes ist. (Formel in einem SmartIcon in einer Symbolleiste definieren.)

tmpDate:=@Now;
sDate:=@Right("00"+@Text(@Day(tmpDate));2) + "."+ @Right("00"+@Text(@Month(tmpDate));2) + "." + @Text(@Year (tmpDate)) ;
@Command([TextSetFontFace]; "Comic Sans MS");
@Command([TextSetFontColor];[Blue]);
@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")

== Microsoft Word ==

Einfügen eines blauen Textbaustein "dd.mm.yy - MeinName" in ein MS Word Dokument.

Tipp: Als Makro auf einen Icon legen.

Sub Unterschrift()

MyUserName = Application.UserName

With Selection
.TypeParagraph
OldColor = .Font.Color
.Font.Color = wdColorBlue
.InsertDateTime DateTimeFormat:="dd.MM.yy", InsertAsField:= _
False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
.TypeText Text:=" - " & MyUserName
.Font.Color = OldColor
End With

End Sub

== MS Excel ==

=== Unterschrift als Kommentar zum selektierten Bereich ===

Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

Sub UnterschriftComment()

With Selection.Cells(1, 1)

If .Comment Is Nothing Then

.AddComment
.Comment.Visible = True
.Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
Else
.Comment.Text Text:= .Comment.Text & Chr(10) & "---" & Chr(10) & _
Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
End If

End With

End Sub

=== Unterschrift in selektierten Feld ===

Dieses Makro trägt in einer Zelle Datum und Nutzer ("13.01.12 - Mein Name") ein.

Sub Unterschrift()

With Selection
.NumberFormat = "@"
.Value = Format(Now(), "dd.mm.yy") & " - " & Application.UserName
End With

End Sub

[[Kategorie:Lotus Notes]]
[[Kategorie:MS Office]]

Unterschrift

2012-01-11T20:23:02Z

Root: /* MS Excel */

Unterschrift

2012-01-11T20:16:25Z

Root:

Auch wenn es in MS Office oder LibreOffice einen Überarbeitungsmodus gibt, ist es manchmal nötig, eine Unterschrift mit dem aktuellen Datum in ein Dokument einzufügen.

Hier werden für die verschiedenen Produkte Lösungen des Problems angeboten.

== Lotus Notes Formula Language ==

Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein Dokument ein, das zum Editieren geöffnetes ist. (Formel in einem SmartIcon in einer Symbolleiste definieren.)

tmpDate:=@Now;
sDate:=@Right("00"+@Text(@Day(tmpDate));2) + "."+ @Right("00"+@Text(@Month(tmpDate));2) + "." + @Text(@Year (tmpDate)) ;
@Command([TextSetFontFace]; "Comic Sans MS");
@Command([TextSetFontColor];[Blue]);
@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")

== Microsoft Word ==

Einfügen eines blauen Textbaustein "dd.mm.yy - MeinName" in ein MS Word Dokument.

Tipp: Als Makro auf einen Icon legen.

Sub Unterschrift()

MyUserName = Application.UserName

With Selection
.TypeParagraph
OldColor = .Font.Color
.Font.Color = wdColorBlue
.InsertDateTime DateTimeFormat:="dd.MM.yy", InsertAsField:= _
False, DateLanguage:=wdGerman, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False
.TypeText Text:=" - " & MyUserName
.Font.Color = OldColor
End With

End Sub

== MS Excel ==

Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

=== Unterschrift als Kommentar zum selektierten Bereich ===

Sub UnterschriftComment()

With Selection.Cells(1, 1)

If .Comment Is Nothing Then

.AddComment
.Comment.Visible = True
.Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
Else
.Comment.Text Text:= .Comment.Text & Chr(10) & "---" & Chr(10) & _
Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
End If

End With

End Sub

=== Unterschrift in selektierten Feld ===

Sub Unterschrift()

With Selection
.NumberFormat = "@"
.Value = Format(Now(), "dd.mm.yy") & " - " & Application.UserName
End With

End Sub

[[Kategorie:Lotus Notes]]
[[Kategorie:MS Word]]

Kategorie:Lotus Notes

2012-01-11T20:06:00Z

Root:

Lotus Notes™ ist ein Datenbank Client der Firma Lotus / IBM, der verschiedene (Makro / Script) Sprachen unterstützt.

# Formula Language<br />ist eine Scriptsprache, die von Lotus Notes genutzt wird. Geeignet für kleiner Aufgaben.
# LotusScript<br />ist ein Dialekt der Programmiersprache [[BASIC]] der von Lotus Notes™ und anderen IBM Lotus Software Produkte genutzt wird.
# Java für Notes und Domino<br />wird hier nicht betrachtet.

Kategorie:Lotus Notes

2012-01-11T20:02:00Z

Root:

Datenbank Client der Firma Lotus / IBM der verschiedene (Makro / Script) Sprachen unterstützt.

== Formula Language ==

Die Formula language ist eine Scriptsprache, die von Lotus Notes genutzt wird.

== LotusScript ==

LotusScript ist ein Dialekt der Programmiersprache [[BASIC]] der von Lotus Notes™ und anderen IBM Lotus Software Produkte genutzt wird.

== Java für Notes und Domino ==

Wird hier nicht betrachtet.

Kategorie:Lotus Notes

2012-01-11T19:49:32Z

Root: Die Seite wurde neu angelegt: „Datenbank Client der Firma Lotus / IBM der verschiedene Formula und Script Sprachen unterstützt. # Formula Language # Lotus Script # Java Script“

Datenbank Client der Firma Lotus / IBM der verschiedene Formula und Script Sprachen unterstützt.

# Formula Language
# Lotus Script
# Java Script

Initials

2012-01-11T19:46:31Z

Root: /* Besonderheiten einzelner Dialekte */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Gambas weit den Funktionswert mit dem RETURN Statement zu, Visual Basic durch Zuweisung an den Funktionsnamen.

{| class="wikitable" style="width: 80%"
|-
! Konstrukt !! Gambas !! Visual Basic !! Bemerkung
|-
| Rückgabe des Ergebnisses
| RETURN result
| Initials = result
| Beide Dialekte sind in diesem Punkt unverträglich. Kein work-a-round bekannt.
|}

[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:LibreOffice]]

Initials

2012-01-11T19:45:43Z

Root: /* Besonderheiten einzelner Dialekte */

Initials

2012-01-11T19:38:43Z

Root: /* Besonderheiten einzelner Dialekte */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Gambas weit den Funktionswert mit dem RETURN Statement zu, Visual Basic durch Zuweisung an den Funktionsnamen.

{| class="wikitable"
|-
! Gambas !! Visual Basic
|-
|style="width : 500px"| RETURN result
|style="width : 500px"| Initials = result
|}

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:21:35Z

Root: /* Quelltext */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Keine bekannt.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:21:14Z

Root: /* Besonderheiten einzelner Dialekte */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Keine bekannt.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:07:24Z

Root: /* Visual Basic / Libre Office Basic */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Keine bekannt.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:07:03Z

Root: /* Visual Basic / Libre Office Basic */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Keine bekannt.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:06:36Z

Root: /* Gambas */

== Definition ==

'''FUNCTION Initials( Value AS String ) AS String'''

Funktion ''Initials'' bestimmen die Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username.

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

== Quelltext ==

Eine Initiale ist dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

=== Gambas ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

=== Visual Basic / Libre Office Basic ===

FUNCTION Initials(Value AS String) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF Value <> "" THEN

nc = TRUE

FOR i = 1 TO Len(Value)

IF Mid(Value, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(Value, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

Initials = result

END FUNCTION

== Beispiel ==

=== Aufruf ===

Print Initials( "Dies ist kein Satz")

=== Ausgabe ===

DikS

== Dialekte ==

== Besonderheiten einzelner Dialekte ==

Keine bekannt.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

Initials

2012-01-11T19:03:48Z

Root: /* Gambas */

Initials

2012-01-11T18:58:23Z

Root: /* Gambas */

UserInitials

2012-01-11T18:52:28Z

Root: Weiterleitung auf Initials erstellt

#REDIRECT [[Initials]]

UserInitials

2012-01-11T18:52:06Z

Root:

#REDIRECT [Initials]]

Die Initialien eines Nutzers, z.B. aus UserName, können mit der Funktion Initials ermittelt werden.

Initials

2012-01-11T18:50:33Z

Root: Die Seite wurde neu angelegt: „ == Gambas == Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass…“

== Gambas ==

Funktion zum Bestimmen der Anfangsbuchstaben (Initialien) der Wörter eines Textes, z.B. Username. Ein initialie ist wird dadurch bestimmt, dass sie am Anfang der Zeichenkette oder nach einem Leerzeichen steht. Sollen Sonderzeichen als Initialien ausgeschlossen werden, sind zusätzliche Prüfungen erforderlich.

FUNCTION Initials( Value AS String ) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF uname THEN

nc = TRUE

FOR i = 1 TO Len(uname)

IF Mid(uname, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(uname, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

[[Kategorie:Basic]]
[[Kategorie:Gambas]]

StrNS

2012-01-11T18:49:10Z

Root: /* Gambas */

== Definition ==

'''Function StrNS( Z AS Variant) AS String'''

In einigen Dialekten (MS Visual BASIC, LibreOffice BASIC) liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

== Quelltext ==

Function StrNS( Z AS Variant) AS String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

=== Aufrufe ===

Print "##" & StrNS(-10) & "##"

=== Ausgabe ===

##-10##

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Besonderheiten einzelner Dialekte ==

=== Gambas ===

In [[Gambas]] gibt die Funktion '''Str''' die Zeichenkette ohne führendes Leerzeichen zurück. Damit ist die Funktion StrNS in Gambas nicht erforderlich.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-11T18:48:34Z

Root: /* Gambas */

== Definition ==

'''Function StrNS( Z AS Variant) AS String'''

In einigen Dialekten (MS Visual BASIC, LibreOffice BASIC) liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

== Quelltext ==

Function StrNS( Z AS Variant) AS String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

=== Aufrufe ===

Print "##" & StrNS(-10) & "##"

=== Ausgabe ===

##-10##

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Besonderheiten einzelner Dialekte ==

=== Gambas ===

In [[Gambas]] gibt die Funktion Str die Zeichenkette ohne führendes Leerzeichen zurück. Damit ist die Funktion StrNS in Gambas nicht erforderlich.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-11T18:46:25Z

Root:

== Definition ==

'''Function StrNS( Z AS Variant) AS String'''

In einigen Dialekten (MS Visual BASIC, LibreOffice BASIC) liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

== Quelltext ==

Function StrNS( Z AS Variant) AS String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

=== Aufrufe ===

Print "##" & StrNS(-10) & "##"

=== Ausgabe ===

##-10##

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Besonderheiten einzelner Dialekte ==

=== Gambas ===

In [[Gambas]] gibt die Funktion Str die Zeichenkette ohne führendes Leerzeichen zurück.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-11T18:46:01Z

Root:

== Definition ==

Function StrNS( Z AS Variant) AS String

In einigen Dialekten (MS Visual BASIC, LibreOffice BASIC) liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

== Quelltext ==

Function StrNS( Z AS Variant) AS String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

=== Aufrufe ===

Print "##" & StrNS(-10) & "##"

=== Ausgabe ===

##-10##

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Besonderheiten einzelner Dialekte ==

=== Gambas ===

In [[Gambas]] gibt die Funktion Str die Zeichenkette ohne führendes Leerzeichen zurück.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

UserInitials

2012-01-11T18:42:13Z

Root:

UserInitials

2012-01-11T18:41:09Z

Root: /* Gambas */

UserInitials

2012-01-11T18:40:26Z

Root: /* Gambas */

Initialien

2012-01-11T18:36:22Z

Root: Weiterleitung auf UserInitials erstellt

#REDIRECT [[UserInitials]]

Initialien

2012-01-11T18:35:11Z

Root:

[Redirect UserInitials]

Initialien

2012-01-11T18:34:44Z

Root: Die Seite wurde neu angelegt: „Redirect UserInitials“

[[Redirect UserInitials]]

UserInitials

2012-01-11T16:49:05Z

Root: Die Seite wurde neu angelegt: „ == Gambas == Bestimmen der Anfangsbuchstaben der Wörter eines Textes, z.B. Username. FUNCTION Initials( Value AS String ) AS String DIM result AS Str…“

== Gambas ==

Bestimmen der Anfangsbuchstaben der Wörter eines Textes, z.B. Username.

FUNCTION Initials( Value AS String ) AS String

DIM result AS String
DIM nc AS Boolean
DIM i AS Integer

result = ""
IF uname THEN

nc = TRUE

FOR i = 1 TO Len(uname)

IF Mid(uname, i, 1) = " " THEN
nc = TRUE
ELSE
IF nc THEN
result = result & Mid(uname, i, 1)
nc = FALSE
END IF
END IF

NEXT

END IF

RETURN result

END FUNCTION

Str

2012-01-09T23:26:57Z

Root: /* Besonderheiten */

Die Funktion Str wandelt in Basic eine Zahl in eine Zeichenkette um.

== Definition ==

Function Str ( Value AS Variant ) AS String

== Beispiel ==

Print Str(-10)
Print "##" & Str(-69) & "##"

== Ergebnisse ==

=== MS und LibreOffice ===

-10
## -69##

=== Gambas ===

-10
##-69##

== Besonderheiten ==

[[Microsoft VBA]] und [[LibrOffice]] geben - bei positiven und negativen Zahlen - ein führendes Leerzeichen mit aus.
[[Gambas]] gibt kein führendes Leerzeichen in der Zeichenkette zurück.

== Siehe auch ==

* [[StrNS]]

[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

Str

2012-01-09T23:24:55Z

Root:

Die Funktion Str wandelt in Basic eine Zahl in eine Zeichenkette um.

== Definition ==

Function Str ( Value AS Variant ) AS String

== Beispiel ==

Print Str(-10)
Print "##" & Str(-69) & "##"

== Ergebnisse ==

=== MS und LibreOffice ===

-10
## -69##

=== Gambas ===

-10
##-69##

== Besonderheiten ==

[[Microsoft VBA]] und [[LibrOffice]] geben - bei positiven und negativen Zahlen - ein führendes Leerzeichen mit aus.
[[Gambas]] gibt kein führendes Leerzeichen im Strin zurück.

== Siehe auch ==

* [[StrNS]]

[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

Kategorie:Gambas

2012-01-09T23:23:19Z

Root: Die Seite wurde neu angelegt: „Diese Kategorie enthält Funktionen und Subroutinen, die im freien Basic Interpreter Gambas (Gambas Almost Means BASIC !) ohne sinnvoll sind.“

Diese Kategorie enthält Funktionen und Subroutinen, die im freien Basic Interpreter Gambas (Gambas Almost Means BASIC !) ohne sinnvoll sind.

Str

2012-01-09T23:20:35Z

Root:

Die Funktion Str wandelt in Basic eine Zahl in eine Zeichenkette um.

== Definition ==

Function Str ( Value AS Variant ) AS String

== Beispiel ==

Print Str(-10)
Print "##" & Str(-69) & "##"

=== Ergebnisse ===

==== MS und LibreOffice ====

-10
## -69##

==== Gambas ====

-10
##-69##

== Besonderheiten ==

[[Microsoft VBA]] und [[LibrOffice]] geben - bei positiven und negativen Zahlen - ein führendes Leerzeichen mit aus.
[[Gambas]] gibt kein führendes Leerzeichen im Strin zurück.

== Siehe auch ==

* [[StrNS]]

[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

Str

2012-01-09T23:12:12Z

Root: Die Seite wurde neu angelegt: „Die Funktion Str wandelt in Basic eine Zahl in eine Zeichenkette um. == Beispiel == Print Str(-10) Print "##" & Str(-69) & "##" === Ergebnis (MS und Libre…“

Die Funktion Str wandelt in Basic eine Zahl in eine Zeichenkette um.

== Beispiel ==

Print Str(-10)
Print "##" & Str(-69) & "##"

=== Ergebnis (MS und LibreOffice) ===

-10
## -69##

=== Ergebnis (Gambas) ===

-10
##-69##

== Besonderheiten ==

[[Microsoft VBA]] und [[LibrOffice]] geben - bei positiven und negativen Zahlen - ein führendes Leerzeichen mit aus.
[[Gambas]] gibt kein führendes Leerzeichen im Strin zurück.

[[Kategorie:Basic]]
[[Kategorie:Gambas]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-09T23:03:20Z

Root: /* Gambas */

== StrNS ==

In einigen Dialekten liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

Function StrNS( Z as Integer) as String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

Print "##" + StrNS(-10) + "##"

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Abwandlungen ==

=== Gambas ===

In [[Gambas]] gibt die Funktion Str die Zeichenkette ohne führendes Leerzeichen zurück.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-09T23:02:22Z

Root: /* Gambas */

== StrNS ==

In einigen Dialekten liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

Function StrNS( Z as Integer) as String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

Print "##" + StrNS(-10) + "##"

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Abwandlungen ==

=== Gambas ===

In [[Gambas]] gibt die Funktion Str deie Zeichenkette ohne führendes Leerzeichen aus.

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-09T23:01:38Z

Root:

== StrNS ==

In einigen Dialekten liefert die Funktion [[Str]], die eine Zahl in eine Zeichenkette konvertiert, ein führendes Leerzeichen. Die Funktion StrNS (= String no space) gibt die Zeichenkette ohne das führende Leerzeichen aus.

Function StrNS( Z as Integer) as String

s = Str(Z)
if Left(s,1) = " " then
StrNS = Right(s, Len(s) - 1)
else
StrNS=s
End If

End Function

== Beispiel ==

Print "##" + StrNS(-10) + "##"

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

== Abwandlungen ==

=== Gambas ===

In [Gambas] gibt die Funktion Str

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-09T22:32:47Z

Root:

== StrNS ==

Die Funktion StrNS (= String no space) entfernt das führende Leerzeichen, das bei der Umwandlung einer Zahl in eine Zeichenkette mit [[Str]] entsteht.

Function StrNS(Z)

s = Str(Z)
StrNS = Right(s, Len(s) - 1)

End Function

== Beispiel ==

Print "##" + StrNS(-10) + "##"

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

Kategorie:LibreOffice

2012-01-09T22:31:46Z

Root: Die Seite wurde neu angelegt: „Diese Kategorie enthält Funktionen und Subroutinen, die in LibreOffice Basic in der Regel ohne Anpassungen funktionieren.“

Diese Kategorie enthält Funktionen und Subroutinen, die in LibreOffice Basic in der Regel ohne Anpassungen funktionieren.

Kategorie:Excel

2012-01-09T22:28:53Z

Root: Die Seite wurde neu angelegt: „Diese Kategorie enthält Funktionen und Subroutinen, die in MS Excel in der Regel ohne Anpassungen funktionieren.“

Diese Kategorie enthält Funktionen und Subroutinen, die in MS Excel in der Regel ohne Anpassungen funktionieren.

Kategorie:Basic

2012-01-09T22:27:14Z

Root: Die Seite wurde neu angelegt: „Allgemeine Basic Funktionen und Subroutinen, die in jedem Dialekt ohne Anpassungen funktionieren sollten.“

Allgemeine Basic Funktionen und Subroutinen, die in jedem Dialekt ohne Anpassungen funktionieren sollten.

StrNS

2012-01-09T22:25:54Z

Root:

== StrNS ==

Die Funktion StrNS (= String no space) entfernt das führende Leerzeichen, das bei der Umwandlung einer Zahl in eine Zeichenkette mit [[Str]] entsteht.

Function StrNS(Z)

s = Str(Z)
StrNS = Right(s, Len(s) - 1)

End Function

----

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic

[[Kategorie:Basic]]
[[Kategorie:Excel]]
[[Kategorie:LibreOffice]]

StrNS

2012-01-09T22:09:29Z

Root:

== StrNS ==

Die Funktion StrNS (= String no space) entfernt das führende Leerzeichen, das bei der Umwandlung einer Zahl in eine Zeichenkette mit [[Str]] entsteht.

Function StrNS(Z)

s = Str(Z)
StrNS = Right(s, Len(s) - 1)

End Function

----

== Dialekte ==

Die Funktion ist in folgenden Basic Dialekten verwendbar:

* Excel
* LibreOffice Basic