[VB] Schrijven van tekst

[Facer]

Mijn programma lees een HTML bestand in dus bijvoorbeeld :

code:

<SEARCHKEYWORDS>trillian, plugins, plugin, trillian download, download</SEARCHKEYWORDS>

En dan voegt er er want andere dingen aantoe en schrijf het in een ander bestand het probleem is nu alleen dat die bij elke , een ENTER doet en de , weghaald wie weet hoe ik dit kan oplossen ?

Ik lees met de code

code:

Private Sub Inlezen()
Dim X As Integer

X = 0
Open "c:\test.html" For Input As #1
Do Until EOF(1)
X = X + 1
Input #1, Regel(X)
Tellen = Tellen + 1
Loop
Regel(teller+1)= "Dit is een test"
Tellen = Tellen + 1
Close #1

End Sub

en schrijf met de code

code:

Private Sub Schrijven()
Dim X As Integer

Open "c:\test.log" For Output As #1
For X = 1 To Tellen
Print #1, Regel(X)
Next X
Close #1

End Sub

[Verwijderd]

Input #1, Regel(X) --> Line Input #1, Regel(X)



Of zo:

code:

Private Regel() as String


Private Sub Inlezen()

Dim StrInhoud as String 
Dim x as integer
Dim Fp as Integer
Fp = FreeFile



Open "C:\test.html" For Binary As Fp

StrInhoud  = Space(Lof(Fp))

Get Fp, , StrInhoud

Close Fp

Regel = Split(StrInhoud,VbNewLine)


Debug.Print  ubound(Regel)+1; "Regel(s) Gelezen"
Debug.Print 

for x = 0 to ubound(regel)
Debug.Print x+1; regel(x)
next x

End sub




Private Sub Schrijven()

Dim Fp as Integer
Fp = FreeFile

Open "c:\test.log" For Binary As Fp
   put fp , , regel()
Close Fp

End Sub

[Facer]

Het werkt thnx

[mOrPhie]

Neem even een kijkje naar het FileSystemObject. Die zit in de Microsoft Scripting Runtime (reference).

Da's een heel mooi ding om filebewerking/lezen uit te voeren. Via het filesystemobject is het sowieso een stuk sneller als het om veel tekst gaat.

[kauwgomballen]

ik denk dat het probleem is dat ie de komma als scheidingsteken ziet...

[Facer]

Op woensdag 03 juli 2002 01:39 schreef mOrPhie het volgende:
Neem even een kijkje naar het FileSystemObject. Die zit in de Microsoft Scripting Runtime (reference).

Da's een heel mooi ding om filebewerking/lezen uit te voeren. Via het filesystemobject is het sowieso een stuk sneller als het om veel tekst gaat.

Nog nooit wat meegedaan eigenlijk maar zal er morgen wel is verder in verdiepen nu is het te laat om nog wat bij te leren

[Verwijderd]

Op woensdag 03 juli 2002 01:41 schreef Kauwgomballen het volgende:
ik denk dat het probleem is dat ie de komma als scheidingsteken ziet...

Klopt helemaal. En dit is ook "By Design".
Wil je een regel lezen, dan moet je de opdracht "Line Input" gebruiken... (klinkt logisch )

code:

  Line Input #1, Regel(X)

Laatste tip, kijk ook eens naar de functie "FreeFile()"

[Facer]

Wat kan je met FreeFile() want wat MSDN erover te zeggen hebt is een beetje raar

code:

Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5   
   fileNumber = FreeFile()
   FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
   PrintLine(fileNumber, "This is a sample.")
   FileClose(fileNumber)
Next

Betekent dit dat die dus de volgende bestanden kan lezen:
TEST1.TXT
TEST2.TXT
TEST3.TXT
TEST4.TXT
TEST5.TXT ?

[Sponge]

filenumber is hetzelfde als (in theorie) een poort op je PC, staat ie open, dan kan ie niet meer gebruikt worden door iets anders.

FreeFile geeft een beschikbaar 'bestandsnummer'.. als je #1 er hard neerzet en je ergens anders ook een bestand met #1 opent krijg je problemen