Récupérer qu'une partie d'une chaîne dans un fichierRésolu

Question

Bonjour,

J'ai cr&#233;&#233; une appli qui va chercher dans un fichier une cha&#238;ne pour la r&#233;utiliser plus tard.
voil&#224; comment se pr&#233;sente une ligne type de ce fichier : 
"           IFSR06                 01.06 03/11/05 14:06    24    24     0 IS02"  .
Je voudrais ne r&#233;cup&#233;rer que la valeur "IFSR06".
Comment puis-je m'y prendre?
Cordialement,

wapit · Accepted Answer

Merci &#224; tous mais voil&#224; la solution que j'ai trouv&#233; : 


While Not EOF(2)
    Line Input #2, Chaine
    
    For i = 1 To 80
        If Mid(Chaine, i, 1) <> " " Then
        Exit For
        End If
    Next
        
    For j = i To 8
        If Mid(Chaine, j, 1) = " " Then
        Exit For
        End If
    Next
        
    Nom_module = Mid(Chaine, i, j - 1)
        
        Print #1, DEST; Trim(Nom_module); DOT; EXT; " "; PDS; "("; Trim(Nom_module); ")"


Wend

@ bient&#244;t!

tbbuim1 · Answer

Une fois que tu r&#233;cup&#232;re la chaine dans une variable disons Chaine

Tu dis que tu ne veux que les 6 premiers caract&#232;res en partant de la gauche

R&#233;sultat = Left(Chaine,6)
TBBUIM

wapit · Answer

Le probl&#232;me est que la partie que je veut r&#233;cup&#233;rer n'a pas la m&#234;me longueur sur toutes les lignes! ex : 

           COPYPATE               01.03 04/07/12 14:39    67    70     0 IS46
           COPYPOLD               01.21 05/05/30 09:39    70    63     0 IS46
           COPYPOLU               01.18 05/05/30 09:40    80    63     0 IS46
           COPYPOLX               01.16 05/05/30 09:40    80    63     0 IS46
           COPYPOLY               01.15 05/05/30 09:40    80    63     0 IS46
           DELPARD                01.13 05/05/12 14:34    57    61     0 IS10
           DELPOLD                01.51 05/05/30 09:40   181   177     0 IS46
           DEVHV                  01.12 03/10/16 19:52    31    24     0 IS02
           DEVJMO                 01.14 04/02/24 10:51    31    24     0 IS47
           DEVTFA                 01.13 03/10/16 19:52    31    24     0 IS02
           DEVV12                 01.03 05/03/25 16:07    32    31     0 IS02

cs_drahcir · Answer

Salut,

si tu as quelquechose d'&#233;quivalent &#224; la m&#233;thode Split() en.net, tu fais un 'Split' sur le caract&#232;te tabulation.

@+

gallyhc · Answer

Bonjour,

Le truc a faire et de trouve un point commun entre tout. Comme dans ton exemple je dirais que le mot commence au debut et fini par l'espace.

Faut tjs cherche des points de reference pour des recherche de la sorte.

@++
[Gally Home Corp]

wapit · Answer

J'y ai pens&#233;, mais je ne sais pas comment faire pour r&#233;cup&#233;rer le premier caract&#232;re non blanc et qu'il s'arr&#234;te au premier caract&#232;re blanc suivant!

valtrase · Answer

Lut,
Petit bout de code &#224; adapter ....
Private Sub Command1_Click()
Dim str As String
Dim Tabl


str = "           IFSR06                 01.06 03/11/05 14:06    24    24     0 IS02"
str = Trim(str)
Tabl = Split(str, " ")


For i = 0 To UBound(Tabl) - 1
If Tabl(i) <> "" Then
    Label1.Caption = Tabl(i)
    Exit For
End If
Next
End Sub

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jpleroisse · Answer

Bonjour,



Private Sub Command1_Click()

Dim Str1

Str1 = "           Bonjour     "

If Not Empty Then

Str1 = Replace(Str1, " ", "")

Text1 = Str1

End If

End Sub

jpleroisse

cs_liquide · Answer

