Ho il problema di sostituire, all'interno di una stringa, dei
caratteri di escape con il '$', ma non riesco ad intercettare il
carattere di escape e sostituirlo.
Qualcuno sa darmi qualche indicazione?
Ho il problema di sostituire, all'interno di una stringa, dei
caratteri di escape con il '$', ma non riesco ad intercettare il
carattere di escape e sostituirlo.
Qualcuno sa darmi qualche indicazione?
Devi fare un ciclo 'for' e testare ogni singolo carattere.
Quando trovi che l'asc() del carattere testato è uguale a 27 lo sostituisci con quelle che vuoi.
Avresti un esempio.
Xchè ho provato come dici am non mi funziona. :master:
Dim stringa As String
Dim i As Integer
For i = 1 To Len(stringa)
If Mid(stringa, i, 1) = Chr(27) Then
stringa = Left(stringa, i - 1) & "$" & Mid(stringa, i + 1)
End If
Next
Ho visto adesso che ti avevo detto di usare l'Asc() e invece io ho usato la chr(); è uguale se vuoi usare l'Asc() cambia l'if mettendo:
If asc(Mid(stringa, i, 1)) = 27 Then
Spero che funzioni xkè non ho potuto testarlo.
L'algoritmo che mi hai mandato è giusto, peccato che sia VB
mentre io sto programmando in JAVA.