Text

Diese Datei dokumentiert alle Makrofunktionen der Kategorie Text.

Inhaltsverzeichnis

• Ascii(Ascii,[Index])
• Chr(Ascii)
• FindOneOf(Source,Pattern)
• FindTags(Table,Text,[Text],[Text])
• fmt(Text,[Text],[Text],[Text],[Text],[Text],[Text],[Text],[Text],[Text])
• Format(String,Count,[FillChar],[Align])
• isalnum(Source)
• isalpha(Source)
• isdate(Source)
• isdigit(Source)
• Left(String,Count)
• MakeLower(String)
• MakeUpper(String)
• mask(Source)
• Mid(String,Start,[Count])
• Replace(String,Source,Destination,[FirstOnly],[NoCase])
• Right(String,Anzahl)
• sprintf(Format,[Par1],[Par2],[Par3],[Par4],[Par5])
• StartsWith(String,Pattern,[CaseSensitive])
• strcat(String1,String2)
• strcmp(String1,String2)
• strconvert(Source,Format,[Format])
• stricmp(String1,String2)
• strlen(String)
• strncmp(String1,String2,Length)
• strnicmp(String1,String2,Length)
• strstr(String,Pattern)
• strtok(Source,Delimiter,Index,[NullFlag],[TradeAsChars])
• Trim(Text,[Text])
• TrimEmptyLines(Text)
• TrimLeft(Text,[Text])
• TrimRight(Text,[Text])
• unmask(Source)
• ValidateXmlValue(Source)

Ascii(Ascii,[Index])

Ermittelt den ASCII-Code eines Zeichens an einer Position innerhalb des Übergabetextes

Parameter

Rückgabewert

Zahl

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Ascii("ABCDEF", 0);
    print("Ergebnis = "+erg);
    // ergibt 65
    erg1 = Ascii("ABCDEF", 3);
    print("Ergebnis = "+erg1);
    // ergibt 68
}

Chr(Ascii)

Ermittelt ein Zeichen aus dem Zeichensatz mit dem angegebenen ASCII-Code

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = chr(65);
    print("Ergebnis = "+erg);
}

FindOneOf(Source,Pattern)

Sucht verschiedene Zeichen im Quelltext und gibt die Startposition des ersten gefundenen Zeichens zurück

Parameter

Rückgabewert

Position

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = FindOneOf("Warenwirtschaft", "r");
    print("Ergebnis = "+erg);
}

FindTags(Table,Text,[Text],[Text])

Ermittlelt Textstellen durch Anfang und Endekennung

Parameter

Rückgabewert

Anzahl gefundener Felder

Verfügbarkeit

Standard

fmt(Text,[Text],[Text],[Text],[Text],[Text],[Text],[Text],[Text],[Text])

Formatierung eines Textes z.B. Hallo ersten Parameter {0} und zweiten {1} gefunden!

Parameter

Rückgabewert

Formatierter Text

Verfügbarkeit

Standard

Format(String,Count,[FillChar],[Align])

Formatiert einen Text

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Format("Hugo", 20, "x", 0);
    print("Ergebnis = "+erg);
    erg = Format("Hugo", 20, "-", 1);
    print("Ergebnis = "+erg);
}

isalnum(Source)

Ermittelt ob es sich bei dem Zeichen um einen alphanumerischen Wert handelt

Parameter

Rückgabewert

1:Wahr, 0:Unwahr

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = isalnum("A");
    print("Ergebnis = "+erg);
    erg = isalnum("1");
    print("Ergebnis = "+erg);
    erg = isalnum("1A");
    print("Ergebnis = "+erg);
    erg = isalnum("1#A");
    print("Ergebnis = "+erg);
    erg = isalnum("#");
    print("Er gebnis = "+erg);
}

isalpha(Source)

Ermittelt ob es sich bei dem Zeichen um einen alphanumerischen Wert handelt

Parameter

Rückgabewert

1:Wahr, 0:Unwahr

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = isalpha("A");
    print("Ergebnis = "+erg);
    erg = isalpha("AGE");
    print("Ergebnis = "+erg);
    erg = isalpha("1");
    print("Ergebnis = "+erg);
    erg = isalpha("1A");
    print("Ergebnis = "+erg);
    erg = isalpha("1#A");
    print("Ergebnis = "+erg);
}

