Es gibt verschiedene Zeichen, die einen Akzent darstellen . Die Grabstein, Tilde und Akut Noten werden durch ein spezielles Zeichen über den Buchstaben des Wortes vertreten. Obwohl es nicht viele englische Wörter mit Akzenten gibt es in Französisch und Spanisch mehrere . Beim Empfangen oder Senden von Französisch oder Spanisch Daten von Visual Basic entweder einer Datenbank oder einer anderen Anwendung in einer anderen Programmiersprache geschrieben , könnte es notwendig sein, den Akzent zu entfernen, bevor die andere Anwendung es verarbeiten kann. Anleitung
1
Erstellen Sie ein neues Standard EXE Visual Basic-Programm . Fügen Sie die Fähigkeit zu lesen und zu verarbeiten, Daten aus einer externen Datei , indem Sie " Projekt" und " Referenzen . " Aktivieren Sie das Kontrollkästchen neben " Microsoft Scripting Runtime" und klicken Sie auf "OK" um zu speichern. Dies gibt das Programm Zugriff auf die Windows -API für Datei-Handling
2
Declare zwei Variablen : . Ein als " FileSystemObject " und die andere als " TextStream ":
Dim oFSO als New Scripting.FileSystemObject
Dim oMyFile als Scripting.TextStream
nächstes öffnen Sie die Datei zum Lesen in die TextStream .
Set oMyFile = oFSO.OpenTextFile ( FileName , ForReading )
auch eine Variable deklarieren , um jede Zeile des TextStream als hold " Dim sLineRead als String . "
3
Prozess die Textdatei Zeile für Zeile in einer Schleife geschrieben als " While Not oMyFile.AtEndOfStream . " Set " sLineRead " gleich eine Textzeile aus dem TextStream :
sLineRead = oMyFile.ReadLine
Wenn es irgendwelche Akzente in " sLineRead " enthalten Sie sie mit einem anderen Wert mit VB ersetzen sind " ersetzen "-Methode.
4
Identifizieren der Akzent Zeichen entfernt werden.
SLineRead = Replace ( sLineRead , "E" , "e" )
Diese Codezeile ersetzt alle Instanzen von "E" mit "e" in der Textzeile in " sLineRead " ohne Änderung der ursprünglichen Daten zu lesen.