Tjekke for mellemrum i en tekststreng

Ta evt. et kig her http://www.eksperten.dk/spm/219907

KantoRaZa har lavet en god løsning

Hvorfor må du ikke bruge replace?

Du kan selv kode en replace funktion, men hvorfor ikek bruge den der er indbygget? Bruger du ikke VB6?

Tak for jeres kommentarer :-)

Det er et specielt program som har basic som grundfundament. Ergo findes der ikke en masse standard VB funktioner. Jeg havde lavet en løkke ting selv men, den buggede når jeg flyttede den fra VB til editoren.

Havde blot sat den uden for funktionen , ups :-)

Tak for kommentarer.

Points coming

hmm hvor er dropdown boksen med accpter blevet af.

Den kommer først når der er kommet svar du kan acceptere:o)

Jeg skal ikke have points

Smider lige et svar.

Hvis du ikke ku bruge linket så bare glem det :c)

Det var godt nok mange points for et lille sølle link, men takker mange gange :c)

du kunne bare gøre sådan:

'--------------------------- Form1 ---------------------------
Option Explicit

Public Function TrimSpace(ByVal strText As String) As String
Dim i As Long
Dim strOne As String
Dim strOut As String
  For i = 1 To Len(strText)
    strOne = Mid$(strText, i, 1)
    Select Case strOne
          Case " "
          Case Else
            strOut = (strOut & strOne)
    End Select
  Next
  TrimSpace = strOut
End Function

Private Sub Form_Load()
  Me.Caption = TrimSpace("Tjekke for mellemrum  i en tekststreng")
End Sub
'--------------------------- Form1 ---------------------------

sorry kan se at det i linket gør det samme :o)