WILFRIED
XLDnaute Impliqué
Bonjour a tous et toutes,
Je récupère des fichiers de mesures aux format txt. J'ai besoin d'effectuer des modifications sur ces données :
je sais lire les donnees d'un fichier texte sans l'ouvrir :
Je sais comment faire pour modifier les données.
Mon problemes est d'aller remplacer les données modifier.
En l'occurence elles vont toutes ce trouver dans la seconde colonnes de tab_import.
existe t il une fonction line output??
D'avance merci.
A+
Je récupère des fichiers de mesures aux format txt. J'ai besoin d'effectuer des modifications sur ces données :
je sais lire les donnees d'un fichier texte sans l'ouvrir :
Code:
vr_Separateur = vbTab
lng_NbLignes = 65536
int_nb_col = 1
Counter = 1
int_nb_ligne = 0
int_nb_col_mx = 0
ReDim tab_import(1, 0)
'Ouverture du fichier txt
Open str_fichier For Input As #1
Do While Not EOF(1)
If int_nb_ligne > lng_NbLignes Then
MsgBox "Caution stop transfer! The file to voluminous!!!"
Exit Do
End If
Line Input #1, ContenuLigne
int_pos_dep = 1
int_nb_col = 1
Do Until InStr(int_pos_dep, ContenuLigne, vr_Separateur, vbTextCompare) = 0
int_pos_dep = InStr(int_pos_dep, ContenuLigne, vr_Separateur, vbTextCompare)
If int_pos_dep <> 0 Then
int_pos_dep = int_pos_dep + 1
int_nb_col = int_nb_col + 1
int_nb_col_mx = int_nb_col
End If
Loop
ReDim Preserve tab_import(1, int_nb_ligne)
'découpe la chaine en fonction des espaces " "
'le résultat de la fonction Split est stocké dans un tableau
ReDim Preserve tableau(0)
tableau(0) = Split(ContenuLigne, vr_Separateur, -1, vbTextCompare)
For i = 0 To int_nb_col - 1
tab_import(i, int_nb_ligne) = tableau(0)(i)
Next i
int_nb_ligne = int_nb_ligne + 1
Loop
Close #1
Je sais comment faire pour modifier les données.
Mon problemes est d'aller remplacer les données modifier.
En l'occurence elles vont toutes ce trouver dans la seconde colonnes de tab_import.
existe t il une fonction line output??
D'avance merci.
A+