isdate(Source)

Ermittelt ob es sich bei dem Zeichen um ein gültiges Datum handelt

Parameter

Rückgabewert

1:Wahr, 0:Unwahr

Verfügbarkeit

Standard

isdigit(Source)

Ermittelt ob es sich bei dem Zeichen um einen numerischen Wert handelt

Parameter

Rückgabewert

1:Wahr, 0:Unwahr

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = isdigit("A");
    print("Ergebnis = "+erg);
    erg = isdigit("123");
    print("Ergebnis = "+erg);
    erg = isdigit("1");
    print("Ergebnis = "+erg);
    erg = isdigit("1A");
    print("Ergebnis = "+erg);
    erg = isdigit("1#A");
    print("Ergebnis = "+erg);
}

Left(String,Count)

Ermittelt eine Teilzeichenfolge mit bestimmter Anzahl Zeichen von links

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Left("Warenwirtschaft", 5);
    print("Ergebnis = "+erg);
}

MakeLower(String)

Wandelt die Zeichenfolge in Kleinbuchstaben um

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = MakeLower("abcdEFGhij");
    print("Ergebnis = "+erg);
}

MakeUpper(String)

Wandelt die Zeichenfolge in Großbuchstaben um

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = MakeUpper("abcdEFGhij");
    print("Ergebnis = "+erg);
}

mask(Source)

Ersetzt die in der Zeichenfolge vorkommenden Bytes durch ihre Escape-Sequenzen

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Verbindung mit dem Microsoft-SQL-Server um Datenbanken auszulesen, anzulegen und ein Backup zu starten unter Verwendung der MS-SQL COM-Funktionen ..... // Grundwerte ServerName = ""; UserName = "sa"; Password = ""; Name = "HUGO"; // Verbinden mit SQL-Server SERVER = OleConnect( "SQLDMO.SQLServer" ); // Meldungen ausschalten OleEnableMsg( 0 ); // Verbindung prüfen SERVER.Connect( ServerName , UserName , Password ); ok = SERVER.VerifyConnection( "(I2)" + 2 ); if ( ok == 0 ) MessageBox( "Kann Verbindung zum SQL-Server nicht aufbauen!" ); else { // Ausgabe der Datenbanken Count = SERVER.Databases.Count; print( Count + " Datenbanken sind vorhanden." );

while(Count > 0)
{
    DB = SERVER.Databases.Item("(I2)" + Count);
    Liste = Liste + DB.Name + "\r\n";
    Count = Count - 1;
}
print(Liste);
// Anlegen einer Datenbank
DB = OleConnect("SQLDMO.Database");
DB.Name = Name;
if (strstr(Liste, DB.Name) <0)
{
    SERVER.Databases.Add("(DISPATCH)" + DB);
    print("Datenbank " + DB.Name + " angelegt.");
}
else
print("Datenbank " + DB.Name + " schon vorhanden.");
// Backup für eine Datenbank erstellen
if (SERVER.BackupDevices.Item(Name) == 0)
{
    bd = OleConnect("SQLDMO.Backupdevice");
    bd.Name = Name;
    Pfad=SERVER.Registry.SQLRootPath;
    Pfad=Pfad+unmask("\\Backup\\");
    Pfad=Pfad+Name+".dat";
    bd.PhysicalLocation = Pfad;
    bd.Type = 2;
    SERVER.BackupDevices.Add("(DISPATCH)" + bd);
    SERVER.BackupDevices.Refresh();
    print("Backup " + Name + " anlegen.");
    print("Backuppfad=" + Pfad);
}
else
print("Backup " + Name + " schon vorhanden.");
// Backup ausführen
Backup = OleConnect("SQLDMO.Backup");
if (Backup)
{
    Backup.BackupSetName = Name;
    Backup.Database = Name;
    Backup.Devices = Name;
    print("Backup " + Name + " wurde gestartet.");
    Backup.SQLBackup("(DISPATCH)" + SERVER);
    print("Backup " + Name + " beendet.");
}
// Meldungen einschalten
OleEnableMsg(1);
}
// Verbindung beenden
OleDisconnect(SERVER);
.....

