Udplukke tekst i en streng

er det en fil du læser ind, via VB6 eller hvad. ?

Er den kommasepareret , så:


Open "dinFil" For Input As #1
Do
Line Input #1, streng
If Right(streng, 1) = "C" Then
O = Split(streng, ",")
Brugernavn = O(1)
kode = O(4)
Exit Do ' hopper ud når stort C er fundet
End If
Close 1
Loop Until EOF(1)

If Right(streng, 1) = "C" Then
skal selvfølgelig være

If Left(streng, 1) = "C" Then

Private Sub Form_Load()
Dim i As Long
Dim strText As String
Dim arrLine() As String
Dim arrInfo() As String

  strText = "c,ALT MULIGT HER" & vbLf & _
            "c,ALT MULIGT HER" & vbLf & _
            "C,9999,-,abcdefghi,8888" & vbLf & _
            "a , qweqweqwe"

  arrLine = Split(strText, vbLf)
  For i = LBound(arrLine) To UBound(arrLine)
    If Left$(arrLine(i), 1) = "C" Then
      arrInfo = Split(arrLine(i), ",")
      If UBound(arrInfo) > 3 Then
        ' arrInfo(0) = C
        MsgBox arrInfo(1) ' 9999
        ' arrInfo(2) = -
        ' arrInfo(3) = abcdefghi
        MsgBox arrInfo(4) ' 8888
      End If
    End If
  Next
End Sub

mikze > Du skal dog være opmærksom på hvis du indtaster din data i en TextBox så er ny linje altså afskilt med vbCrLf og ikke kun vbLf

eller i php kode : "\r\n" er det samme som vbCrLf

sjh, jeg brugte dit svar! smid et svar, og kabbak, du kan også få en del af point  for din indsats :P

...

giv dem til sjh, han styrer ;-))

Næ nej smid du nu også bare et svar kabbak..

;-)) , så lad gå, men du fortjente dem.

jeg fortjente ikke mere end du gør.. bægge kode virker jo og du kom først.. :D