Creare un nuovo EXE programma Visual Basic standard . Aggiungere la capacità di leggere ed elaborare i dati da un file esterno selezionando "Progetto" e "Riferimenti ". Seleziona la casella accanto a "Microsoft Scripting Runtime " e fare clic su " OK" per salvare . Questo dà l' accesso al programma per l'API di Windows per la gestione dei file
2
dichiarare due variabili: . Uno come " FileSystemObject " e l'altro come un " TextStream " :
Dim oFSO come New Scripting.FileSystemObject
Dim oMyFile come Scripting.TextStream
Quindi, aprire il file in lettura nella TextStream .
oMyFile = oFSO.OpenTextFile ( FileName , ForReading ) per
dichiarare anche una variabile per contenere ogni riga del TextStream come " Dim sLineRead come String . "
3
processo il file riga per riga di testo all'interno di un ciclo scritto come "Mentre Non oMyFile.AtEndOfStream . " Impostare " sLineRead " pari ad una linea di testo dal TextStream :
sLineRead = oMyFile.ReadLine
Se ci sono accenti contenuti nel " sLineRead " è possibile sostituirli con un altro valore utilizzando VB di " sostituire" il metodo .
4
Identificare il carattere accento da rimuovere . Ad esempio, il testo contenente " E " può essere sostituito con "e" prima di visualizzare o inserire i dati in un database :
sLineRead = Replace ( sLineRead , " E", " E")
Questa riga di codice sostituisce tutte le istanze di " e" con "e" all'interno della linea di testo letto in " sLineRead " senza modificare i dati originali.
Programmazione © www.354353.com