Hej!
Jag har en längre tid försökt att läsa in följande info från en fil.
(Se bifogad fil.)
Den börjar med 6 tomma rader, sen kommer det en rad med rubriker. Därefter börjar det viktiga på rad 8.
Jag har använt följande kod:
<%
Dim objFSO, objTextFile, myStrArray, i
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("../startlistor/010930.txt"))
Do While Not objTextFile.AtEndOfStream
myStrArray = Split(objTextFile.ReadLine,vbTab)
for i = 0 to ubound(myStrArray)
str = str & ", '" & myStrArray(i) & "'"
Response.write("---" & str & "---<br>")
Next
str = Mid(str,2)
Response.write("^" & str & "^<br>")
queryStr = "INSERT INTO competition (startTime, hole, startNr, player, golfClub, class, hcp, tee, eSl)"
queryStr = queryStr & " VALUES(" & str & ")"
Addera = queryStr
Response.write("-" & queryStr & "<br>")
RecSet.Open Addera,Connect,adOpenStatic,adLockOptimistic
str = ""
Loop
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
Vilket inte fungerar helt stabilt. Folk kan ju ha olika längd på sina namn t.ex. och jag lyckas bara läsa "en tab framåt" så att säga. Det man skulle behöva är ju att kunna läsa X antal tab framåt tills det kommer en bit text. Sen har jag även problem med rad nummer 2 på varje tid, varvid den inte börjar som raden oven, dvs. med en tid (åter igen, se bif. textfil.)
Jag hoppas att någon kan hjälpa mig med detta så att jag kan fortsätta resten av det jag har tänkt mig när jag väl lyckas läsa in texfilen.
EDIT: Nu lyckades jag få in koden snyggt direkt i meddelandet också. Som ni ser så överlappar kolumnerna varandra så att säga på vissa ställen... /EDIT
MvH
Patrik
[KOD]
Rond1 Hål Spelare / Klubb Klass Hcp Tee Esl
08:00 1 46 LAGERGREN, HÅKAN NiGK A 8,8 Gul 9
24 Morrison, David Best G C -NL A 8,2 Gul 8
08:10 1 42 Bärtfors, Åke TruGK A 7,3 Gul 7
39 Boström, Jens TruGK A 9,2 Gul 9
40 Ahlberg, Stig TruGK A 10,9 Gul 11
08:20 1 14 Hultén, Björn TruGK A 10,4 Gul 11
15 Augustsson, Emil TruGK A 8,7 Gul 9
33 Ivarsson, Magnus TruGK B 16,9 Gul 18
08:30 1 9 Andersson, Alvar Trummenäs GK B 14,7 Gul 15
7 Jönsson, Jan Trummenäs GK B 12,0 Gul 12
[/KOD]
Jag har en längre tid försökt att läsa in följande info från en fil.
(Se bifogad fil.)
Den börjar med 6 tomma rader, sen kommer det en rad med rubriker. Därefter börjar det viktiga på rad 8.
Jag har använt följande kod:
<%
Dim objFSO, objTextFile, myStrArray, i
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("../startlistor/010930.txt"))
Do While Not objTextFile.AtEndOfStream
myStrArray = Split(objTextFile.ReadLine,vbTab)
for i = 0 to ubound(myStrArray)
str = str & ", '" & myStrArray(i) & "'"
Response.write("---" & str & "---<br>")
Next
str = Mid(str,2)
Response.write("^" & str & "^<br>")
queryStr = "INSERT INTO competition (startTime, hole, startNr, player, golfClub, class, hcp, tee, eSl)"
queryStr = queryStr & " VALUES(" & str & ")"
Addera = queryStr
Response.write("-" & queryStr & "<br>")
RecSet.Open Addera,Connect,adOpenStatic,adLockOptimistic
str = ""
Loop
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
Vilket inte fungerar helt stabilt. Folk kan ju ha olika längd på sina namn t.ex. och jag lyckas bara läsa "en tab framåt" så att säga. Det man skulle behöva är ju att kunna läsa X antal tab framåt tills det kommer en bit text. Sen har jag även problem med rad nummer 2 på varje tid, varvid den inte börjar som raden oven, dvs. med en tid (åter igen, se bif. textfil.)
Jag hoppas att någon kan hjälpa mig med detta så att jag kan fortsätta resten av det jag har tänkt mig när jag väl lyckas läsa in texfilen.
EDIT: Nu lyckades jag få in koden snyggt direkt i meddelandet också. Som ni ser så överlappar kolumnerna varandra så att säga på vissa ställen... /EDIT
MvH
Patrik
[KOD]
Rond1 Hål Spelare / Klubb Klass Hcp Tee Esl
08:00 1 46 LAGERGREN, HÅKAN NiGK A 8,8 Gul 9
24 Morrison, David Best G C -NL A 8,2 Gul 8
08:10 1 42 Bärtfors, Åke TruGK A 7,3 Gul 7
39 Boström, Jens TruGK A 9,2 Gul 9
40 Ahlberg, Stig TruGK A 10,9 Gul 11
08:20 1 14 Hultén, Björn TruGK A 10,4 Gul 11
15 Augustsson, Emil TruGK A 8,7 Gul 9
33 Ivarsson, Magnus TruGK B 16,9 Gul 18
08:30 1 9 Andersson, Alvar Trummenäs GK B 14,7 Gul 15
7 Jönsson, Jan Trummenäs GK B 12,0 Gul 12
[/KOD]
Comment