Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come rimuovere Accenti in una stringa di VB6

Ci sono diversi personaggi che rappresentano un accento. La tomba, segni di accento tilde e acuta sono rappresentati da un carattere speciale sopra la lettera nella parola . Anche se non ci sono molte parole inglesi con accenti , ci sono diversi in francese e spagnolo . Durante la ricezione o l'invio di dati francesi o spagnoli da Visual Basic a un database o da un'altra applicazione scritta in un altro linguaggio di programmazione , potrebbe essere necessario rimuovere l' accento prima che l' altra applicazione in grado di elaborarlo. Istruzioni
1

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