[VB] textfile laten zien

[Verwijderd]

Hallo,

Ik wil onder visual basic wil ik op een knop drukken en dan wil ik de text uit een bestand tonen.
Het gaat hier om versie informatie, zodat ik bij elke versie kan laten zien wat ik veranderd heb en wat niet en wel werkt. Het gaat dus om een grote hoeveelheid text en niet 1 regel.

Nu heb ik al iets geprobeerd met de openTextFile Methode en relevanten maar het beste wat ik tot nu toe heb is een MsgBox die me regel voor regel de tekstfile laat zien na op OK gedruk te hebben.
voorbeeld:
---------------------Textfile.-----------
Hello world
Gaat dit lukken.
-------------------Output----------------
Msg box: Hello world -> OK
Msg box: Gaat dit lukken -> OK

Hoe krijg ik nou gewoon in 1 keer alle regels uit het textbestand?

m.v.g flykiller

[Luppie]

Ik heb hier een stukje code met hoe ik het zelf doe.

code:

Private Sub mnuFileOpen_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then GoTo Einde
frmUnattendData.List1.Clear

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Data
frmUnattendData.List1.AddItem (Data)
Loop
Close #1
Einde:
End Sub

CommonDialog1.ShowOpen geeft een file openen scherm (windows style)

Open CommonDialog1.FileName For Input As #1 opent het bestand wat je in de file openen dialoog hebt aangeklikt. CommonDialog1.FileName kan je evt. ook vervangen met de te openen bestandsnaam bv. ("c:\tekstfile.txt")

Do While Not EOF(1) zorgt er voor dat de code doorloopt tot het einde van het bestand (End Off File)

[ Voor 41% gewijzigd door Luppie op 09-02-2004 13:00 ]

[Verwijderd]

Als ik je code goed begrijp open je eerst een bestand met een open dialog venster.
En vervolgens schrijf je de code weg in een listbox?

mvg

[Luppie]

Klopt helemaal, hij schrijft regel voor regel naar een listbox (totdat EOF bereikt is)

[ Voor 72% gewijzigd door Luppie op 09-02-2004 13:02 ]

[Verwijderd]

code:

Open "C:\About.txt" For Input As #1
Do While Not EOF(1)
Input #1, Data
frmUnattendData.List1.AddItem (Data)
Loop
Close #1

geeft de melding: object required bij de lijn:
frmUnattendData.List1.AddItem (Data)

wat is die frmUnattendData???

[ Voor 3% gewijzigd door Verwijderd op 09-02-2004 13:08 ]

[Luppie]

Verwijderd schreef op 09 februari 2004 @ 13:06:
wat is die frmUnattendData???

Dat is de form waar list1 in aangemaakt is. Dit moet je evt. hernoemen naar de form waarin jij je code gebruikt.

[ Voor 6% gewijzigd door Luppie op 09-02-2004 13:09 ]

[Verwijderd]

Cobra_Lup schreef op 09 februari 2004 @ 13:08:
[...]


Dat is de form waar list1 in aangemaakt is. Dit moet je evt. hernoemen naar de form waarin jij je code gebruikt.

Juist het is gelukt.
Ik schrijf het nu weg naar een listbox.
die unattenddata ding was voor de opendialog box die ik niet gebruikte.
ik heb het gewoon weggehaald en met
List1->AddItem (Data)
werkt het mooi!

hartstikke bedankt!!

[curry684]

Verwijderd schreef op 09 februari 2004 @ 13:06:
geeft de melding: object required bij de lijn:
frmUnattendData.List1.AddItem (Data)

wat is die frmUnattendData???

Uhm beetje zelf nadenken over de code die je krijgt mag ook wel hoor, dit ligt wel extreem voor de hand

[Verwijderd]

je hebt gelijk.
Stom van me.

Ik heb nog een beetje lopen knutselen en heb nu ook door wat je bedoelde met die frmunattenddata

Dat word dan een mooie popup venster.

ik heb hem aboutform genoemd en heb dus ook het form laten showen

code:

aboutform.list1.additem (data)
.....

aboutform.show

Het werkt heel mooi.

Bedankt.
(er mag een slotje op )