Comment faire pour supprimer Accents dans une chaîne VB6

Comment faire pour supprimer Accents dans une chaîne VB6


Il y a plusieurs personnages différents qui représentent un accent. Les accents graves, aigus tilde et 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 y a 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 d'une autre demande écrite dans un autre langage de programmation, il pourrait être nécessaire d'enlever l'accent avant que l'autre application peut traiter.

Instructions

1 Créer un nouveau programme Visual Basic EXE standard. Ajouter la capacité de lire et traiter les données à partir d'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 à l'API Windows pour la gestion des fichiers.

2 Déclarer deux variables, comme une "FileSystemObject" et l'autre comme un «TextStream»:

Dim oFSO comme New Scripting.FileSystemObject

Dim oMyFile comme Scripting.TextStream

Ensuite, ouvrez le fichier pour la lecture dans le TextStream.

Set oMyFile = oFSO.OpenTextFile (FileName, ForReading)

déclarer également une variable pour contenir chaque ligne du TextStream comme "Dim sLineRead as String."

3 Traiter la ligne de fichier texte en ligne dans une boucle écrite comme "While Not oMyFile.AtEndOfStream." Set "sLineRead" égale à une ligne de texte à partir du TextStream:

sLineRead = oMyFile.ReadLine

S'il y a des accents contenus dans "sLineRead" vous pouvez les remplacer par une autre valeur à l'aide "remplacer" la méthode de VB.

4 Identifier le caractère d'accent à supprimer. Par exemple, le texte contenant "e" peut être remplacé par un "e" avant d'afficher ou d'insérer les données dans une base de données:

sLineRead = Remplacer (sLineRead, "è", "e")

Cette ligne de code remplace toutes les instances de "è" avec "e" dans la ligne de texte lu dans "sLineRead" sans changer les données d'origine.