hente fra tekstfil og smide i variabler.

Open \"dinfil.txt\" Fro Input As #1
  Do
    Input #1, strNavn
    Input #1, TlfNr

    \'udskriver i debug vinduet (immediate)
    Debug.Print strNavn & \" - \" & TlfNr
  Loop Until Eof(1)
Close #1

Public Function StrParse(Source As String, PChar As String) As Variant
  \'This Function take the \'Source\' parameter and a separater charater
  \'and creates an Array with each element containing a string ending
  \'where each PChar\' was found.
  \'This Function works great for parsing command lines and/or
  \'Nested Path Strings.

    Dim pos As Integer, i As Integer
    \'Make sure we get the last element in string.
    Source = Left(Source, Len(Source) - 1) + PChar
    \'begin a loop
    Do
   
        \'find the first separating PChar
        pos% = InStr(Source, PChar)
     
        \'if there\'s one, then...
        If pos% Then
          ReDim Preserve TmpArray(i%)
          \'extract the string up to the PChar
          TmpArray(i%) = Trim(Left$(Source, pos% - 1))
       
          \'and remove that from the Source string,
          \'so it won\'t be checked again
          Source = Mid$(Source, pos% + 1, Len(Source))
          i% = i% + 1
        End If
    Loop Until Source = \"\" Or Source = Chr(0)
    \'Return a New Populated Array.
    StrParse = TmpArray           
End Function

stigc:> ehm .. er det ikke lidt overkill ?

Det var både noget jeg fandt om parsing i Visual Basic! Jeg rører aldrig selv det sprog, tænkte det måske kunne bruges til noget :)

http://www.bee.net/dutch/vb/vb.html#top

Kiggede lige på din kode. Hvorfra ved den at det skiller ved \",\"?

stigc:> nåå .. okay .. men ellers så har vi Split() i VB 6 som kan det samme :-)

stigc:>

Input #1, var - henter indtil et komma
Line Input #1, var - henter en hel linie

Og den er jo så unægtelig god i denne sammenhæng......

*S* det er jo lige det :-)

Kan jeg paa nogen maade vaelge hvilken nummer linie den skal hente?

Med lidt omkoding, ja ..

Open \"dinfil.txt\" Fro Input As #1
  For I = 1 To DEN_LINIE_DU_VIL_HAVE - 1
    Line Input #1, Dummy
    If Eof(1) Then Exit For
  Next

  Do Until Eof(1)
    Input #1, strNavn
    Input #1, TlfNr

    \'udskriver i debug vinduet (immediate)
    Debug.Print strNavn & \" - \" & TlfNr
  Loop
Close #1

hvad hvis jeg gerne vil s\'ge i den ved sige at jeg vil finde Kim Hansens telefonnummer?

Noget a\'la:

strFindNavn = \"Kim Hansen\"

Open \"dinfil.txt\" Fro Input As #1
  Do
    Input #1, strNavn
    Input #1, TlfNr

    If LCase(strNavn) = LCase(strFindNavn) Then Exit Do
  Loop Until Eof(1)
Close #1

Med LCase() kan du søge efter \"KiM HanSen\" eller \"kim hansen\" dte er ligemeget .. den vil stadig finde ham

hvad hvis man filen ser saadan her ud med det f0rste eksempel:

123456 ; 123123
231321 ; 234654

???

altsaa \" 123456 ; 12456 \"
med mellemrum mellem dem og saa et ;

hmm .. jeg er ikke helt med ..

nåå .. vent din fil er adskilt af semikoloner og ikke kommaer ?

okay.. hvad hvis dataene er sepereret med en tabulator istedet for ,

excel har jo 2 m[de man kan eksportere sine data paa. enten semikolon eller tabulator.
med semikolon kommer der et mellemrum ind f0r og efter semikolon: \" 213 ; 123 \".
Med tabulator er der \"123[tab]213\".

Nåå .. okay .. så skal du nok gøre det på en lidt anden måde da jeg ikke er sikker på om Input #1, var slutter ved ; .. jeg prøver lige at lave noget der funker OK

jeg tror jeg foretr;kker tabulator versionen

oki...

Der går nok lige et par timer før jeg har noget til dig da jeg lige sidder og beskæftiger mig med http://www.eksperten.dk/spm/43074