Traitement de données d'un fichier [Résolu]

Messages postés
9
Date d'inscription
vendredi 25 janvier 2008
Statut
Membre
Dernière intervention
24 février 2011
- - Dernière réponse : larcyr
Messages postés
9
Date d'inscription
vendredi 25 janvier 2008
Statut
Membre
Dernière intervention
24 février 2011
- 24 févr. 2011 à 11:10
Bonjour,

je suis à la recherche d'une idée ou d'un coup de main. Je m'explique je récupère des données d'un banc de test que je renvois dans une BDD, jusque là ça se passe bien

Par contre (et oui il fallait bien un problème sinon je n'aurais pas poster ce message) je récupère un champ texte que j'affiche dans une MSFlexGrid. Ce champs n'est pas très visuel la preuve dans l'exemple ci dessous:
== {RX test (High Chan level2)} ====<cr>[Execute BER/FER test]<cr>[Error system : 106 executing the step with C/CVI Flexible Prototype Adapter]<cr>Probleme au lancement du test du BER (Pas d acquittement du Built In Test)<cr><cr>

Ce que j'aurais souhaité c'est en cliquant sur la ligne dans ma MSFlexGrid ses données se mettent dans une Label dans mon IHM mais interpréter de façon plus visuel exemple

== {RX test (High Chan level2)} ====
[Execute BER/FER test]
[Error system : 106 executing the step with C/CVI Flexible Prototype Adapter]
Probleme au lancement du test du BER (Pas d acquittement du Built In Test)


Dans cette exemple il y a uniquement des <cr> mais je peux avoir tout type de caractère ASCI.

Y a t il un moyen d'interpréter les caractères ASCI dans mon code sans avoir à tous les déclarer et quand dans mon label il soient bien interpréter?

Merci pour vos idées
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
1
3
Merci
Bonsoir,

Ci-dessous code qui permet de repérer la chaine "cr" et de la remplacer par un retour à la ligne.

Le code est a approfondir, pour l'exemple ci-dessous, la lecture est faite à partir d'un fichier texte.

J'espère que cela va vous aider.

Didier


Public Sub Lecture_CR()

'fichier
Open App.Path & "\TEST.txt" For Input As #1

Dim Rinstr As Integer
Dim Wl As String
Dim Wretour As String


'

Wretour = Chr$(10)

Do While Not EOF(1)

Line Input #1, Ilecture

Wl = Replace(Ilecture, "cr", Wretour)

Debug.Print Wl

Loop

MsgBox "Terminé ... "


End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 211 internautes nous ont dit merci ce mois-ci

Commenter la réponse de marion8316
Messages postés
9
Date d'inscription
vendredi 25 janvier 2008
Statut
Membre
Dernière intervention
24 février 2011
0
Merci
Merci Didier,

c'est pas optimum mais je vais pouvoir m'en sortir avec ça
Commenter la réponse de larcyr