20. september 2011 - 08:31
Der er
2 kommentarer og 1 løsning
hent hver linie i et txt dokument
Er det muligt at hente hver linie ud fra en tekst fil, på følgende måde. txt fil: ---------------- linie1 linie2 linie3 linie4 ------------------- vb: p1=linie1 p2=linie2 p3=linie3 p4=linie4 ---------------------- det gør intet at jeg skal skal angive hver "p=" men hvordan får man dem pejet ind på hver sin linie fra et tekst dokument.
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
20. september 2011 - 09:28
#1
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("\\info-adm-01\script", ForReading) For i = 1 to 1 Mads = objTextFile.ReadLine Next For i = 2 to 2 Peter = objTextFile.ReadLine Next For i = 3 to 3 Jens = objTextFile.ReadLine Next For i = 4 to 4 Kenth = objTextFile.ReadLine Next For i = 5 to 5 Finn = objTextFile.ReadLine Next objTextFile.Close
20. september 2011 - 11:42
#2
Lidt kortere version: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("\\info-adm-01\script", ForReading) Mads = objTextFile.ReadLine Peter = objTextFile.ReadLine Jens = objTextFile.ReadLine Kenth = objTextFile.ReadLine Finn = objTextFile.ReadLine objTextFile.Close :-)
20. september 2011 - 12:04
#3
ja ok det er jo lidt mere simpelt :)
Kurser inden for grundlæggende programmering