funzioneScopo
Ritorna la stringa contenuta nell'oggetto StringTokenizer. Questa funzione solitamente si utilizza per recuperare la stringa dopo aver aggiunto i token che la compongono tramite la funzione AddToken.
Sintassi
string stringadipartenza = "" // Leggo la stringa dell'oggetto
//
stringadipartenza := StringTokenizer.GetString()
//
stringadipartenza := StringTokenizer.GetString()
Argomenti
Questa funzione non ha argomenti.Valore di ritorno
Viene ritornata una stringa rappresentante tutti i token dell'oggetto StringTokenizer separati dal carattere delimitatore. I token di tipo stringa verranno ulteriormente delimitati tramite il carattere quote per evitare problemi nel caso essi contengano un delimitatore al loro interno.
Esempio di codice
// *********************************************************
// Explain which processing is carried out by this procedure
// *********************************************************
public void StringTokenizer.Unisci()
{
StringTokenizer stk = new() //
//
// Finché ho tokens scritti nel pannello li metto nello String Tokenizer
while Trim(Tokenizer.TokensTokenizer) <> Empty String
{
string token = "" // Il token da aggiungere, è tutta una riga
int CRpos = 0 // Posizione del prossimo carattere di a capo (carri...
//
CRpos := Find(Tokenizer.TokensTokenizer, Acapo, ??)
//
// Se non ci sono a capo ne aggiungo uno in fondo
if CRpos = ZERO
{
Tokenizer.TokensTokenizer := Tokenizer.TokensTokenizer +c Acapo
CRpos := Length(Tokenizer.TokensTokenizer)
}
//
token := Left(Tokenizer.TokensTokenizer, CRpos - ONE)
stk.AddToken(token)
Tokenizer.TokensTokenizer := Right(Tokenizer.TokensTokenizer,
Length(Tokenizer.TokensTokenizer) - CRpos)
}
//
// Alla fine scrivo la stringa contenuta nello string tokenizer nel campo
// superiore
Tokenizer.StringTokenizer := stk.GetString()
}
// Explain which processing is carried out by this procedure
// *********************************************************
public void StringTokenizer.Unisci()
{
StringTokenizer stk = new() //
//
// Finché ho tokens scritti nel pannello li metto nello String Tokenizer
while Trim(Tokenizer.TokensTokenizer) <> Empty String
{
string token = "" // Il token da aggiungere, è tutta una riga
int CRpos = 0 // Posizione del prossimo carattere di a capo (carri...
//
CRpos := Find(Tokenizer.TokensTokenizer, Acapo, ??)
//
// Se non ci sono a capo ne aggiungo uno in fondo
if CRpos = ZERO
{
Tokenizer.TokensTokenizer := Tokenizer.TokensTokenizer +c Acapo
CRpos := Length(Tokenizer.TokensTokenizer)
}
//
token := Left(Tokenizer.TokensTokenizer, CRpos - ONE)
stk.AddToken(token)
Tokenizer.TokensTokenizer := Right(Tokenizer.TokensTokenizer,
Length(Tokenizer.TokensTokenizer) - CRpos)
}
//
// Alla fine scrivo la stringa contenuta nello string tokenizer nel campo
// superiore
Tokenizer.StringTokenizer := stk.GetString()
}