copiare una stringa in un file delphi [Archivio]

fifth

19-10-2006, 08:47

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...

ceschi

19-10-2006, 10:43

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 !

fifth

19-10-2006, 13:57

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

ceschi

19-10-2006, 15:57

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

devi accorciare la stringa ogni volta

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 ;)

fifth

20-10-2006, 08:42

Grazie ;)

ceschi

20-10-2006, 09:21

Grazie ;)

di niente, poi mi dai una percentuale sul lavoro :O :D