pb pour recuperer des données dans un fichier

Question

voila la procedure que j'ai ecrit pour completer un programme mais apparement j'ai un proble avec "page.lenght", alors si quelqu'un savait comment regler ce probleme ! merci

Sub fiche()
Dim page As String
Dim perso As String
Dim autoris As String

'ouvrir le fichier
Open "c:\sauvegarde.txt" For Input As #1

'Parcourir le fichier
page = Input(LOF(1), #1)

'debut boucle
While Not EOF(1)

'recherche du repertoire dans la chaine
deb_rep = InStr(page, fichier.Text)
MsgBox page

'1 – enlever le nom du repertoire
    page = substr(page, fichier.Text.lenght + 1, page.lenght)
    
     'page prend la valeur de la chaine de caracteres commencant en position (taille de la chaine de caracteres contenant le repertoire jusqu’à la fin)

    '2 – enlever tout ce qui précéde le premier ‘\’
    deb_autoris = InStr(texte, " \ ")
    If deb_autoris > 0 Then
        page = substr(page, deb_autoris + 1, page.lenght)
     '  Normalement : page = « marketing:(OI)(CI)F »
          MsgBox page
     
      '3 – separer la personne,  des droits
        deb_droit = InStr(page, " : ")
        perso = substr(page, 1, deb_droit - 1)
        autoris = substr(page, deb_droit + 1, page.lenght)
        

       'mettre à jour les listes
        Liste_nom.List(i) = perso
        Liste_permi.List(i) = autoris
        i = i + 1
 

   End If
   

Wend

Close #1

End Sub

UnExPeCtEdSpy · Answer

Bonjour, pour récupérer la longueur d'un string, il faut que tu utilises Len(page) et non pas 'page.length' 
pareil pour Len(fichier.text)
Pour le reste je n'ai pas regardé ta source, je sais pas trop ce que tu veus faire.
A=

 ,.~*`'^~.(^.  :question)  .^),.~^'`*~.

Pb pour recuperer des données dans un fichier

1 réponse

Discussions similaires