|
|||||||
|
|
|
 |
|
|
Strumenti |
19-10-2006, 09:47
|
#1 |
|
Member
Iscritto dal: Aug 2003
Messaggi: 184
|
copiare una stringa in un file delphi
Come faccio, avendo un file di tipo Text aperto in Append, a copiarci dentro una stringa? Ho provato con la funzione Write(File, Stringa) ma non funziona, lascia il file bianco...
|
|
|
|
19-10-2006, 11:43
|
#2 |
|
Senior Member
Iscritto dal: Sep 2004
Città: Prov. GE
Messaggi: 3421
|
AssignFile(F, FileName); // Assegna il file ad una variabile F di tipo TextFile
Rewrite (F); // Inizia la scrittura del file Writeln(F, Stringa); // scrive nel file F la riga con contenuto della variabile stringa CloseFile(F); // chiude il file ciao ! |
|
|
|
|
19-10-2006, 14:57
|
#3 |
|
Member
Iscritto dal: Aug 2003
Messaggi: 184
|
Grazie
 Ora però ho un altro problema Avendo una stringa "s" composta da un carattere iniziale ".1" - riconoscibile grazie alla funzione Pos(Chr(0)+ '1',s) -, vari caratteri successivi e un altro carattere sempre ".1" e di seguito altri caratteri ad esempio .1idsnsndsomsfpwosdmow .1smdsmiemkwm ... come faccio ad estrarre una sottostringa contenente solo i caratteri tra i due ".1"? Grazie |
|
|
|
|
19-10-2006, 16:57
|
#4 | |
|
Senior Member
Iscritto dal: Sep 2004
Città: Prov. GE
Messaggi: 3421
|
Quote:
cioè togli il primo .1 poi copi la sottostringa fino al secondo .1 in pratica s = Copy(s, 3, lenght(s)) s1 = copy(s,1,Pos(Chr(0)+ '1',s)) alternando queste due istruzioni ottieni quel risultato 
|
|
|
|
|
|
20-10-2006, 09:42
|
#5 |
|
Member
Iscritto dal: Aug 2003
Messaggi: 184
|
Grazie
|
|
|
|
|
20-10-2006, 10:21
|
#6 | |
|
Senior Member
Iscritto dal: Sep 2004
Città: Prov. GE
Messaggi: 3421
|
Quote:
 
|
|
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 02:25.
