Espace

Signaler
Messages postés
44
Date d'inscription
mercredi 19 septembre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
-
salut

j'ai un probleme

lorsque en execute l'application il affiche le 2ieme  or dans une fichier text affiche le 1ere avec lors espace de 2 ieme ligne mais lors excution n'affiche pas lors espace , 

svb aide moi  

1)    ! REG.EXE VERSION 3.0


ligne   1      :      HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton AntiVirus
 ligne   2           version         REG_SZ       12.8.0.4

2)      ! REG.EXE VERSION 3.0


HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton AntiVirus
    versionREG_SZ12.8.0.4

3 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Salut,

J'y comprends rien. Explique mieux ton prblème.

__________
Kenji
(
Nouveau forum VBA/Office
Messages postés
44
Date d'inscription
mercredi 19 septembre 2007
Statut
Membre
Dernière intervention
11 décembre 2007

salut

merci pour votre reponse

d'abord j'un fichier text  qui trouve en c:

lors continu de ces fichier est :

 ! REG.EXE VERSION 3.0
     HKEY_LOCAL_MACHINE\SOFTWARE\Symantec\Norton AntiVirus
      version         REG_SZ       12.8.0.4

Puis j'ai vais ouvrire le fichier par

Open "C:\fichier.txt" For Input As #1

   Do Until EOF(1)
   Line Input #1, Texte

je met dans une varaible Texte

puis  je met dans une texte1.text pour afficher ,
, Text1.Text = Texte:
et puis je prend le line n° 5

i = i + 1   If i 5 Then Text1.Text Texte:  
   mais dans se cas , je  il affiche comment suive dans une label
version REG|SZ |12.8.0.4

notre probleme est comment afficher le ligne 5 " version         REG_SZ       12.8.0.4 "     dans le fichier texte   avec lors espace
ou le 3 champs de se ligne par contre j'utlise le fonction mid et aussi split , right
et aussi j'utilise une finction  Recherche
**************************si la fonction recherche ****
Public Function Recherche(Texte As String, Expression_debut As String, Expression_fin As String) As String
Dim Variable, Valeur
Valeur = Split(Text2.Text, Expression_debut)
Variable = Split(Valeur(1), Expression_fin)
Recherche = Variable(0)
End Function

pour afficher le label4
Label4 = Recherche(Text2.Text, "     ", "    ")
et enfin merci pour votre interessant 

**************************************************
    enfin merci pour votre interissant
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Je pense que tu n'as pas "        " dans ton fichier texte mais des tabulations.
Donc, soit tu fais tes testes avec les tabulations (vbTab), soit tu remplace ces tabulations par des espaces.







__________
Kenji

(


Nouveau forum VBA/Office