Indlæs komma fil ind i variable

$file = fopen("FIL.TXT", "r") or exit("Unable to open file!");
while(!feof($file))
  {
  $line = fgets($file);
  $ex = explode(",", $line);
  $forste = $ex[0];
  $anden = $ex[1];
  print "$forste - $anden";
}
fclose($file);

Hov var for hurtig, så ikke det var VB :D beklageR!

Hvor mange linier er der i tekstfilen?

Eks. med 1 linie og 5 elementer i linjen. (skrevet i VBA)

Dim sti, arr As Variant
Public Sub indlæsTekstfil()
Dim linje As String, ix As Byte
    sti = findSti
   
    Open sti + indDataFilNavn For Input As #1
   
    While Not EOF(1)
Rem indlæs en helt linie
        Line Input #1, linje
       
        arr = Split(linje, ",")
       
        MsgBox ("Antal elementer: " & CStr(UBound(arr)))
        For ix = 0 To UBound(arr) - 1
            element = arr(ix)
        Next ix
       
Rem eller
        element1 = arr(0)
        element2 = arr(1)
        element3 = arr(2)
        element4 = arr(3)
        element5 = arr(4)
    Wend
   
    Close #1
   
    MsgBox ("Indlæsning afsluttet")
End Sub
Private Function findSti()
Dim sti As String
    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "" Then
        sti = sti + "\"
    End If
    findSti = sti
End Function

Hej Supertekst

jeg har lidt problemer med det nok fordi jeg kører vb 2008 Express edition jeg ved hæfter lige et screen print til en mail og sender den til dig

Hej "KA"

Min kode er som anført skrevet i VBA og derfor ikke 100% kompatibelt med VB 2008. Denne kender jeg desværre ikke - men lad os håbe, at der er andre der kan hjælpe.

PS: Har du noget af Microsoft Office-pakken?

ok "PB" men tak for hjælpen

jep jeg har office 2007

OK - så prøv at indsætte koden i Excel. Jeg kan prøve at sende hele modellen  til dig.

Hmm der er ikke noget i excel arket den spørger om jeg vil aktiverer macro og det siger jeg ja til men der sker ikke noget

Jeg afspiller macro og der kommer en popup box hvor der står at der er 5 elementer jeg trykker ok og så sker der ikke mere

Hmm ok nu faldt tiøren også for mig nu kan jeg se koden sorry

Ok - hvis du går i VBA-koden (Alt+F11) - ThisWorkbook.

Så kan du steppe gennem koden med F8 - og se hvorledes variablen "Arr" bliver fyldt med indholdet fra linjen.

Regnearket er kun anvendt som "pladsholder"

Der sker ikke mere, da jeg ikke kender den ønskede kontekst.

Dit sidste indlæg krydsede mit :-)

PPS: og så velkommen til Eksperten....

Jep jeg har lige steppet mig igennem det og set at verdierne bliver lagt ind i variablene det virker fint nu skal jeg bare ha det over i min express hmm men tak

Selv tak & god fornøjelse