Récuperer des variable dans un fichier .txt

Question

Bonsoir, 
Après plusieurs heures de recherche sur le net, je viens vers vous pour de l'aide. Je dois récupérer dans un fichier .txt plusieurs variables comme par exemple REC5000 = 0.02
REC5001 = 0.05
REC5009 = 0.01
etc.. , a savoir que la valeur affecté n'est jamais la même. Ensuite les récrire dans un autre fichier

Pour lire et réécrire le fichier .txt il y a pas de problème avec la méthode StreamReader et StreamWriter

Dim file As New System.IO.StreamReader("Monchemin")
        Dim words As String = file.ReadToEnd()
        file.Close()
Mon problème est que je sais pas comment m'y prendre pour récupérer ces variables a l’intérieur du fichier .txt, je n'est pas trouvé un exemple sur le net pour me guider.

Merci

Bonne soirée 

  
Laurent

ucfoutu · Answer

Bonjour,
Il sera bon que tu sois très précis en ce qui concerne les chaînes à extraire. Tes "par exemple" ne permettent pas de déterminer avec CERTITUDE si TOUTES les chaînes concernées commencent TOUJOURS par "REC" suivi de 4 chiffres, puis d'un " = " suivi d'une chaîne de format "#.##" ...
La structure de ton fichier a également son importance. Ces chaînes sont-elles "fondues" dans du texte sur des lignes ou constituent-elles, chacune, une ligne entière, etc ....

Whismeril · Answer

Bonjour

à l'instar d'Uc que je salue, sache que si ton fichier n'est pas rigoureusement ce que ton exemple montre, alors ma réponse ne sera pas entièrement valable.

Dans un premier temps, pour lire un fichier texte entièrement d'un coup, il est plus simple d'utiliser la classe File
Dim word As String = File.ReadAllText("MonFichier.txt")

Cependant dans ce cas (comme avec le streamreader) il te faudra ensuite séparer les lignes, or ton exemple montre une information par ligne, il serait donc plus simple de récupérer directement une collection contenant chaque ligne (un tableau par exemple)
Dim word As String() = File.ReadAllLines("MonFichier.txt")


Cela fait, il faut stocker tes données dans une variable (ou plutôt une collection de variables: une par ligne) facilement utilisable.
On va dire que la première partie est un nom et que la seconde est une valeur, le nom est un string (en supposant que tu ne veux pas récupérer le numéro) et la valeur un double.

On va donc écrire une classe comme ça

Public Class TestManLaurent

Public Property Valeur() As Double

Public Property Nom() As String
End Class

Maintenant il va falloir initialiser une instance de cette classe pour chaque ligne, on va donc ajouter un constructeur à la classe qui prendra une ligne (donc un String) en paramètre.

Pour découper la ligne, je suppose que le format est celui décrit par UC, des caractères, un séparateur " = " et un nombre. Quand il y a un séparateur précis, on peut utiliser String.Split()
Public Class TestManLaurent
    Public Sub New(Ligne As String)
        Dim colonnes As String() = Ligne.Split({" = "}, StringSplitOptions.None)
        Nom = colonnes(0)
        Valeur = Convert.ToDouble(colonnes(1))
    End Sub

Public Property Valeur() As Double

Public Property Nom() As String
End Class

Il reste a lire la collection de lignes pour en faire une collection de  TestManLaurent
        Dim lignes As String() = File.ReadAllLines("MonFichier.txt")
        Dim mesTestManLaurent As List(Of TestManLaurent) = New List(Of TestManLaurent)

For Each ligne As String In lignes
            mesTestManLaurent.Add(New TestManLaurent(ligne))
        Next

cs_manlaurent · Answer

Bonjour a tous,

il est vrais que j'ai pas trop bien expliquer mon problème, voilà le contenue de mon fichier texte:

"9000" = 0.010
"7000" = 0.015
"9002" = -0.080
"3050" = 0.042
"3000" = 0.000
"5000" = 0.100
"9003" = -0.052
"8045" = 0.033
"6010" = -0.010     
etc.....
ce sont des chiffres toujours en colonne et avec (" "), j'avais mentionner au début avec (REC) parce que je peux configurer la sortie de ces chiffres avec des lettres ou pas, en pensons que ça aurais étais plus facile a extraire dans une variable.Il peut y avoir jusqu’à 40 a 50 lignes, et mon problème est d'avoir par exemple sur la 1er ligne:   9000 = 0.010   sans les ("")et cela dans une variable ou je puisse les utiliser par la suite.

Merci Beaucoup

Manlaurent

ucfoutu · Answer

Ah ... v'la que cela change ...
Et  :
etc.. , a savoir que la valeur affecté n'est jamais la même. Ensuite les récrire dans un autre fichier 
signifie alors quoi, EXACTEMENT ?
Comment veux-tu (montre-nous) que soit écrit ton "autre fichier" ?

Lis donc, au passage, le texte de ma signature ....
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Whismeril · Answer

Bonjour

