[VB] Cercare e sostituire un carattere in una stringa

[geko74]

Per esempio:
Ho una stringa che contiene la frase " <ciao questa è una prova>"
Come posso sostituire il carattere "<" con un altro?
Grazie!

[amodio]

fai cosi'

dim str as string
str = "<ciao a tutti"

str = replace(a,"<","")


-->sintassi replace(stringa da analizzare,carattere da ricrercare,sostituzione)

[geko74]

Originariamente inviato da amodio
fai cosi'

dim str as string
str = "<ciao a tutti"

str = replace(a,"<","")


-->sintassi replace(stringa da analizzare,carattere da ricrercare,sostituzione)

Scusa ho dimenticato di specificare che uso VB5 quindi niente Replace

[ladyBlu]

prova così:

    Dim str As String, mioChr As String * 1
    Dim Prima As Integer, Dopo As Integer
    
    str = "<ciao a tutti"
    For i = 1 To Len(str)
        mioChr = Mid(str, i, i)
        If mioChr = "<" Then
            mioChr = "%"   'carrattere da sostituire al posto del segno <
            Prima = i   'numero caratteri prima del <
            Dopo = Len(str) - i 'numero caratteri dopo del <
            If Prima > 1 Then
                    str = Left(str, Prima) & mioChr & Right(str, Dopo)
                Else
                    str = mioChr & Right(str, Dopo)
            End If
            Exit For
        End If
    Next i
    
    MsgBox str  'ora str="%ciao a tutti"

forse un po' lunghetto, ma almeno funziona...



Amodio, nel tuo codice hai dimenticato di assegnare il valore ad a:
dim str as string
str = "<ciao a tutti"
a = str
str = replace(a,"<","")

[vonkranz]

Cosi' e' un po' + compatto

   Posizione = 1
   Stringa = "<La mia stringa<è questa"
   Cerca = "<":   SostituisciCon = "@"
   Do While Posizione > 0
      Posizione = InStr(Stringa, Cerca)
      If Posizione > 0 Then Mid(Stringa, Posizione) = SostituisciCon
   Loop
   Debug.Print Stringa

Ciao.

[geko74]

Grazie mille!! Prometto che mi compro Vb6 al + presto così uso Replace :adhone: