Kako Procitati .Text File sa VBS tako da Bude Formatiran

[ zoksula @ 18.11.2008. 06:57 ] @

Cao svima,

Treba 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

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

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 .

[ zoksula @ 18.11.2008. 09:38 ] @

Nije valjda da nije moguce ?

[ Blue82 @ 18.11.2008. 17:57 ] @

Za drugo pitanje:

Code:

for i = 1 to m
urlpatch ="c:\mika"+str(i)+".txt"
'urlpatch ="c:\mika"&str(i)&".txt"
'moze i na ovaj nacin ili sa plusevima potpuno je svejedno, kako ti se vise svidja
/onda radi ucitavanje /
next

A odgovor na prvo pitanje... e to cu napisati u sledecem postu, zaboravio sam koje je pitanje :)

_{[Ovu poruku je menjao Blue82 dana 19.11.2008. u 00:59 GMT+1]}

[ Blue82 @ 18.11.2008. 18:14 ] @

Ne razumem gde zelis da text snimis u VB pa ti evo kod pomocu koga citas liniju po liniju i novi red pa ga ti smestaj vec gde zelis da bude ispisano.

Code:

Wrap$=chr$(13) + chr$(10)
open"Ime_datoteke.dat" for input as #1
do until EOF(1)
    line input #1,lineOfText$
    alltext$=allText$ & LineOfText$ & Wrap$
loop
    RichTextBox1 = alltext$

Promenjiva AllText$ sadrzi sredjen text.
ja sam ga upisao u RichTextBox1 pa ti probaj da vidis da li radi, a posle sa tom promenjivom radi vec sta ti treba za program.Ne mora da ide u RichTextBox1, samo se tu najbolje vidi jer je iz njega text najpregledniji.
Pozdrav!

_{[Ovu poruku je menjao Blue82 dana 19.11.2008. u 00:52 GMT+1]}

[ Eurora3D Team @ 25.11.2008. 14:00 ] @

Mozes ovako ...
Citanje fajla

Code:

'script.vbs
Dim file
file = "C:\tekst.txt"
Dim buffer' ovde ce da bude tekst
Dim fso, fs
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
Set fs = fso.OpenTextFile(file, 1)
While Not fs.AtEndOfStream
buffer = buffer & fs.ReadLine & Chr(13) & Chr(10) ' Citamo jednu liniju i stavljamo znak za novi red
Wend
End If
MsgBox buffer

i ovo drugo

Code:

For i = 1 To 7
urlpatch = "c:\mika" & i & ".txt"
'/onda radi ucitavanje /
Next i

[ Blue82 @ 25.11.2008. 17:48 ] @

Nisam probao ali ovo poslednje nece da radi m-m 99%. Operator & sluzi za povezivanje stringova a kako "i" nije string izbacice gresku. Moras "i" konvertovati u string pre spajanja sa stringom. I stvarno ne znam zasto stalno neko resava vec rewsene probleme :p

[ zoksula @ 25.11.2008. 17:52 ] @

Hvala ljudi nasao sam resenje ...

Sintaksa nije bas ta ali je dosta slicna jer ja koristim VBS a ne obican Visual Basic.

[ Blue82 @ 25.11.2008. 19:32 ] @

VBS je Visual Basic Studio? Ovi svi primeri su iz njega

[ zoksula @ 25.11.2008. 19:42 ] @

>

Ne ne visual basic script !

[ Eurora3D Team @ 25.11.2008. 19:57 ] @

Citat:

Blue82: Nisam probao ali ovo poslednje nece da radi m-m 99%. Operator & sluzi za povezivanje stringova a kako "i" nije string izbacice gresku. Moras "i" konvertovati u string pre spajanja sa stringom. I stvarno ne znam zasto stalno neko resava vec rewsene probleme :p

Koje resene probleme :) ?
Oba primera koje si ti okacio nerade. Covek je trazio VBS (VB Script)
Ovaj drugi kod koji sam ja okacio radi u VBS-u ako se Next i promeni u Next ... inace 99% primera koje kacim prvo proverim a obicno i dobro razumem pitanja :)
VBS se testira tako sto se script napise u npr. Notepadu i snimi za ekstenzijom vbs (fajl.vbs)
Poz

Code:

'script.vbs
For i = 1 To 7
urlpatch = "c:\mika" & i & ".txt"
MsgBox urlpatch
Next

[ Blue82 @ 25.11.2008. 20:59 ] @

Iz mog poslednjeg posta vidi se gde je problem VBS :)

[ Eurora3D Team @ 25.11.2008. 21:34 ] @

Da ... a i velika je sansa da se VBS pitanja pogresno shvate na ovom forumu, jer je forum za VB6 ...

_{[Ovu poruku je menjao Eurora3D Team dana 25.11.2008. u 22:56 GMT+1]}

[ Blue82 @ 25.11.2008. 23:31 ] @

A i jesam ga lupio... pazi Visual Basic Studio ahaha, sad mi tek dolazi do mozga kad sam procitao. Da je makar visual studio basic pa da ono basic smestim u neko blize odredjenje ali onako... :D
Idem da spavam, kazu jutro je pametnije od veceri... Visual Basic Studio :D ... zZzz (stupid)