BackSpace

[ZioFat]

Ciao a tutti,

ho bisogno di cancellare un carattere da una stringa con una comando tipo il CHR(8) (che non funziona), vi riporto un esempio:

================================================== ================
riga = ""
rigaInt = ""
cella = ""
fcella = ";"
friga = [codice misterioso] & "
"

While NOT rs.EOF
elenco = elenco & riga
For I = 0 to ncolonne
elenco = elenco & cella & rs(I) & fcella
Next
elenco = elenco & friga & chr(13)
nrecord = nrecord + 1
rs.movenext
Wend
================================================== ================

Questo per generarmi un testo da importare in un altro database nel formato che voglio, ma volevo che prima della fine riga mi cancellasse l'ultimo punto e virgola.

Sapete aiutarmi?


Ciao
ZioFat

[OcchioCrepato]

Vuoi cancellare l'ultimo punto e virgola della stringa o tutti?

se è la prima puoi fare

  ....
  ....
wend

elenco=mid(elenco ,1,len(elenco)-1)

se vuoi eliminarle tutte basta non inserire fcella