Trim funktion

hej

du kan vel altid bruge en split hvis altså der ikke indgår et kolon på noget tidspunkt i nummeret. Det er ikke så kønt men det virker da... :o)

Private Sub Form_Load()

    Dim strListe As String
    strListe = "WFF: 4554656" & vbCrLf & _
              "FFF: 784512" & vbCrLf & _
              "WFF: VHG4578 0.4512" & vbCrLf & _
              "SSS: 7845-VH"

    arrliste = Split(strListe, ":")
   
    For i = LBound(arrliste) To UBound(arrliste)
        Debug.Print Trim(Replace(arrliste(i), vbCrLf, ""))
    Next
   
End Sub

/hiks

eller:

Private Sub Form_Load()

    Dim strListe As String
    strListe = "WFF: 4554656" & vbCrLf & _
              "FFF: 784512" & vbCrLf & _
              "WFF: VHG4578 0.4512" & vbCrLf & _
              "SSS: 7845-VH"

    arrListe = Split(strListe, vbCrLf)
   
    For i = LBound(arrListe) To UBound(arrListe)
        Debug.Print SplitLinie(arrListe(i))
    Next
   
End Sub

Private Function SplitLinie(ByVal strLinie As String) As String
   
    Dim part1 As String, part2 As String
    SplitLinie = strLinie
   
    part1 = Mid(SplitLinie, 1, 3)
    part2 = Mid(SplitLinie, 6, Len(SplitLinie))

    SplitLinie = part1 & "-" & part2
   
End Function

/hiks

Ovenstående omskrevet en smule, så den er lidt "pænere" / virker i mere generelle tilfælde.

F.eks. hvis der er flere end et mellemrum mellem kolon og første ciffer i tallet - eller før kolon... (er der det, vil ovenstående nemlig ikke virke, da den f.eks. altid tager tallet startende ved den 6. karakter i variablen splitline - mangler f.eks. mellemrummet efter kolon, vil første ciffer derfor ikke komme med)

Private Function SplitLinie(ByVal strLinie As String, SplitChar as string) As String
   
    Dim part1 As String
    Dim part2 As String
    Dim SplitPosition as Long
   
    SplitPosition = Instr(strLinie, splitchar) 'Finder positionen af kolon
   
    part1 = Mid(strLinie, 1, SplitPosition) 'Fra start frem til kolon
    part2 = Mid(strLinie, SplitPosition) 'Fra kolon til slut

    SplitLinie = part1 & "-" & part2
End Function



Altsammen blot en kommentar til hiks's svar.

Funktioner til at manipulere strenge - meget nyttige:

Trim
LTrim
Rtrim
Mid
InStr
InStrRev
Split
Right
Left
len

hiks, den først virkede fint!

darth-domino: Det hele virker. Det er 3 forskellige alternativer...

Så må I jo ligge et svar, så I kan få point!

Jeg omskrev blot svar fra hiks. Alle points til ham/hende(den/det)

Du skulle bare forstå, at det var 3 alternativer - hvor du så vælger det du synes passer bedst til din øvrige kode. Min kommentar var et forsøg på at give et godt tip, så funktionen ikke er så afhængig af at dine data har et specielt format. Du ved, et forsøg på at lære fra sig ;o)

oki

martin_moth>> jeg foretrækker den... Jeg tror sgu ikke - jeg er menneskelig... :o)

Jeg kan jo så tilføje, at jeg kun leverer "tænk-selv-kode" - :o)

/hiks

forstår ikke sætningen :" jeg foretrækker den ("den?")... Jeg tror sgu ikke - jeg er menneskelig..." ?

ja du skrev: Alle points til ham/hende(den/det)

Og jeg vil foretrække at blive tituleret "den". :)

/hiks

nå ja ;o)