comando Replace

[g.paolo]

Ho provato ad usare il comando "replace" su un oggetto TextArea, ma il risultato sperato non avviene.
Praticamente vorrei sostituire eventuali punti di tabulazione (TAB) con la parola "prova", tanto per vedere come funziona, ma a quanto sembra non funziona con una TextArea.
Prendete il seguente codice con un oggetto Textarea chiamato Txt.Note e provate:

IF InStr(Txt_Note.text, Chr$(009)) > 0 THEN
            Replace(Txt_Note.Text, Chr$(009), "prova")
            Message.Info(Txt_Note.text)
ENDIF

Il risultato che ottengo con il messaggio è lo stesso testo di prima con tutti i TAB inclusi.
Avete una spiegazione?

[fsurfing]

modificato in questo modo funziona BENISSIMO:

Codice: [Seleziona]

DIM stringa AS String

      IF InStr(Txt_Note.text, Chr(009)) > 0 THEN
        stringa = Txt_Note.Text
        stringa = Replace$(stringa, Chr(009), "prova")
        Txt_Note.Text = stringa
        Message.Info(Txt_Note.text)
     ENDIF 

praticamente hai dimenticato di porre il risultato del replace in una variabile

 :-)

[fsurfing]

io da vero sprecone di risorse del pc ho aggiunto una variabile stringa

ma si può evitare:

Codice: [Seleziona]

   IF InStr(Txt_Note.text, Chr(009)) > 0 THEN
         Txt_Note.Text = Replace$(Txt_Note.text, Chr(009), "prova")
         Message.Info(Txt_Note.text)
   ENDIF
 

[fsurfing]

tra l' altro al posto di CHR(009) si può anche utilizzare  "\t"

[g.paolo]

@fsurfing
Una cavolata insomma!
A volte la soluzione è semplicissima ma non ci si arriva. Meno male che ci siete voi nel forum a far luce tra le tenebre di gambas!!!

[md9327]

A volte sono "cavolate", o sviste che ti fanno perdere le ore.
Un'altro paio di occhi fanno sempre comodo, no?

[g.paolo]

Eccome! Anche se prima di scomodare il forum tento sempre di fare ricerche di ogni tipo, a volte con successo ed altre no, mi rendo conto però che rispetti ai tempi in cui ho iniziato ed Internet era impensabile. oggi almeno con i motori di ricerca qualcosa si fa.
Trent'anni fa, o avevi un libro specifico, o dovevi conoscere qualcuno che avesse avuto gli stessi problemi e ne avesse trovato la soluzione!
Ora con l'avvento dei forum come questo, è veramente un altro mondo!
Grazie a te e a tutti gli iscritti!