Databasen programmet Microsoft Access har ett programmeringsspråk som kallas Visual Basic ( VB ) inbyggd i den . Du kan programmera VB att automatisera någon av tillgång " kommandon , inklusive de för modifiering textfiler . Ändra sådana filer med VB innebär att man använder den " öppna " kommandot , kombinerat med uttalanden som utför önskade ändringar på texten . Ändra textfiler med Access ' VB språket kan du bearbeta människa läsbara data som lagras på din hårddisk , kanske som förbehandling för ytterligare datahantering via Access " standardgränssnitt . Saker du behöver
Microsoft Access 2003
Visa fler instruktioner
1
Open Access , tryck sedan på " Alt " + " F11 " för att komma in i VB integrerad utvecklingsmiljö ( IDE ) .
2
Klicka på " Infoga " -menyn rubrik , följt av " modul " i menyn . Detta kommandot infogar en ny kod fönster där du kan ange programkod
3
klistra in följande kod någonstans i den nya koden fönstret : .
Public Sub ModifyTextFile ( )
Dim sometext
Öppna " c : \\ infile.txt " För Input Som # 1
Öppna " c : \\ outfile.txt " För Output Som # 2 Review
Do While Not EOF ( 1 ) katalog
Linjeinmatning # 1 , sometext
" Process text här
Print # 2 , sometext
Loop
Close # 1
Stäng # 2 Review
Kill " c : \\ infile.txt "
Name " c : \\ outfile.txt " Som " c : \\ infile.txt "
End Sub
Dessa uttalanden öppna textfiler för att läsa och skriva , sedan läsa varje rad i indatafilen . Den " Print " uttalande skriver varje linje , utan bearbetning , till utgången textfil . När programmet stängs in-och utgående filer , det tar bort indatafilen och döper utdatafilen med indatafilen filnamn . Detta resultat av denna process är den ursprungliga indatafilen. Den kommentaren " Process text här " visar var du kan infoga kod som modifierar den inskrivna texten . Du kommer ändra input text i de kommande stegen .
4
Typ över kommentaren " " Process text här " i påståendet " sometext = UCase ( sometext ) , " som kommer att konvertera varje tecken i indatafilen till versaler . Denna åtgärd är ett exempel på att modifiera indatafilen .
5
Skapa , använda Anteckningar eller någon annan ordbehandlare , en textfil med alla gemener text du vill . Spara filen som " c : \\ infile.txt , " stäng sedan filen . Dessa åtgärder kommer att göra det möjligt för subrutinen du skrev i steg 3 för att läsa filen .
6
Klicka något uttalande i " ModifyTextFile " subrutin , tryck sedan på " F5 " för att köra programmet .
7
åter öppna filen du skapade i steg 5 . Din ordbehandlare visas samma text som du skrev i alla versaler
8
Typ över , i VB IDE , uttalandet " sometext = UCase ( sometext ) " med dessa nya uttalanden : .
Om ( sometext = " före " ) Sen
sometext = " efter "
End If
9
Öppna " c : \\ infile.txt " i din ordbehandlare och skriv åtminstone en förekomst av ordet " tidigare ", sedan åter spara och stäng filen .
10
Kör programmet igen , som du gjorde i steg 6 .
11
Re - open " C : . \\ infile.txt " Alla förekomster av ordet " före " visar nu " efter . " Detta visar hur din text - modifiering program kan ersätta en textsträng med en annan .