salut
le split reste la meilleur des m&#233;thodes, en .net ou en vb pour ton cas, le tout reste a savoir quel est le sp&#233;arateur entre chaque "sous-chaine" en exemple et consid&#233;rant que le s&#233;parateur est un vbtab :
************************
dim Machaine as string
Machaine = "           COPYPATE               01.03 04/07/12 14:39    67    70     0 IS46"

dim MonSplit() as string
Monsplit = split(Machaine, vbtab)

' dans ton cas la 1ere chaine aura une valeur vide donc il faut que tu r&#233;cuperes la 2eme chaine c'est a dire Monsplit(1)

label1.caption = Monsplit(1)
****************************
si par ailleur le s&#233;parateur est une chaine de 11 "espaces vides", le split aura cette forme (c'est juste un exemple) :
Monsplit = split(Machaine, "           ")

j'esp&#232;re avoir r&#233;pondu au mieux a ta question.

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

cs_CanisLupus · Answer

Salut,

Si l'exemple que tu as donn&#233; est bien la structure de ton fichier, j'ai remarqu&#233; que la partie de la chaine que tu veux r&#233;cup&#233;rer commence au 12&#232;me caract&#232;re et a une longueur de 23 (en comptant les espaces).
Dans ce cas, 2 solutions :

TaSousChaine = Trim(Mid(s, 12, 23))
ou
TaSousChaine = Replace(Mid(s, 12, 23)," ","") si tu n'as pas d'espaces dans ce que tu veux r&#233;cup&#233;rer par ex : copy pate au lieu de copypate.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

J'ai oubli&#233; de dire que s est ta cha&#238;ne compl&#232;te mais je pense que tu l'auras compris.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Pour les amateurs du split, dans ce cas pr&#233;cis et s'il y a TOUJOURS des espaces devant la sous-chaine que tu veux r&#233;cup&#233;rer, il y a :

TaSousChaine = Split(Trim(s), " ")(0)

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

gallyhc · Answer

Bonjour,

J'ai une petite Sub qui peu t'etre utile pour cela...

Public Sub StringDecoupe(ByVal strLine As String, ByVal strSeparator As String, ByRef strResult() As String)
' DECLARATION DES VARIABLES.
    Dim lngI    As Long ' VARIABLE TEMPORAIRE.
    Dim lngJ    As Long ' VARIABLE TEMPORAIRE.
    Dim lngT    As Long ' VARIABLE TEMPORAIRE.
    Dim lngU    As Long ' VARIABLE TEMPORAIRE.


' INITIALISATION DU TABLEAU DE RESULTAT.
    ReDim lngResult(&H1 To &H1)


' DECOUPE DE LA CHAINE DE CARACTERE.
    lngJ = &H1
    For lngI = &H1 To Len(strLine) Step &H1
        If Mid$(strLine, lngI, Len(strSeparator)) = strSeparator Then
            lngU = lngU + &H1
            ReDim Preserve strResult(&H1 To lngU)
            strResult(lngU) = Mid$(strLine, lngJ, (lngI - &H1) - (lngJ - Len(strSeparator)))
            lngJ = lngI + Len(strSeparator)
        End If
    Next lngI
    If Right(strLine, Len(strSeparator)) <> strSeparator Then
        lngU = lngU + &H1
        ReDim Preserve strResult(&H1 To lngU)
        strResult(lngU) = Mid$(strLine, lngJ, Len(strLine) - (lngJ - Len(strSeparator)))
    End If


End Sub

Elle decoupe te chaine de caractere en fonction de separteur et met tout dans un tableau.

@++
[Gally Home Corp]

cs_liquide · Answer

Gally, j'ai l'impression que tu as refait un split a ta mani&#232;re non ? puis parcourir chaque caractere pour trouver les s&#233;parateurs, j'ai pas l'impression que ce soit la meilleur m&#233;thode, car tu peux le trouver aussitot d&#232;s ta premiere focntion.

Bonne prog, [mailto:liquide_vaisselle_76@hotmail.fr liquide_vaisselle_76@hotmail.fr]
liquide (Membre "Liquide-Fundation" -- tout ce qui peut etre bu est interdit -- les alcolo sont mals  , moi le 1er&n

Récupérer qu'une partie d'une chaîne dans un fichier

14 réponses

Discussions similaires