Discussion :

[xtaze]

salut

voila jai un petit souci avec le parcours d'un fichier et les retours a la lignes:

quand je lis mon fichier je fais ceci pour connaitre les retours a la ligne:

Code :

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

1
2
3
4
5
 
Do While Not EOF(1)
Input #1, Normal
lbltxt.Caption = lbltxt.Caption & Normal & Chr(10)
Loop

et lorsque que je relis mon fichier pour connaitre les retours a la ligne je n'arrive pas a rentrer dans ma condition que voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Case tabtemp(i) = Chr(10)
 
    tabretourligne(l) = tabtemp(i)
    l = l + 1
 
Case tabtemp(i):
    tabsansespace(k) = tabtemp(i)
    lbltxtcompresse.Caption = lbltxtcompresse.Caption & tabtemp(i)
    k = k + 1

il me met un genre de carré comme caractere et donc ne rentre pas dans la premiere condition.

de plus je voudrai savoir quelle est le composant que je doit rajouter pour avoir un bouton parcours de fichier. car le dirlistbox ne me conviens pas je voudrai le composant qui permet d'obtenir le fichier avec la fenetre comme sous window....


merci par avance

[xtaze]

bin sa marche pas car :
vbCrLf met donc 2 carrés (quand je fais un pas a pas)

et sa rentre jamais dans ma condition

ps pour etre plus caire voici ce que j'ecris dans mon fichier compressé

For i = 0 To j
Print #1, tabespace(i) 'stock dans le fichier, le tableau des espace
Next
Print #1, "---"
For i = 0 To l
Print #1, tabretourligne(i) 'stock dans le fichier le tableau des retour à la ligne
Next
Print #1, "---"

Print #1, lbltxtcompresse.Caption

Close #1

et voici comment il sort

0
17
20
27
30
36
0
---
0
0
---
La
fonction
viséensortiedecettelicence

voila les 2 00 correspondent normalement a la position des retour a la ligne

[avigeilpro]

le Chr(10) correspond au caractère Line Feed (LF) or un retour a la ligne est conposé dabord d'un Carriage Return (CR)qui est le chr(13) puis d'un LF (cela nous vient de la machine a ecrire ou il fallait ramener le chariot a sa position initiale, soit un CR, puis faire remonter la feuille, soit un LF)
d'ou les deux caractère que VB ne peut t'afficher car ce ne sont pas des caractères affichables

[xtaze]

ouai salut
merci de ta reponse mais meme sil les affiche pas je comprend pas pourquoi il ne rentre pas dans ma condition ?

[avigeilpro]

Pourrait tu etre plus precis sur ton code et ce que tu veut faire car je ne comprend pas tout

[xtaze]

en fait je dois faire un genre de compresseur de fichier texte,
donc je parcours mon fichier,
chaque fois quil y a un espace ou un retour a la ligne je les enregistre dans 2 tableau un pour les espace avec la position de lespace et lautre pour les retour a la ligne
apres j'enregistre tout dans un fichier.

donc pour les espace aucun soucis mais pour les retour chariot probleme.

donc jai testé avec ch(10) chr(13) et vbCrLf mais sans succés

[xtaze]

dans le parcour de mon fichier j'ai tenté de faire sa :

Code :

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

1
2
 
lbltxt.Caption = lbltxt.Caption & normal & Chr(13) & Chr(10)

et dans mon select case :

Code :

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

1
2
3
4
 
tabtemp(i) = Mid(lbltxt.Caption, i, 1)
.......
Case tabtemp(i - 1) = Chr(13) And tabtemp(i) = Chr(10)

mais jamais je rentre dans cette condition

[SfJ5Rpw8]

ton utilisation de l'instruction case ne semble pas la bonne... (voir aide en ligne..) remplace la par des if...

[xtaze]

ouai lol
sauf que je n'ai pas qu'une ou 2 conditions conditions, j'en est plusieurs pour dautres tests donc le case est quand meme mieux approprié que le If
mais en quoi il est pas bon?

[SfJ5Rpw8]

e ben case ne marche pas comme ça tu as :

Select Case VariableATester

et pour chaque valeur (ou ensemble de valeur) .. possible ...

Case Valeur1
ActionPourValeur1




Pour utiliser Case pour tester 2 caractéres consécutifs tu peu t'inspirer de :

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
Sub test()
    For i = 1 To 3 'On Rempli les lignes...
     st = st & "Ligne " & i & Chr(13) & Chr(10)
    Next
    st = st & "|"
 
 
    For i = 1 To Len(st) 'Lecture .....
     Debug.Print Mid(st, i, 1)
     Select Case Mid(st, i, 2)
        Case Chr(13) & Chr(10)
         Debug.Print "Saut de ligne à i = " & i
 
     End Select
    Next
 
End Sub