|
Il ya plusieurs personnages différents qui représentent un accent. Les graves , des accents tilde et aigus sont représentés par un caractère spécial sur la lettre dans le mot. Bien qu'il n'y ait pas beaucoup de mots anglais avec des accents , il existe plusieurs en français et en espagnol. Lors de la réception ou l'envoi de données en français ou en espagnol à partir de Visual Basic soit une base de données ou une autre application écrite dans un autre langage de programmation , il peut être nécessaire d'enlever l' accent devant l'autre application peut traiter. Instructions
1 Créer un nouveau EXE programme Visual Basic standard . Ajouter la capacité de lire et traiter les données dans un fichier externe en sélectionnant « projet» et « Références ». Cochez la case à côté de " Microsoft Scripting Runtime " et cliquez sur "OK " pour enregistrer . Cela donne l' accès au programme de l'API Windows pour la gestion des fichiers
2 déclarer deux variables: . Une comme " FileSystemObject » et l'autre comme un « TextStream " :
Dim FOSO comme New Scripting.FileSystemObject
oMyFile As Scripting.TextStream
Ensuite , ouvrez le fichier pour la lecture dans le TextStream .
Set oMyFile = oFSO.OpenTextFile ( FileName, ForReading )
déclare également une variable pour stocker chaque ligne de la TextStream comme « sLineRead As String. "
3 processus de la ligne de fichier texte en ligne dans une boucle écrite que " While Not oMyFile.AtEndOfStream . " Réglez " sLineRead " égale à une ligne de texte à partir de la TextStream :
sLineRead = oMyFile.ReadLine
S'il ya des accents contenus dans " sLineRead " vous pouvez les remplacer par une autre valeur à l'aide de VB " remplacer" méthode .
4 Identifier le caractère accentué à être éliminé . Par exemple , un texte contenant "E" peut être remplacé par "e" avant d'afficher ou insérer les données dans une base de données :
sLineRead = Replace ( sLineRead , "E" , "e" ) < br > Cette ligne de code remplace toutes les occurrences de "e" avec "e" dans la ligne de texte lu dans " sLineRead " sans changer les données d'origine .
|
