At dele en string op

Hvem har en god idé til hvordan jeg slipper afsted med det ;-)

Her vil Split() vist lette arbejdet:

myArray = Split(Content, ";.;")

okay det lyder spændende

Jeg ved ikke hvor stor filen er. Jeg modtager det sådan her

BEGIN:VCARD
FN:Svend Bendt
ORG:;Etellerandet
TEL;WORK:12345678
TITLE:etellerandet
EMAIL;WORK;PREF;NGW:svend@dd.dk
END:VCARD

Ok, det er er jo forholdvist langt fra det filformat du beskrev i første omgang.

Hvad med dette:

Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile(Server.Mappath("fil.txt"), 1)

Do Until stream.AtEndOfStream

content = stream.ReadLine
myArr = Split(Content, ";.;")

For i = o To UBound(myArr)
  response.write myArr(i) ' <- hver enkelt felt
Next

Loop

set stream = nothing
set fso = nothing
Response.write(content)

jeg ved det godt. Sorry

Det ser fint ud. Jeg ved at der er 4 elementer i hver række. Hvordan for jeg lagt dem ind i nogle variable så jeg efterfølgende kan smide dem i en DB?

De skal jo have forskellige navne

Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile(Server.Mappath("fil.txt"), 1)

Do Until stream.AtEndOfStream

content = stream.ReadLine
myArr = Split(Content, ";.;")

' enten denne:
strNavn = myArr(0)
strOrg = myArr(1)
' o.s.v.

' Eller denne:
' strSQL = "INSERT INTO Tabel(Navn, Org....VALUES("
' strSQL = strSQL & "'" & myArr(0) & "',"
' strSQL = strSQL & "'" & myArr(1) & "',"
' o.s.v.

'objConn.Execute(strSQL)

Loop

set stream = nothing
set fso = nothing

sådan her ???

Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile(Server.Mappath("filer/fil.vcf"), 1)

Do Until stream.AtEndOfStream

content = stream.ReadLine
myArr = Split(content, ";.;")

' enten denne:
dim strFornavn, strEfternavn, strAfdeling, strTlf

strFornavn  = myArr(0)
strEfternavn = myArr(1)
strAfdeling  = myArr(2)
strTlf      = myArr(3)

Loop

set stream = nothing
set fso = nothing

glem databaseforbindelsen

OK

Lige nu er udfordringen at få delt filen op i variable på den rigtige måde :-). Det er ikke let :-), i hvert tilfælde ikke for mig :-(

Var der sidste en konstatering eller ?

Hvis du skal have mere hjælp, må du lige prøve at poste de første 2 komplette poster fra filen UREDIGERET her.

Jeg prøver bare at komme på sporet af hvad jeg skal gøre, det er såmend det hele. Her er data som jeg modtager det

BEGIN:VCARD
VERSION:2.1
X-GWTYPE:USER
FN:Martin Andersen
TEL;WORK:45258564
ORG:;Teknik
TEL;PREF;FAX:45253654
EMAIL;WORK;PREF;NGW:MA@mail.dk
N:Andersen;Martin
TITLE:Tekniker
END:VCARD

BEGIN:VCARD
VERSION:2.1
X-GWTYPE:USER
FN:Hans Jensen
TEL;WORK:45256589
ORG:;Salg
TEL;PREF;FAX:45253654
EMAIL;WORK;PREF;NGW:HJ@mail.dk
N:Jensen;Hans
TITLE:Saelger
END:VCARD

Prøv denne:

Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile(Server.Mappath("filer/fil.vcf"), 1)

Do Until stream.AtEndOfStream

content = stream.ReadLine
myArr = Split(content, ";.;")

strPost = ""

If myArr(i) = "BEGIN" Then ' ny løkke


    Do

        strTemp = stream.ReadLine
        newArr = Split(strTemp, ";.;")

        If newArr(0) = "END" Then Exit Do

        If strPost = "" Then
            strPost = newArr(1)
        Else
            strPost = strPost & "," & newArr(1)
        End If
   
    Loop

End If

    lastArr = Split(strPost, ",")

    dim strFornavn, strEfternavn, strAfdeling, strTlf

    strFornavn  = lastArr(0)
    strEfternavn = lastArr(1)
    strAfdeling  = lastArr(2)
    strTlf      = lastArr(3)

Loop

set stream = nothing
set fso = nothing

øm, det virker ikke :-(

jeg bruger jo heller ikke ;.; mere

Du kunne jo evt. fortælle hvad der sker, frem for blot at konstatere at det ikke virker....

Du har helt ret *LOL*, hav en god dag. Jeg får bare at vide at siden ikke kan vises. Hvordan finder man "indexOf" i asp, og hvad tager den af parametre?

indexOf kan anvendes i ASP, hvis du skriver dine sider med JavaScript. VBScript's tilsvarende hedder InStr.