Discussion :

[Lenaick]

Bonjour à tous,

Je dois lire un fichier texte formater en colonne séparer par des tabulations. Jusque là pas de problème particulier. Mon problème est que deux des colonnes sont séparées par deux tabulations. Et je n'arrive pas à lire les informations de la deuxième colonne. quand je veux afficher les informations il me met un zéro. J'ai essayé de mettre dans ma fonction flitligne comme séparateur TAB+TAB mais ca ne marche pas. Si quelqu'un a une solution à me proposer, je suis preneur. Merci d'avance.
Lénaick

[Gilles_69]

Bonjour, est-ce que tu procèdes comme çà ?

Code :

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

1
2
3
 
lchLigne=fLitLigne(IdFichierTXT)
ExtraitChaîne(lchLigne,lenNum_col)

[Lenaick]

Je procède de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
	sLigneLue est une chaîne = fLitLigne(nNumFic)
	SI sLigneLue <> EOT ALORS
//On récupère les informations de chaque ligne. 
			//Elle vont subire un traitement pour correspondre au format de fichier .pnm
			nId = ExtraitChaîne(sLigneLue,1)
			sDateFacture = ExtraitChaîne(sLigneLue,2,TAB)
			nNumero = ExtraitChaîne(sLigneLue,3,TAB+TAB)
			sNumDossier = ExtraitChaîne(sLigneLue,4,TAB)
			sSuivi = ExtraitChaîne(sLigneLue,5,TAB)
			xDebit = ExtraitChaîne(sLigneLue,6,TAB)
			xCredit = ExtraitChaîne(sLigneLue,7,TAB)

[Gilles_69]

Ok, alors essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TANTQUE lchLigne<>EOT
  lchLigne=fLitLigne(IdFichierTXT)
  SI lchLigne="" OU lchLigne=EOT ALORS
    SINON
      lchDonnee1 = ExtraitChaîne(lchLigne,1)
      lchDonnee2 = ExtraitChaîne(lchLigne,2)
      lchDonnee_n = ExtraitChaîne(lchLigne,n)
    FIN
FIN

Inutile de mettre les TAB puisque par défaut c'est ce que la formule utilise.

[Lenaick]

ca ne marchait pas, alors j'ai eu l'idée de simuler une colonne supplémentaire

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
 
	TANTQUE sLigneLue<>EOT
		sLigneLue = fLitLigne(nNumFic)
		SI sLigneLue="" OU sLigneLue=EOT ALORS
			SORTIR
		SINON
				//On récupère les informations de chaque ligne. 
				//Elle vont subire un traitement pour correspondre au format de fichier .pnm
				nId = ExtraitChaîne(sLigneLue,1)
				sDateFacture = ExtraitChaîne(sLigneLue,2)
				nNumero = ExtraitChaîne(sLigneLue,4)
				sNumDossier = ExtraitChaîne(sLigneLue,5)
				sSuivi = ExtraitChaîne(sLigneLue,6)
				xDebit = ExtraitChaîne(sLigneLue,7)
				xCredit = ExtraitChaîne(sLigneLue,8)

et ca marche
Merci de ton aide