Oppure

Loading
02/10/11 14:05
Aangelus
Salve a tutti sto scrivendo un semplice contatore di lette dove per una ricerca che dovrà eseguire in un altro programma mi dovrebbe eliminare oltre agli spazzi con trim$ ma anche gli eventuali ritorno a capo vuoti che possono essere aggiunti involontariamente. Il contatore di lette mi serve per un ciclo che dovrebbe scomporre il testo da punto a punto, però quando conta le lettere e gli eventuali ritorno a capo sballa la ricerca con instr e mid$, perché i punti sono finiti ma il len potrebbe contenere altri spazzi o ritorno a capo che la funzione instr non potrà funzionare perché non trova il successivo punto. Ora posto una versione semplificata del problema:

Private Sub Command1_Click()
n = Len(Text1.Text)
Print n

End Sub

Private Sub Command2_Click()
testo = Trim$(Text1.Text)
p = Len(testo)
Print p
End Sub
dovremmo eliminare i ritorno a capo che involontariamente si possono inserire
salve e grazie
aaa
02/10/11 14:32

testo = Replace(testo, Chr$(13), "";)
testo = Replace(testo, Chr$(10), "";)



P.S. Spazi con una sola z ...
02/10/11 15:53
HeDo
ma che devo fare, devo lockare anche questo finchè non si scrive una frase in italiano senza errori di ortografia da seconda elementare?
aaa