Er zijn verschillende karakters die een accent vertegenwoordigen . Het graf , tilde en acute accenttekens worden vertegenwoordigd door een speciaal teken op de letter van het woord . Hoewel er niet veel Engels woorden met accenten , zijn er verschillende in het Frans en het Spaans . Bij het ontvangen of verzenden van Frans of Spaans gegevens van Visual Basic om ofwel een database of een andere applicatie geschreven in een andere programmeertaal , kan het nodig zijn om het accent te verwijderen voordat de andere toepassing kan het te verwerken. Instructies
1 Maak een nieuw standaard-EXE Visual Basic -programma . Voeg de mogelijkheid om gegevens uit een extern bestand te lezen en te verwerken door het selecteren van " Project " en " Referenties . " Vink het vakje aan naast " Microsoft Scripting Runtime " en klik op "OK " om op te slaan . Dit geeft het programma toegang tot de Windows API voor bestandsbeheer kopen van 2 Declare twee variabelen : . Men als een " FileSystemObject " en de andere als een " TextStream " : Dim oFSO
als New Scripting.FileSystemObject Dim oMyFile
als Scripting.TextStream
Vervolgens opent u het bestand voor het lezen in de TextStream .
Set oMyFile = oFSO.OpenTextFile ( FileName , ForReading ) op ook een variabele declareert aan elke regel van de TextStream houden als " Dim sLineRead als String . "
Proces 3 de tekst bestand regel voor regel binnen een lus geschreven als "Terwijl Niet oMyFile.AtEndOfStream . " Stel " sLineRead " gelijk aan een regel tekst uit het TextStream : sLineRead = oMyFile.ReadLine
Als er accenten in " sLineRead " je kunt ze vervangen door een andere waarde met VB 's methode " vervangen " .
4 Identificeer het accent teken dat moet worden verwijderd . Zo kan tekst met " è " worden vervangen door " e " voorafgaand aan het weergeven of het inbrengen van de gegevens in een database:
sLineRead = Vervang ( sLineRead , " è " , " e " ) < br > Deze regel code vervangt alle exemplaren van " è " met " e " in de regel tekst te lezen in " sLineRead " zonder enige van de oorspronkelijke gegevens .
|
