kg_online
Messages postés39Date d'inscriptiondimanche 28 novembre 2004StatutMembreDernière intervention 4 juin 2007
-
4 févr. 2005 à 12:16
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 2009
-
7 févr. 2005 à 08:34
<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)
romtrico064649
Messages postés14Date d'inscriptionlundi 6 novembre 2000StatutMembreDernière intervention 1 juillet 2009 4 févr. 2005 à 16:38
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