Discussion :

[julieng31]

Bonjour,

je souhaiterais lire un fichier du type (l'espace entre les 2 colonnes est une tabulation) :

long lat
4,55 51,34
4,43 52,07
4,31 52,72

Pour cela, j'ai repris le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Nom_fichier_couv = chemin + nom_couverture
 
        index_fichier_couv = FreeFile
        Open Nom_fichier_couv For Input As index_fichier_couv
 
 
        While Not EOF(index_fichier_couv)
            Line Input #index_fichier_couv, strLigne
        Wend
 
 
        Close index_fichier_couv

Le problème est que je ne sais pas comment séparer les valeurs que j'obtiens dans strLigne (je cherche quelque chose comme sscanf(string, "%f", &p) en C). De plus, cette valeur peut être un mot ou un entier.

Merci d'avance pour votre aide.

[mercatog]

Ragrades du côté de split

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim strLigne As String
Dim tablo() As String
tablo = Split(strLigne, " ")
MsgBox tablo(0)
MsgBox tablo(1)

[ucfoutu]

Bonjour,

je souhaiterais lire un fichier du type (l'espace entre les 2 colonnes est une tabulation) :

- on ne fait pas la dépense (onéreuse et injustifiée) d'un split pour si peu
- si la séparataion n'est pas un espace, mais (comme dit) une tabulation, on ne sépare pas avec l'espace.

A main levée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
pos = InStr(lachaine, vbTab)
MsgBox Left(lachaine, pos - 1) & vbCrLf & Mid(lachaine, pos + 1)

[mercatog]

Bonjour,
Pour ma compréhension personnelle,

je souhaiterais lire un fichier du type (l'espace entre les 2 colonnes est une tabulation) :

La séparation vbTab est dans le fichier texte?
Votre code ucfoutu avant importation dans excel, c'est ça?

[ucfoutu]

Bonjour,
Pour ma compréhension personnelle,
La séparation vbTab est dans le fichier texte?
Votre code ucfoutu avant importation dans excel, c'est ça?

Bonjour, mercatog

Je n'en sais rigoureusement rien d'autre que ce qu'à écrit le demandeur
Ceci étant dit : vbtab ou espace : on n'utilise pas abusivement la fonction Split pour si peu (même raisonnement) et à "tout bout de champ"

[julieng31]

Merci pour vos réponses. Ca progresse ! J'utilise le split, c'est plus simple à utiliser pour moi qui ne connaît pas bien le VBA. Je ne recherche pas la performance avec ce code.

Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
        ' Flag used to know if it is the first numerical data read
        Dim init As Integer
        init = 1
 
        ' Read file
        While Not EOF(index_fichier_couv)
            Line Input #index_fichier_couv, strLigne
            sous_ch = Split(strLigne, vbTab, 2)
            If (sous_ch(0) <> "long") Then ' Existe surement mieux pour tester si la valeur est un nombre ou non
                ' First numerical data
                If (init = 1) Then
                    init = 0
                    sous_ch(0) = Replace(sous_ch(0), ",", ".")
                    sous_ch(1) = Replace(sous_ch(1), ",", ".")
                    long_min = long_max = Val(sous_ch(0))
                    lat_min = lat_max = Val(sous_ch(1))
                ' Normal case
                Else
                    'A continuer
                End If
            End If
        Wend

Mon idée est de récupérer les valeurs comme chaîne de caractère, de les séparer, de remplacer la virgule par un point pour pouvoir appeler la fonction val() et obtenir des doubles. Le problème est que quand j'affiche long_min ou long_max, j'obtiens "Faux" ? D'autre part, je n'ai pas trouvé de moyen de forcer le cast à double dans val.

Et pour la réponse à la question, le fichier d'entrée est un fichier édité à la main par l'utilisateur et il a pour consigne de séparer les champs numériques par une tabulation.

[mercatog]

D'abord essaie le code de ucfoutu
ensuite cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
                    long_min = long_max = Val(sous_ch(0))
                    lat_min = lat_max = Val(sous_ch(1))

donnera faux si

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

long_max <> Val(sous_ch(0))

essaie en 2 lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
long_min = Val(sous_ch(0))
long_max = Val(sous_ch(0))

pour tester si numérique, essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If IsNumeric(TaVariable)

[Krovax]

Tu devrais déclarer toutes tes variables. Pour etre sur de bien le faire met toi en explicite.
Ecrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OPTION EXPLICITE

sur la toute première ligne de ton module

Quand tu ecris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

long_min = long_max = Val(sous_ch(0))

Voila ce que tu dis au programme
Fait le test
long_max = Val(sous_ch(0))
qui est soit vrai soit faux
met cette valeur dans la variable
long_min
Le = en programmation na RIEN a voir avec le = des maths!! (c'est pour ca que certain langage utilise == ou d'autre symbole)

Si tu avais déclaré ta variable
dim long_min as double

tu aurais eu un message d'erreure et tu aurais sans doute trouvé tout seul

De la lecture pour éviter quelque piège grossier mais fréquent
http://mhubiche.developpez.com/Access/variables/

Edit désolé mercatog pas rafraichi

[julieng31]

Merci beaucoup pour vos conseils, cela fonctionne très bien maintenant.

Voici le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
        ' Flag used to know if it is the first numerical data read
        Dim init As Integer
        init = 1
 
        ' Read file
        While Not EOF(index_fichier_couv)
            Line Input #index_fichier_couv, strLigne
            sous_ch = Split(strLigne, vbTab, 2)
            If (IsNumeric(sous_ch(0)) And IsNumeric(sous_ch(1))) Then
                ' First numerical data
                If (init = 1) Then
                    init = 0
                    sous_ch(0) = Replace(sous_ch(0), ",", ".")
                    sous_ch(1) = Replace(sous_ch(1), ",", ".")
                    long_min = Val(sous_ch(0))
                    long_max = Val(sous_ch(0))
                    lat_min = Val(sous_ch(1))
                    lat_max = Val(sous_ch(1))
                ' Normal case
                Else
 
                End If
            End If
        Wend

[Krovax]

il semble toujours manquer la déclaration des variables, je te dis donc a très bientôt

[julieng31]

J'ai bien lu tout ce qu'il m'a été dit et j'ai déclaré les variables ;-) Je ne les ai pas mis pour ne pas avoir un code trop long à lire.