Open Access , quindi premere " Alt " + " F11 " per entrare nell'ambiente VB integrato di sviluppo ( IDE ) .
2 Fare clic sul menu "Inserisci" intestazione , seguita dalla voce di menu "Modulo" . Questo comando inserisce una nuova finestra del codice per l'inserimento di codice di programma
3
incollare il seguente codice ovunque nella nuova finestra del codice : .
Public Sub ModifyTextFile ( )
Dim someText
aprire "C: \\ infile.txt " For Input As # 1
aprire "C: \\ outfile.txt " For Output As # 2
Do While Not EOF ( 1 ) per
Line Input # 1 , someText
'testo Process qui
Print # 2 , someText
loop
Chiudere # 1
Chiudere # 2
Kill " c : \\ infile.txt "
Nome "c : \\ outfile.txt " Come " c : \\ infile.txt "
End Sub
Queste dichiarazioni aprire i file di testo per la lettura e la scrittura , quindi leggere ogni riga del file di input . L'affermazione "Stampa" scrive ogni riga , senza elaborazione , per il file di testo di output . Dopo che il programma chiude i file di input e di output , cancella il file di input e di rinominare il file di output con il nome del file di input. Questo risultato di questo processo è il file di input originale . Il commento "testo di processo qui " mostra dove è possibile inserire il codice che modifica il testo di input . Potrai modificare il testo di input nei prossimi passaggi .
4
Tipo sul commento "' Testo di processo qui " con la " someText = UCase ( someText ) , " dichiarazione che converte ogni carattere nel file di input in lettere maiuscole. Questa azione è un esempio di modifica del file di input .
5
Creare , utilizzando il blocco note o qualsiasi altro elaboratore di testo , un file di testo con il testo in minuscolo vuoi . Salvare il file come "c : \\ infile.txt ", quindi chiudere il file . Tali azioni consentiranno alla subroutine che hai scritto al punto 3 per leggere il file .
6
Clicca dichiarazioni nel sottoprogramma " ModifyTextFile ", quindi premere "F5" per eseguire il programma .
7
Riaprire il file creato nel passaggio 5 . Il vostro word processor visualizzerà lo stesso testo che hai scritto in lettere maiuscole
8
tipo sopra , nel VB IDE , l'affermazione " someText = UCase ( someText ) " , con queste nuove dichiarazioni : .
( someText = "prima" ) Poi
someText = " dopo"
End If
9
aprire "C: \\ infile.txt "nel vostro word processor e il tipo di almeno una istanza della parola " prima ", poi ri- salvare e chiudere il file.
10
Esegui nuovamente il programma , come avete fatto al punto 6.
11
Re -open "c : \\. infile.txt " Tutte le occorrenze della parola "prima " ora visualizzare " dopo ". Questo mostra come il vostro programma di text- modifica può sostituire una stringa di testo con un altro .
Programmazione © www.354353.com