Extraire des infos d'1 fichier text en vb

Résolu
Signaler
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
<HR>
Bonjour tout le monde,

j'ai crée un fichier config (fichier text ) sur mon buro et j'aimerai utiler les données qui s'y trouvent dans un programme principale.Cependant j'ai essayé de stocker chaque ligne lue de ce fichier text dans un tableau() pour pouvoir ensuite en déhord de cette fonction utiliser n'importe quelle valeur du tableau par exemple:
tableau(1) m'affiche la ligne lu......
tableau(54) m'affiche la ligne lu...etc...
le problème problème est que ça affiche tout en même temps.
Merci d'avance!
Voici mon programme!


Function FileRead2(ByVal strFile As String)<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />





Private Sub Command1_Click()




Dim i As Integer


'Déclaration de tableau


Dim Max(1 To 23) As Double


'Créer une instance du FSO


Set fso = New Scripting.FileSystemObject





' Ouvrir le fichier en écriture


strFile = "c:\documents and settings\????????\bureau\test.txt"


Set stm = fso.GetFile(strFile).OpenAsTextStream(ForReading)


While Not stm.AtEndOfStream


strTemp = stm.ReadLine


For i = 1 To 23


Max(i) = strTemp


Next i


‘ Affichage des lignes lues


MsgBox Max(i - 1)


Wend


' Libérer les objets


stm.Close


Set stm = Nothing


Set fso = Nothing





End Sub

7 réponses

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Open "c:\documents and settings\????????\bureau\test.txt" For Input As #1
Do Until EOF(1)
i=i+1
Line Input #1, Ligne
Max(i) = Ligne
Loop
Close #1
3
Merci

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

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

Messages postés
212
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
6 avril 2006

Peut être que comme ça ça marchera :

Public sub ouvremoicefichier(nom_fichier as string)
Dim resultats(10)
n_resultats = 0

Open nom_fichier for input as 1
While Not eof(1)
Line input #1, agnu
resultats(n_resultats) = agnu
Wend

End sub

The Best

Glu !!! [VIVE LINUX. Saviez vous qu'il existe Gambas pour remplacer Vb sous linux ? ]
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007

Désolé the best mais ton prog ne marche pas peut être que t'as omis quelque chose.
Merci
Messages postés
39
Date d'inscription
dimanche 28 novembre 2004
Statut
Membre
Dernière intervention
4 juin 2007

Merci Italia ça marche impect!!!!!!!!!!!!!
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
De Rien @+

It@li@
Messages postés
14
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
1 juillet 2009

Bonjour,
Ce code pour lire un fichier .ini pourais t'être utile :

'####################################APIs Déclaration####################################################################
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Paramétres :
'#lpApplicationName
'The header of the INI file section the value Is In.
'#lpKeyName
'The Name of the value To Read.
'#lpDefault
'The value To return If a valid value cannot be Read. Make it something that would definitely Not be Read, such As "(error)".
'#lpReturnedString
'A fixed-length String that will receive either the String Read from the file Or lpDefault.
'nSize
'The length In characters of lpReturnedString.
'#lpFileName
'The filename of the INI file To Read from.
'#########################################################################################################################
'##########################################################################################################################
'##Retourne sous forme de string la valeur de l'élement strName de la section strSection du fichier selectedPath & config.ini
'##Retourne NONE en cas d'échec
'######################################
Function getListParamInitFileFor(strSection As String, strName As String) As String
Dim strPath As String, strFileName As String
Dim strRes As String*100
Dim lRes As Long

strPath = "c:" 'SelectedPath
strFileName = "Config.ini"
lRes = GetPrivateProfileString(strsection, strName, "NONE", strRes, 100, strPath & "" & strFileName)
MsgBox "len : " & lRes & " res : " & strRes
End Function

Pour lire un fichier .ini du type :

;Debut du fichier : c:\Config.ini
;=====================================================
PAGE D'INFORMATION PERSONELLE
;=====================================================


[Ma section]
;-----------------------------------------------------
Prenom=Romain
Age=27

[Ma section2]
......

Pour lire la clée Prenom de ce fichier init :
msgbox getListParamInitFileFor("Ma section", "Prenom")

retourne "Romain"

Salut

RomTrico
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Oui mais dans son cas c'est du TXT

It@li@