Kako Procitati .Text File sa VBS tako da Bude Formatiran

Kako Procitati .Text File sa VBS tako da Bude Formatiran 18.11.2008. u 07:57 · pre 218 meseci #1

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 .

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 18.11.2008. u 10:38 · pre 218 meseci #2

Nije valjda da nije moguce ?

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 18.11.2008. u 18:57 · pre 218 meseci #3

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 :)

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 18.11.2008. u 19:14 · pre 218 meseci #4

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!

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 15:00 · pre 218 meseci #5

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

Potpis

HomePage http://www.eurora3d.com

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 18:48 · pre 218 meseci #6

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

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 18:52 · pre 218 meseci #7

Hvala ljudi nasao sam resenje ...

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

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 20:32 · pre 218 meseci #8

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

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 20:42 · pre 218 meseci #9

>

Ne ne visual basic script !

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 20:57 · pre 218 meseci #10

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

Potpis

HomePage http://www.eurora3d.com

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 21:59 · pre 218 meseci #11

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

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 25.11.2008. u 22:34 · pre 218 meseci #12

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

Potpis

HomePage http://www.eurora3d.com

Re: Kako Procitati .Text File sa VBS tako da Bude Formatiran 26.11.2008. u 00:31 · pre 218 meseci #13

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)

Forum kao aplikacija na telefonu

Srodne teme