Hur skulle jag kunna läsa in värdet efter de fjärde ";" i HEAD segmentet och visa detta på sidan?


Filen ser ut enligt följande...

"HEAD";"55";"311358";"311501";"F297739"
"SUM";"";"2314.15";"0.00";"2314.15";"9"
"LINE";"1";"5";"";"T";"Kalle.";"";""
"LINE";"2";"10";"7392254401546";"401524"
"LINE";"3";"20";"7392254185170";"185147"
"LINE";"4";"30";"7392254185118";"185141"
"LINE";"5";"40";"";"T";"+ 1 stk. LYSRÖR T
"LINE";"6";"50";"7330024472822";"472812"
"LINE";"7";"60";"";"04";"FRAKT";"1";"PCE
"END"
"HEAD";"55";"312548";"311501";"F297745"
"SUM";"";"9946.50";"0.00";"9946.50";"92"
"LINE";"1";"5";"";"T";"Pelle";"";"";""
"LINE";"2";"10";"7392254294438";"294423"
"LINE";"3";"20";"7392254222110";"222141"
"LINE";"4";"30";"7392254222172";"222147"
"LINE";"5";"40";"7392254222219";"222241"
"END"
osv...
...
...


//Torfi

Ser misstänkt lik ut någon form av halvsmidig EDI flatfile..

Hur som helst.. Detta funkar, vet dock inte om det är det ultimata sättet.

<code>
<%
Dim FSO, strTfile
Set FSO = CreateObject("Scripting.FileSystemObject")

Set strTfile = FSO.OpenTextFile(Server.MapPath("test.txt"), 1)

Do While Not strTfile.AtEndOfStream

strTextRow = strTfile.ReadLine

if Mid(strTextRow,2,4) = "HEAD" then

Getinf = Split(strTextRow,";")

strMyVal = Getinf(4) 'Plocka ut värdet efter fjärde ;
strMyVal = Mid(strMyVal,2,Len(strMyVal)-3) 'Klipp ut värdet från " "

response.write strMyVal &"<br><br>"

end if
loop

strTfile.Close
Set FSO = Nothing
%>
</code>

Lycka till!

Tack, fungera bra.

Vad menar du med haslvsmidig?
Vad är en "flatfile"?

//Torfi

HAE!

Antar att han menar att programmet som outputat filen/datan inte gjort det så bra. Kan man inte styra outputen, så datan kommer ut annorlunda?

Gangi þér vel!

Allt gott hjá þér?
Biðjum að hilsa Ninu.

Kv Jónas

Off topic... Stämmer mina gissningar av vad meningarna betyder?

<b>Gangi þér vel!</b>
Må det gå väl med dig!

<b>Allt gott hjá þér?</b>
Allt gott med dig?

<b>Biðjum að hilsa Ninu.</b>
Vi ber att (du skall) hälsa Nina.

Shit! scary!

Känner jag er?

<b>Gangi þér vel!</b>
Lycka till!

Annars var det bra!

/T

Nä outputen bestämmer jag men det är anpassat för mottagande system.

Jag har fått höra att filen kallas INHOUSE-fil, mao går vidare till ett företag som konverterar till standard EDI invoice.

vill kunna se vad det är för fakturanr i filen, skall vara enkelt för användaren.....

Har testat massa nu och kommer inte vidare med min minimala kunskap.

Hur sulle det se ut om jag vill presentera data ur SUM segmentet jämte värdet från HEAD segmentet?

ex.
F297739................2 315.14
F297740................5 155.15

/T

Dim FSO, strTfile, varstring


Set FSO = CreateObject("Scripting.FileSystemObject")

Set strTfile = FSO.OpenTextFile(Server.MapPath("test.txt"), 1)
varstring=""
Do While Not strTfile.AtEndOfStream

strTextRow = strTfile.ReadLine

if Mid(strTextRow,2,4) = "HEAD" then

Getinf = Split(strTextRow,";")

strMyVal = Getinf(4) 'Plocka ut värdet efter fjärde ;
varstring=varstring& Mid(strMyVal,2,Len(strMyVal)-3) 'Klipp ut värdet från " "
end if
varstring=varstring&"&nbsp;&nbsp;&nbsp;"+mellanrum

if Mid(strTextRow,2,3) = "SUM" then ' hämta SUM.raden
Getinf = Split(strTextRow,";")
strMyVal = Getinf(4) 'Om du skall ha 4e inklippet här också ;
varstring=varstring& = Mid(strMyVal,2,Len(strMyVal)-3) 'Klipp ut värdet från " "
end if

varstring=varstring&"<br><br>"
loop

strTfile.Close
Set FSO = Nothing
response.write varstring

Ég held að ég hef hittið þig áður en það var fyrir mjög mörgum árum...
Ég var alinn í Anderstorp og Gislaved, en núna bý ég i Gautaborg.