Advertentie | |
|
![]() |
|
Je hebt in je subroutine om en bestand te openen wel je bestand gekozen, maar je moet nog de volgende dingen doen om er ook echt iets mee te doen:
1) je bestand openen 2) de inhoud ervan lezen 3) de inhoud opslaan zodat je programma ermee kan werken (bv. als Excel een bestand opent, dan leest hij het bestand in, en gooit daarna alles in de juiste cellen van je spreadsheet), jij moet ook hetzelfde doen (dus het omgekeerde van het opslaan: daar zeg je dat hij die array moet uitlezen en wegschrijven naar het bestand; nu moet je het bestand uitlezen en wegschrijven naar de array). Vaak moet je trouwens eerst die array leegmaken, anders kom je met gemengde gegevens te werken (van het bestand waarmee je aan het werken was, en het nieuwe). 4) bestand sluiten (ik geloof dat dat in VB ook nodig is, maar ik zou het vanbuiten niet meer weten) 5) vaak zal je ook een bepaalde extra handeling moeten doen om je weergave te refreshen. Dit hangt ervan af. Stel dat je in jouw geval subroutines hebt om objecten aan die array toe te voegen, zal het waarschijnlijk niet nodig zijn. Als je het gewoon in de array gooit, kan het zijn dat het nog niet op het scherm getekend zou worden.
__________________
vaknar staden långsamt och jag är full igen (Kent - Columbus)
|
![]() |
|
dit kan heel gemakkelijk.
Uit een tekstbestand lezen doe je normaal gesproken zo Code:
naamString = Input (aantal tekens, [#] Nrbestand) Gebruik dan deze sub routine bijv in een menu item of button. Aanname dat je in een textbox tekst wil plaatsen.. Code:
private sub cmdlees_click() Dim aantTekens as long 'bestand Test.txt openen om te lezen met bestandsnummer #1 Open "A:\test.txt for input as #1 ' optioneel gebruik app.path om in dezelfde map een tekst bestand te openen aantTekens = LOF(1) 'aantal tekens bepalen Txtinhoud.text = input(aanttekens, #1) 'alle tekst tonen Close #1 'sluit het bestand met bestandsnummer #1 end sub |
Advertentie |
|
![]() |
|
|