alors, comme le souligne Uc, cela manque encore de précision sur la sortie, mais sur l'entrée aussi.
Option 1
Quelque soit le texte "Nom", c'est le texte dont tu as besoin et ma solution est valable.
Otption 2
Tu es en mesure de figer le format et personne n'y touchera plus, et c'est le numéro que tu veux récupérer, alors il suffit d'utiliser Replace pour enlever ce qui est en trop, on peut même convertir si on le veut en tant qu'entier

Dim test As String = "REC0001".Replace("REC", String.Empty)'test vaut "0001"
        Dim test2 As String = """0002""".Replace("""", String.Empty)'teste vaut "0002"
        Dim test3 As Integer = Convert.ToInt32(test2)'test3 vaut 2

Option 3
Tu ne peux pas être sur que le format ne bougera jamais, mais tu sais dans quelle mesure il peut évoluer => Regex
Option 4
autre, détails?


Quand j'étais petit, la mer Morte n'était que malade.
George Burns

cs_manlaurent · Answer

c'est une machine a mesurer en 3D avec un stylet et une bille au bout. on vient mesurer des trous des surfaces plane des rayons etc..par palpage. Le "9000" est le n° d'export et = 0.010 est la valeur a corriger. Ces n° d'export en principe on 4 chiffres ou 5 chiffres. Ces chiffres c'est moi qui les définit au départ dans le paramétrage de la machine a mesurer. Ce 1er fichier avec toute ces valeurs je dois pas y toucher, mon but est de reprendre les n° d'exports avec les valeurs a corriger de les remplacer les anciennes valeurs dans un 2eme fichier également en format .txt. Ce fichier sera renvoyé par la suite dans une autre machine qui vas reprendre les valeurs et faire les corrections demandé.  (c’est compliqué je sais).  Je peux pas utiliser le "9000" qui est pas compatible entre eux, je dois le changer en :
L100 = 0.010
L101 = 0.015
L102 = -0.080
L103 = 0.042
L104 = 0.000
etc...
Je dois faire correspondre un paramètre (Lxxx) quelque chose a un n° d'export bien défini.
L100 correspond au 9000
L101 correspond au 7000
L102 correspond au 9002

Dans mon idée il était de travailler avec des variables, mais c'est pas obliger bien sure. Je suis de loin un expert en vb comme vous l'auriez remarqué. Cette machine a mesurer tourne avec une petite interface réaliser par moi même en vb.net et avec pas mal d'aide de votre part.

Manlaurent

ucfoutu · Answer

Ouais ...
Il semble au bout du compte que tu veux tout simplement utiliser un fichier texte en lieu et place d'une base de données.
Je te suggère alors de t'intéresser de près à ce que sont les fichiers texte structurés, avec une structure composée de deux membres :
- un membre numero_export, de type string
- un membre valeur, de type numérique
Ni les guillemets, ni tes signes "= " n'auraient alors rien à faire dans un tel fichier, dont chaque enregistrement est précisément composé de de deux données correspondant aux deux membres de la structure.
commence donc par la lecture de la discussion suivante, qui devrait déjà commencer à t'éclairer :
http://codes-sources.commentcamarche.net/forum/affich-1484155-ajout-structure-dans-un-fichier-txt-en-vb
Pour la suite (l'extraction de la valeur correspondant à un numero, etc ...), je ne doute pas que vb.net t'offre certaines facilités, que je ne connais pas personnellement. Je ne serais toutefois pas surpris que Whismeril te suggère de compléter tout cela par l'utilisation d'une  listof

EDIT : je te suggère également la lecture, dans la foulée, de :
https://msdn.microsoft.com/en-us/library/w2hew2sw%28v=vs.110%29.aspx
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Et plus je relis tout cela, plus je pense qu'un seul fichier suffirait, au lieu de deux (un pour les valeurs originelles et l'autre pour les valeurs "corrigées"). Une structure de 3 membres (numero_export, valeur_orig, valeur_rectifiee) devrait faire l'affaire.

cs_manlaurent · Answer

Bonjour,

alors j'ai pris la remarque de VB95  pourquoi ne pas remplacer "9000" = 0.010 directement par L100 = 0.010 qui a tout a fait raison, je me complique vraiment. Du coup voici mon fichier d'export en .txt
"L100="   0.010 
"L101="   0.015 
"L102="   -0.080 
"L103="   0.042 
"L104="   0.000 
etc..
y as t'il moyen simple de remplacer ces valeurs sans les ("") et les espaces dans mon 2eme fichier qui comporte exactement les mêmes nb de lignes ?. Ce 2eme fichier est obligatoire pour moi ou il contient aussi divers calcul de formule etc.. Il y a un 2eme fichier stocké sur mon disque dur pour chaque mesure 
Dois-je reprendre l'exemple de Whismeril avec le tableau ?
merci

Bonne journée

Récuperer des variable dans un fichier .txt

9 réponses

Option 1

Otption 2

Option 3

Option 4

Votre réponse

Discussions similaires