[vb5/6]-Sostituzione lettera in una stringa AIUTO!

[Oscar87k]

Scusate la mia ignoranza ma è poco ke uso vb... Sono abituato con c++ e assembler

Cmq... volevo chiedere... se io ho una stringa [esempio la parola "CIAO"] e volessi sostituire il 3 carattere con un carattere ke voglio io, c'è una funzione ke me lo fa?? e se si ke funzione devo usare???

Esempio... Parola "CIAO"
devo sostituire il terzo carattere con la lettera "U"
Stringa finale ke voglio = "CIUO"

So ke esiste la funzione Mid ma quella mi restituisce il valore ovvero il carattere la/e lettera/e ke dico io.. ma non me le sostituisce!

Grazie ankora in anticipo, spero in una risposta ne ho urgente bisogno!

[rex_rome]

Ciao ,
esiste la funzione instr che ti restituisce la posizione di inizio stringa all'interno di un'altra stringa oppure + semplicemente esiste la funzione replace che ti permette di sostituire una sottoringa con un'altra sottostringa all'interno di una stringa .

Cerco di spiegarmi meglio con un paio di esempi :

FUNZIONE INSTR :
Ricerco all'interno della stringa bravo la lettera A partendo dal 1° carattere .

Dim X as long
X = InStr(1, "BRAVO", "A")

X = posizione in cui viene trovata "A" (assumerà valore 3)
1 = posizione di partenza nella stringa BRAVO


FUNZIONE REPLACE :
Sostiutisco in Ciao la "a" con la "u" ;

Dim NewParola as string
NewParola = Replace("CIAO", "A", "U")

Newparola = "CIUO"

Spero di esserti stato utile
Ciao

[Oscar87k]

grazie mille

questo è ciò ke volevo...
Però ho 2 cose da chiedere...

1]

Dim X as long
X = InStr(1, "BRAVO", "A")

se io non avessi la lettera ke voglio cioè... mettiamo ke io la stringa non la conosca, e cerco nella stringa la lettera "A" ke però non c'è... allora in questo caso X ke valore mi assume??

2]

Dim NewParola as string
NewParola = Replace("CIAO", "A", "U")

Se qui io avessi avuto al posto di CIAO la parola CIAOA e cambio la lettera A con la U, lui [dato ke ora ho 2 lettera A nella stringa] me le cambia entrambe con una U oppure mi cambia solo la prima che trova??

Grazie mille..

[Oscar87k]

Piccolo problema tecnico!
In VB5, quello ke uso io, la funzione REPLACE non esiste! Dice ke non la trova e nemmeno sulla guida c'è

Come posso fare quindi?!

[rex_rome]

Ciao

se io non avessi la lettera ke voglio cioè... mettiamo ke io la stringa non la conosca, e cerco nella stringa la lettera "A" ke però non c'è... allora in questo caso X ke valore mi assume??

Dim X as long
X = InStr(1, "BRAVO", "E")

X assume valore 0 (zero)

[QUOTE]
Se qui io avessi avuto al posto di CIAO la parola CIAOA e cambio la lettera A con la U, lui [dato ke ora ho 2 lettera A nella stringa] me le cambia entrambe con una U oppure mi cambia solo la prima che trova??
[/QUOTE ]

Dim NewParola As String
NewParola = Replace("CIAOA", "A", "U")

Newparola = "CIUOU"


Se hai ancora bisogno fin dove posso ti aiuto ciao

[rex_rome]

Per il piccolo problema tecnico ... avevo letto VB5/6 nel 6 la funzione replace esiste ... se nel 5 non esiste bisogna creare una funzione che faccia quello che fa la replace

[rex_rome]

Ciao Ti posto il codice di una routine prova a vedere se ti funziona

Public Function Sostituisci_Carattere(Parola As String, Old_Car As String, New_Car As String) As String
' Parola e la stringa dove vuoi effettuare la sostituzione
' Old_Car è il carattere che vuoi sostituire
' New_Car è il nuovo carattere 
Dim I As Long
Dim Car As String
Sostituisci_Carattere = ""
For I = 1 To Len(Parola)
    Car = Mid(Parola, I, 1)
    If Car = Old_Car Then
        Sostituisci_Carattere = Sostituisci_Carattere & New_Car
    Else
        Sostituisci_Carattere = Sostituisci_Carattere & Car
    End If
Next

End Function

Ciao
Fammi sapere

[junx]

eccone un altro:

Public Function Replace(oldstring, newletter, oldletter) As String
    Dim i As Integer
    i = 1
    Do While InStr(i, oldstring, oldletter, vbTextCompare) <> 0
        Replace = Replace & Mid(oldstring, i, _
            InStr(i, oldstring, oldletter, vbTextCompare) - i) & newletter
        i = InStr(i, oldstring, oldletter, vbTextCompare) + Len(oldletter)
    Loop
    Replace = Replace & Right(oldstring, Len(oldstring) - i + 1)
End Function

[Oscar87k]

ragazzi non so come ringraziarvi
scusa se ho messo VB5/6 ma pensavo ke fosse uguale e ke ci fosse la funzione in vb5.. sono un po indietro io!!!
Per imparare vb vado meglio con la 5... poi passerò alla 6!