Mid(String,Start,[Count])

Ermittelt eine Teilzeichenfolge mit bestimmter Anzahl Zeichen ab einer bestimmten Position

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Mid("Warenwirtschaft", 5, 4);
    print("Ergebnis = "+erg);
}

Replace(String,Source,Destination,[FirstOnly],[NoCase])

Ersetzt alle Referenzen einer Zeichenfolge einen anderen

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Replace(" Wawiware", " Wawi", "Soft", 1);
    print("Ergebnis = "+erg);
    erg = Replace("Text mit Tabulatoren im Text", unmask ("\t"), ";", 0, 0);
    print("Ergebnis = "+erg);
}

Right(String,Anzahl)

Ermittelt eine Teilzeichenfolge mit bestimmter Anzahl Zeichen von rechts

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = Right("Software", 4);
    print("Ergebnis = "+erg);
}

sprintf(Format,[Par1],[Par2],[Par3],[Par4],[Par5])

Formatierte Ausgabe mit bis zu 255 Parametern

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = sprintf(" % von % Datensätzen.", 2, 100);
    print("Ergebnis = "+erg);
}

StartsWith(String,Pattern,[CaseSensitive])

Prüft eine Zeichenfolge auf den Begin des übergebenen Patterns

Parameter

Rückgabewert

1:Wahr, 0:Unwahr

Verfügbarkeit

Standard

strcat(String1,String2)

Hängt zwei Zeichenfolgen aneinander

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg=strcat("Soft", "ware");
    print("Ergebnis ="+erg);
}

strcmp(String1,String2)

Vergleicht zwei Zeichenfolgen miteinander mit Berücksichtigung von Groß- und Kleinschreibung

Parameter

Rückgabewert

:-1:Text1<Text2, 0:Text1=Text2, 1:Text1>Text2

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = strcmp("Software", "software");
    print("Ergebnis = "+erg);
    erg = strcmp("Software", "Software");
    print("Ergebnis = "+erg);
    erg = strcmp("Software", " SOFTWARE");
    print("Ergebnis = "+erg);
}

strconvert(Source,Format,[Format])

Konvertiert eine Zeichenfolge in ein anderes Format

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

42 Makro Runtime

stricmp(String1,String2)

Vergleicht zwei Zeichenfolgen miteinander ohne Berücksichtigung von Groß- und Kleinschreibung

Parameter

Rückgabewert

:-1:Text1<Text2, 0:Text1=Text2, 1:Text1>Text2

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = stricmp("Auto", "Roller");
    print("Ergebnis = "+erg);
    erg = stricmp("Auto", "aUtO");
    print("Ergebnis = "+erg);
    erg = stricmp("Roller", "Auto");
    print("Ergebnis = "+erg);
}

strlen(String)

Ermittelt die Anzahl Zeichen in der Zeichenfolge

Parameter

Rückgabewert

Länge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = strlen("Software");
    print("Ergebnis = "+erg);
}

strncmp(String1,String2,Length)

Vergleicht zwei Zeichenfolgen miteinander mit Berücksichtigung von Groß- und Kleinschreibung bit zur festgelegten Länge

Parameter

Rückgabewert

:-1:Text1<Text2, 0:Text1=Text2, 1:Text1>Text2

Verfügbarkeit

Standard

strnicmp(String1,String2,Length)

Vergleicht zwei Zeichenfolgen miteinander ohne Berücksichtigung von Groß- und Kleinschreibung bit zur festgelegten Länge

Parameter

Rückgabewert

:-1:Text1<Text2, 0:Text1=Text2, 1:Text1>Text2

Verfügbarkeit

Standard

strstr(String,Pattern)

Ermittelt die position des Suchtextes innnerhalb einer anderen Zeichenfolge

Parameter

Rückgabewert

Position

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = strstr("Software", "wa");
    print("Ergebnis = "+erg);
    erg = strstr("Software", "So");
    print("Ergebnis = "+erg);
    erg = strstr("Software", "hugo");
    print("Ergebnis = "+erg);
}

strtok(Source,Delimiter,Index,[NullFlag],[TradeAsChars])

Sucht aus einer Zeichenfolge anhand von Sparatorzeichen eine bestimmte Spalte

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Main()
{
    erg = strtok("Software;Warenwirtschaft;Makro", ";", 0, 1);
    print("Ergebnis = "+erg);
    erg = strtok("Software;Warenwirtschaft;Makro", ";", 1, 1);
    print("Ergebnis = "+erg);
    erg = strtok("Software;Warenwirtschaft;Makro", ";", 2, 1);
    print("Ergebnis = "+erg);
}

Trim(Text,[Text])

Entfernt Zeichen am Anfang und Ende einer Zeichenfolge

Parameter

Rückgabewert

Formatierter Text

Verfügbarkeit

Standard

TrimEmptyLines(Text)

Entfernt Leerzeilen

Parameter

Rückgabewert

Formatierter Text

Verfügbarkeit

Standard

TrimLeft(Text,[Text])

Entfernt Zeichen am Anfang einer Zeichenfolge

Parameter

Rückgabewert

Formatierter Text

Verfügbarkeit

Standard

TrimRight(Text,[Text])

Entfernt Zeichen am Ende einer Zeichenfolge

Parameter

Rückgabewert

Formatierter Text

Verfügbarkeit

Standard

unmask(Source)

Ersetzt maskierte Steuerzeichen in die echten Zeichen

Parameter

Rückgabewert

Zeichenfolge

Verfügbarkeit

Standard

Beispiel

Verbindung mit dem Microsoft-SQL-Server um Datenbanken auszulesen, anzulegen und ein Backup zu starten unter Verwendung der MS-SQL COM-Funktionen ..... // Grundwerte ServerName = ""; UserName = "sa"; Password = ""; Name = "HUGO"; // Verbinden mit SQL-Server SERVER = OleConnect( "SQLDMO.SQLServer" ); // Meldungen ausschalten OleEnableMsg( 0 ); // Verbindung prüfen SERVER.Connect( ServerName , UserName , Password ); ok = SERVER.VerifyConnection( "(I2)" + 2 ); if ( ok == 0 ) MessageBox( "Kann Verbindung zum SQL-Server nicht aufbauen!" ); else { // Ausgabe der Datenbanken Count = SERVER.Databases.Count; print( Count + " Datenbanken sind vorhanden." );

while(Count > 0)
{
    DB = SERVER.Databases.Item("(I2)" + Count);
    Liste = Liste + DB.Name + "\r\n";
    Count = Count - 1;
}
print(Liste);
// Anlegen einer Datenbank
DB = OleConnect("SQLDMO.Database");
DB.Name = Name;
if (strstr(Liste, DB.Name) <0)
{
    SERVER.Databases.Add("(DISPATCH)" + DB);
    print("Datenbank " + DB.Name + " angelegt.");
}
else
print("Datenbank " + DB.Name + " schon vorhanden.");
// Backup für eine Datenbank erstellen
if (SERVER.BackupDevices.Item(Name) == 0)
{
    bd = OleConnect("SQLDMO.Backupdevice");
    bd.Name = Name;
    Pfad=SERVER.Registry.SQLRootPath;
    Pfad=Pfad+unmask("\\Backup\\");
    Pfad=Pfad+Name+".dat";
    bd.PhysicalLocation = Pfad;
    bd.Type = 2;
    SERVER.BackupDevices.Add("(DISPATCH)" + bd);
    SERVER.BackupDevices.Refresh();
    print("Backup " + Name + " anlegen.");
    print("Backuppfad=" + Pfad);
}
else
print("Backup " + Name + " schon vorhanden.");
// Backup ausführen
Backup = OleConnect("SQLDMO.Backup");
if (Backup)
{
    Backup.BackupSetName = Name;
    Backup.Database = Name;
    Backup.Devices = Name;
    print("Backup " + Name + " wurde gestartet.");
    Backup.SQLBackup("(DISPATCH)" + SERVER);
    print("Backup " + Name + " beendet.");
}
// Meldungen einschalten
OleEnableMsg(1);
}
// Verbindung beenden
OleDisconnect(SERVER);
.....

ValidateXmlValue(Source)

Validiert einen XML Wert

Parameter

Rückgabewert

Validierter Text

Verfügbarkeit

42 Makro Runtime