sostiutisci in vb

[fisica]

in visual basic (v 5) che comando devo usare per sostituire un carattere (o un gruppo di caratteri) con un altro (o altri)?

grazie

ciao

[xegallo]

Originariamente inviato da fisica
in visual basic (v 5) che comando devo usare per sostituire un carattere (o un gruppo di caratteri) con un altro (o altri)?

grazie

ciao

in vb6 c'è replace(stinga,carattere origine,nuovo carattere)
prova se và in vb5 non saprei

[fisica]

up

[debbelandia]

variabile = "ciao/sdsdsdsd"
variabile = replace(variabile,"/","_")


la variabile sara = a ciao_sdsdsdsd

[Mabi]

In VB5 non c'è la funzione Replace.
Puoi controllare e sostituire ciclicamente. :bubu:

[fisica]

in codice?

[Mabi]

Dim CarSostituto As String * 1
Dim CarDaSostituire As String * 1

Dim Stringa As String
Dim Cont As Long

CarDaSostituire = "*"
CarSostituto = " "
Stringa = "Stringa*di*prova"
Cont = 1

Cont = InStr(1, Stringa, CarDaSostituire, vbTextCompare)
Do Until Cont = 0
  Mid$(Stringa, Cont, 1) = CarSostituto
  Cont = InStr(Cont, Stringa, CarDaSostituire, vbTextCompare)
Loop

[fisica]

funziona anche per sostiutire più caratteri con uno?

(es "ciaociao" con "a")

grazie

[fisica]

up

[Mabi]

No, quella procedura era solo per i caratteri.
Al posto di quella usa questa nuova che va bene per tutto:

Private Sub Sostituisci(ByRef Stringa As String, ByVal CarSostituto As String, ByVal CarDaSostituire As String)
Dim Cont As Long

If CarSostituto <> CarDaSostituire Then
  If Len(CarSostituto) > 0 And Len(CarDaSostituire) > 0 Then
    Select Case Len(CarDaSostituire) - Len(CarSostituto)
      Case Is < 0
        Cont = InStr(1, Stringa, CarDaSostituire, vbTextCompare)
        Do Until Cont = 0
          Stringa = Mid$(Stringa, 1, Cont - 1) & CarSostituto & Mid$(Stringa, Cont + Len(CarDaSostituire))
          Cont = InStr(Cont, Stringa, CarDaSostituire, vbTextCompare)
        Loop
      Case Is >= 0
        Cont = InStr(1, Stringa, CarDaSostituire, vbTextCompare)
        Do Until Cont = 0
          Stringa = Mid$(Stringa, 1, Cont - 1) & CarSostituto & Mid$(Stringa, Cont + Len(CarDaSostituire))
          Cont = InStr(Cont, Stringa, CarDaSostituire, vbTextCompare)
        Loop
    End Select
  End If
End If
End Sub

E richiamala come se fosse una normale procedura.

Private Sub Command1_Click()
Dim Stringa As String

Stringa = "ciaociaobc"
Call Sostituisci(Stringa, "a", "ciaociao")
MsgBox Stringa
End Sub

OK ?