Hente flere oplysninger fra txt fil

Så må du lave en split på #


Do While not f.AtEndOfStream
  id=id+1
  filArr = Split(f.Readline, "#")
  conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & filArr(0) & ", " & filArr(1) & ", '" & filArr(2) & "', '" & filArr(3) & "', " & filArr(4) & ")")
Loop

man kan sætte Trim omkring så den fjerne evt mellem før og efter hvis der er mellerum i mellem teksten og dele tegnet #:

conn.execute("INSERT INTO Data(Id, ParentID, Tekst, Sprog, Dato) VALUES (" & filArr(0) & ", " & filArr(1) & ", '" & trim(filArr(2)) & "', '" & trim(filArr(3)) & "', " & filArr(4) & ")")

Med hensyn til trim ... hvis der nu ikke er nogen mellemrum hvad siger den så hvis jeg laver en trim?

Og er jeg så sikker at jeg ikke få fjernet alle mine mellemrum. Lad os sige at jeg har følgende i min fil:
-------------
Dette er tekst 1 # Her er noget andet
Dette er nr 2 # her har vi så noget

Det skulle nødig blive til:
Detteertekst1#Herernogetandet
Detteernr2#herharvisånoget

Den fjerne kun mellemrum før og efter en streng ikke overalt i strengen:
"      adf"

Bliver til:
"adf"

Vil det sige at hvis jeg har følgende:

Manden sagegde: "  Et eller andet  ". Og dermed slut * Noget andet

Så vil det blive til:
Tekst 1:
Manden sagegde: "Et eller andet". Og dermed slut
Tekst 2:
Noget andet

<%
Connection_string = "Driver={mysql};Server=192.168.1.1;Database=NAVN;UID=BRUGERNAVN;PWD=KODE;"
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open Connection_string

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

Dato                = 20031011143855
KategorID            = 23
Sprog                = "DK"
Antal                 = 1

Do While not f.AtEndOfStream
   
    LineArray = Split(f.Readline, "*")
   
    Score                = LineArray(0)
    Titel                = LineArray(1)
    Tekst                = LineArray(2)
   
    Conn.Execute("INSERT INTO Data(ParentID, Navn, Tekst, Score, Sprog, Dato) VALUES (" & KategorID & ", '" & Titel & "' , '" & Tekst & "', " & Score & ", '" & Sprog & "', " & Dato & ")")
   
    Antal = Antal + 1
   
Loop

Antal = Antal - 1


Response.write "Der er tilføjet i alt " & Antal & " poster til systemet"
%>