Kako Procitati .Text File sa VBS tako da Bude FormatiranTreba da procitam tekst iz txt ali lepo formatiran dakle sa enterima i sa prescima u novi red i da ih ubacim u VBS string.
Kod ispod radi ok, ali mi brise svaki enter tj prelazak u novi red tj text je potpuno neformatiran.
Code:
urlpatch = "c:\mika.txt"
article = ""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
(urlpatch, ForReading)
Do Until objTextFile.AtEndOfStream
article = article + objTextFile.Readline
Loop
urlpatch = "c:\mika.txt"
article = ""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
(urlpatch, ForReading)
Do Until objTextFile.AtEndOfStream
article = article + objTextFile.Readline
Loop
Naravno <b>article</b> je string koji na kraju dobijam ciranjem iz file-a mika.txt.
Da li postoji nacin da se to uradi.
A imam i jos jedno kratko pitanjce:
Code:
for i = 1 to m
urlpatch = "c:\mika.txt"
/onda radi ucitavanje /
next
for i = 1 to m
urlpatch = "c:\mika.txt"
/onda radi ucitavanje /
next
Dakle kako da upisem broj i na kraju stringa urlpatch.
Hocu da imam za i=1 urlpatch = "c:\mika1.txt"
za i=2 urlpatch = "c:\mika2.txt"
I tako redom.Naravno znam da to mogu pomocu if-a ali meni i ponekada ide i do 500 tako da je to naporno pisati.
Mora da ima neki laski nacin.Mada npr urlpatch = urlpatch + i ne funkcionise .
