lege spaties verwijderen uit een string

[aldo1974]

Ben totaal een newbie in programmeren , waarschijnlijk lijkt de oplossing dan ook simpel voor jullie
alvast bedankt .

Mijn probleem
een basis oefening
als ik op een knop druk dan
vraagt het programma via een input box de voornaam en via een 2e inputbox de achternaam

deze worden samen gevoegd tot een email adres .
tot hier toe geen probleem .

ALs de gebruiker een achternaam heeft die uit twee woorden bestaat , dan moet de volledige achternaam in 1 woord komen .

voorbeeld :
voornaam : koen
achternaam : de wachter ==> dewachter
oplossing : koen.dewachter@bedrijf.be (fictief email adres)

dit is de programma code die ik heb .


Sub Button1Click(sender As Object, e As EventArgs)
Dim sVoornaam As String
Dim sAchternaam As String
Dim sEmail As String

sVoornaam=inputbox("Geef de voornaam in","Voornaam","Input Voornaam")
sachternaam=inputbox("Geef de achternaam in","Achternaam","Input Achternaam")

semail=svoornaam & "." & sachternaam & "@" & "bedrijf.be"

label1.Text=semail

End Sub

 

[gabber1]

ik heb een idee:

dim zonderspatie as string

zonderspatie  =  Replace(semail, " ","")

dit verandert (als het goed is) een spatie in niks


EDIT: klein foutje gemaakt

 

[aldo1974]

ik heb een idee:

dim zonderspatie as string

zonderspatie  =  Replace(semail, " ","")

dit verandert (als het goed is) een spatie in niks


EDIT: klein foutje gemaakt

Thx het werkt perfect :thumb: :thumb: