fjerne mellemrum fra variabel??

Brug backspace

Dim strVar As String
Dim strVar1 As String
Dim strVar2 As String
Dim strVar3 As String

strVar = "Hej med dig"
strVar1 = Left(strVar, 3)
strVar2 = Left(strVar, 7)
strVar2 = Right(strVar2, 3)
strVar3 = Right(strVar, 3)

MsgBox strVar1 & strVar2 & strVar3

tekst = "fulde mands snak"

tekst=replace(tekst," ","")

Prøv at kikke i VB's hjælp under Left, Right og Mid samt Replace... :o)

To sekunder! :)

Godaften!

*Opret en tekstbox
*Opret en commandbutton!

*Kopier denne kode ind i commandbuttonen!:::

-------Start--------
Private Sub Command1_Click()
'* Opret en textbox
'* Opret en commandbutton

' Fejl
If Len(Text1.Text) < 1 Then
    GoTo fejl
End If


Dim HeleTekst As String

For n = 1 To Len(Text1.Text)
    If Mid(Text1.Text, n, 1) <> " " Then
        HeleTekst = HeleTekst & Mid(Text1.Text, n, 1)
    End If
Next n


Text1.Text = HeleTekst


Exit Sub
fejl:
MsgBox "Der opstod en fejl!. Er du sikker på at du har skrevet noget i feltet??", vbCritical

End Sub
-----Slut-------


Det virker optimalt efter hensigten vil jeg mene!

Test programmet ved at skrive en tekst i textboxen som fx "Hej med dig hilsen mig"... Kør nu programmet og se hvad der sker! :)

/KantoRaZa\

Jeg ville benytter erikjacobsens svar!

Brug Replace!! Den kan lige det du skal bruge!

//Nolle_K

Det kan mit da også!

Hans er mindre i omfang. Ja. MEN man kan udbygge mit mere hvis man vil det... :-)

/KantoRaZa\