🚀 go-pugleaf

"Eolo" <Eolo@eolo.eol> ha scritto nel messaggio
news:bNa6d.7246$75.320134@news3.tin.it...
> Un salutone a tutti,
> non riesco a trovare una soluzione al mio problema:
> Devo sostituire delle stringhe (tipo #1; #2; #3 etc...) contenute in un
file
> .rtf con dei valori contenuti all'interno di alcune textbox del mio
> programma.
> Usando un file .doc ci sono riuscito, ma voglio eliminare la dipendenza da
> Microsoft Word!!
> Qualcuno potrebbe darmi una mano, purtroppo non ho l'help installato.
> Ciao
> Antonio
>


Se le stringhe da sostituire sono note usi la funzione:
Posizione= Instr( TextRtf,Nomevariabile)
Restituisce la posizione della stringa da sostituire, all'interno
dell'intero Rtf.

Poi usi la funzione:
Testo= Mid(TextRtf, inizio, numCar)
Restituisce in Testo una parte di TextRtf che parte dal carattere 'inizio' e
di lunghezza numCar.

In questo modo se l'Rtf �:

Oggi Gioved� PIPPO Ottobre PLUTO, ho comprato PAPERINO mele.

Utilizzando le funzioni Mid e Instr (lascio a te capire come), ottieni tante
stringhe:
Stringa1 : "Oggi Gioved� "
Stringa2 : " Ottobre "
Stringa3 : ", ho comprato "
Stringa4 : " mele."
a questo punto ti basta concatenare le stringhe 1 2 3 e 4 mettendo in mezzo
i valori di PIPPO PLUTO e PAPERINO
"Oggi Gioved� 7 Ottobre 2004, ho comprato 2 mele."

Capito?

Oppure puoi provare con la funzione SPLIT che ti restituisce un'array di
stringhe tu gli dici la stringa di partenza e una lista di delmitatori
(ovvero le tue variabili #1,#2,#3...) poi le concateni come sopra.

Questi metodi mi sa che non funzionano se le posizioni di PIPPO PLUTO
PAPERINO possono cambiare ovvero se posso trovare PIPPO PLUTO PAPERINO
oppure PLUTO PAPERINO PIPPO.
Non ti dico altro DIVERTITI
Ciao e visita www.cifi79.tk