Säkert en enkel fråga:

Hur tar man bort/lägger till ett tecken i en string?

Jag vill t.ex. ta bort punkten i strängen 123.4321, så att den ser ut så här 1234321, och tillbaka igen.


/Knut

Option Explicit

Private Sub Command1_Click()
'Ta bort (.) sätt in tom sträng
Label1.Caption = Replace(Label1.Caption, ".", "")
End Sub

Private Sub Command2_Click()
'sätta tillbaka
Dim test As String
test = Label1.Caption
Mid$(test, 4, 1) = "." 'plats 4 ett tecken
Label1.Caption = test
End Sub

Tänk bara på att "sätta tillbaka"-funktionen byter ut ett tecken, och inte sätter in ett.
Då får du ta ut vänstra delen med left$ och högra med Right$ eller Mid$.

Tack för det

Tänkte inte på de ! de var ju inte bra,har alltid trott att man infogade.

Borde finnas nån slags insert-funktion. Har aldrig haft nåt större behov av det dock, så jag har aldrig letat. Om inte är det ju knappast svårt att skriva en själv.