Open Access , en druk vervolgens op " Alt " + " F11 " om het VB geïntegreerde ontwikkelomgeving ( voer IDE ) . kopen van 2

Klik op het menu "Invoegen " rubriek , gevolgd door de "Module " menu-item . Dit commando voegt een nieuwe code venster voor u om programmacode invoeren
3

Plak de volgende code ergens in het nieuwe venster code : .

Public Sub ModifyTextFile ( ) op < br >

Dim someText

Open " c: \\ infile.txt " For Input Als # 1

Open " c: \\ outfile.txt " For Output Zoals # 2

Do While Not EOF ( 1 )

Line Input beelden # 1 , someText

' Proces tekst hier

Print beelden # 2 , someText

Loop

Close # 1

Sluiten # 2

Kill " c: \\ infile.txt "

Name
" c: \\ outfile.txt " As " c : \\ infile.txt "

End Sub

Deze verklaringen openen tekstbestanden voor het lezen en schrijven , dan lees elke regel van het invoerbestand . De " Print " statement schrijft elke regel , zonder bewerking , om de output tekstbestand . Nadat het programma sluit de input en output -bestanden , het verwijdert de input file en hernoemt het output bestand met de bestandsnaam van de input file 's . Dit resultaat van dit proces is de oorspronkelijke invoerbestand . Het commentaar "Process tekst hier " laat zien waar je code die de ingevoerde tekst wijzigt kunt invoegen . U vindt de tekst invoeren in de volgende paar stappen te wijzigen .

Type 4 over de opmerking " ' Process tekst hier " met de verklaring " someText = UCase ( someText ) , " die zal elk karakter omzetten in het invoerbestand naar hoofdletters . Deze actie is een voorbeeld van het wijzigen van het invoerbestand .
5

Maak , met behulp van Kladblok of een andere tekstverwerker , een tekstbestand met eventuele kleine tekst u wilt . Sla het bestand op als " c: \\ infile.txt , " sluit het bestand . Deze acties zullen de subroutine schreef je in stap 3 om het bestand te lezen staat .
6

Klik op een verklaring in de " ModifyTextFile " subroutine , druk daarna op " F5 " om het programma uit te voeren .
< br > 7

opnieuw open het bestand dat u hebt gemaakt in stap 5 . Uw tekstverwerker zal dezelfde tekst die u in hoofdletters geschreven worden weergegeven

Type 8 over, in de VB IDE , de verklaring " someText = UCase ( someText ) " met deze nieuwe verklaringen : . < Br >

Als ( someText = " vóór " ) dan

someText
= " na "

Eind
Als
9

Open " c: \\ infile.txt ' in uw tekstverwerker en typ ten minste een exemplaar van het woord " vóór ", vervolgens opnieuw te slaan en sluit het bestand .

Run 10 het programma opnieuw , zoals u deed in stap 6 . < br >
11

Re - open " c: . \\ infile.txt " Alle vermeldingen van het woord " voordat " nu weer "na . " Dit toont aan hoe uw tekst - wijziging programma een tekenreeks kan vervangen door een andere .