Gestion des fichiers *.txt avec séparateur "espace"

[dieu08]

Bonjour,

Je dois procéder à des recherches, remplacements et suppression de chaines dans un fichier *.txt (voir exemple joint) dont le contenu est structuré par des séparateurs "espace" dont le nombre est fixe pour bien identifier chaque champ.

Pour être plus clair, ce fichier est intégré dans un progiciel qui identifie les données en fonction de leurs positions respectives.

J'ouvrir ce fichier dans Excel comme un fichier *.txt simple en précisant bien la taille de chaque champ lors de l'importation mais dès que les manipulations ont été réalisées, je ne parviens pas à procéder à une sauvegarde qui conserve les tailles définies au départ. La largeur des colonnes se limite aux données les plus "larges" mais ne respectent en rien les tailles définies.

J'espère avoir été cristallin dans mes propos et ainsi obtenir une aide (divine ?).

Merci d'avance.

 

[dieu08]

Re : Gestion des fichiers *.txt avec séparateur "espace"

Bonjour mutzik,

Je reviens vers toi pour te remercier du temps que tu as passé à m'aiguiller vers les bonnes solutions.

Je suis finalement parvenu à réaliser ce que j'attendais.

Un script pour la lecture et le stockage des donnnées (avec quelques modifications des données) :

Public nomfich1 As String

Type interface
    int1 As String * 8
    int2 As String * 4
    int3 As String * 4
    int4 As String * 1
    int5 As String * 7
    int6 As String * 2
    int7 As String * 1
    int8 As String * 112
    int9 As String * 60
    int10 As String * 20
    int11 As String * 12
    int12 As String * 12
    int13 As String * 12
    int14 As String * 3
    int15 As String * 1
    int16 As String * 2
    int17 As String * 7
    int18 As String * 7
    int19 As String * 5
    int20 As String * 5
    int21 As String * 11
    int22 As String * 2
    int23 As String * 5
    int24 As String * 30
    int25 As String * 30
    int26 As String * 30
    int27 As String * 30
    int28 As String * 5
    int29 As String * 30
    int30 As String * 4
    int31 As String * 10
    int32 As String * 1
    int33 As String * 10
    int34 As String * 3
    int35 As String * 1
    int36 As String * 2
        
End Type

Public Function ExisteFichier(S As String) As Boolean
Dim francis As Object
    Set francis = CreateObject("Scripting.FileSystemObject")
    ExisteFichier = francis.FileExists(S)
End Function


Sub auto_open()
Set FSys = CreateObject("Scripting.FileSystemObject")
'Set MonFic = FSys.CreateTextFile("C:\DOCUME~1\FRVARA~1\Bureau\WORK_T~1\COMPTA~2\cibles\infodb.dat")
Set MonFic = FSys.CreateTextFile("\\srvB\applicatifs$\Perc\INTG_GA\bon\INTEG\cibles\infodb.dat")
End Sub

Sub IntText()

Dim MyInterface As interface
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim nbcount0 As Integer

' selection du fichier à modifier

Worksheets("import").Activate

Cells.Select
Selection.ClearContents

Range("A1").Select

ChDrive "F:\"
ChDir "\\srvB\applicatifs$\Perc\INTG_GA\bon\INTEG\"

MsgBox ("Sélection du fichier à transformer")

nomfich1 = Application.GetOpenFilename("Tous les fichiers,*.dat")

' lecture fichier et repart dans les variables

i = 1

Open nomfich1 For Binary As #1 Len = Len(MyInterface)
'Open "C:\DOCUME~1\FRVARA~1\Bureau\WORK_T~1\COMPTA~2\TEST_O~1\test.dat" For Binary As #1 Len = Len(MyInterface)
'Open "Y:\Bureau\WORK_T~1\COMPTA~2\TEST_O~1\test.dat" For Binary As #1 Len = Len(MyInterface)

Do While Not EOF(1)

   Get #1, , MyInterface
         Cells(i, 1) = MyInterface.int1
         Cells(i, 2) = MyInterface.int2
         Cells(i, 3) = MyInterface.int3
         Cells(i, 4) = MyInterface.int4
         Cells(i, 5) = MyInterface.int5
         Cells(i, 6) = MyInterface.int6
         Cells(i, 7) = MyInterface.int7
         Cells(i, 8) = MyInterface.int8
         Cells(i, 9) = MyInterface.int9
         Cells(i, 10) = MyInterface.int10
         Cells(i, 11) = MyInterface.int11
         Cells(i, 12) = MyInterface.int12
         Cells(i, 13) = MyInterface.int13
         Cells(i, 14) = MyInterface.int14
         Cells(i, 15) = MyInterface.int15
         Cells(i, 16) = MyInterface.int16
         Cells(i, 17) = MyInterface.int17
         Cells(i, 18) = MyInterface.int18
         Cells(i, 19) = MyInterface.int19
         Cells(i, 20) = MyInterface.int20
         Cells(i, 21) = MyInterface.int21
         Cells(i, 22) = MyInterface.int22
         Cells(i, 23) = MyInterface.int23
         Cells(i, 24) = MyInterface.int24
         Cells(i, 25) = MyInterface.int25
         Cells(i, 26) = MyInterface.int26
         Cells(i, 27) = MyInterface.int27
         Cells(i, 28) = MyInterface.int28
         Cells(i, 29) = MyInterface.int29
         Cells(i, 30) = MyInterface.int30
         Cells(i, 31) = MyInterface.int31
         Cells(i, 32) = MyInterface.int32
         Cells(i, 33) = MyInterface.int33
         Cells(i, 34) = MyInterface.int34
         Cells(i, 35) = MyInterface.int35
         Cells(i, 36) = MyInterface.int36
         
         i = i + 1
         
Loop

Close #1

' traitement des données parasites (Le Directeur)

    ' colonne 24

Worksheets("import").Activate

nbcount0 = (Application.CountA(Range("A1:A65536"))) - 1

For i = 1 To nbcount0

    If Cells(i, 24) = "Le directeur                  " Then

        Cells(i, 24) = "                              "

    Else
    
'MsgBox Len(Cells(i, 24))

        Cells(i, 24) = Cells(i, 24)
        
    End If

Next i

    ' colonne 25

For k = 1 To nbcount0

    If Cells(k, 25) = "Le directeur                  " Then

        Cells(k, 25) = "                              "

    Else
    
        Cells(k, 25) = Cells(k, 25)
        
    End If

Next k


' traitement des données parasites (numéro tiers destinataire)

    Cells(1, 26).Activate
    Selection.EntireColumn.Insert
    
    Columns("Z").Select
    Selection.NumberFormat = "General"

For i = 1 To nbcount0

Cells(i, 26).Activate

'ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(FIND("")"",R" & i & "C25,1)+1)-(FIND(""("",R" & i & "C25,1)-1)),""""),"""")),(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(LEN(R" & i & "C25)+1)-(FIND(""("",R" & i & "C25,1)-1)),""""),"""")),(IF(ISERROR(FIND(""("",R" & i & "C25,1)),R" & i & "C25,(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(FIND("")"",R" & i & "C25,1)+1)-(FIND(""("",R" & i & "C25,1)-1)),""""),"""")))))"

ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(FIND("")"",R" & i & "C25,1)+1)-(FIND(""("",R" & i & "C25,1)-1)),"" ""),"" "")),(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(LEN(R" & i & "C25)+1)-(FIND(""("",R" & i & "C25,1)-1)),"" ""),"" "")),(IF(ISERROR(FIND(""("",R" & i & "C25,1)),R" & i & "C25,(IF(ISNUMBER(FIND(""("",R" & i & "C25,1)-1),SUBSTITUTE(R" & i & "C25,MID(R" & i & "C25,FIND(""("",R" & i & "C25,1)-1,(FIND("")"",R" & i & "C25,1)+1)-(FIND(""("",R" & i & "C25,1)-1)),"" ""),"" "")))))"

Next i

For j = 1 To nbcount0

    Columns("Y").Select
    Selection.NumberFormat = "General"

Cells(j, 25) = Cells(j, 26).Value

Next j

    Columns("Z").Select
    Selection.Delete
    
Cells(1, 1).Activate

Call IntText2

End Sub

Et autre script pour la réécriture des données dans le fichier :

Sub IntText2()

Dim MyInterface As interface
Dim intFic As Integer
Dim nbcount0 As Integer
Dim i As Integer
Dim intNum As Integer
intFic = FreeFile

Worksheets("import").Activate

nbcount0 = Application.CountA(Range("A1:A65536"))

' ecriture fichier

For intFic = 1 To nbcount0

Open "\\srvB\applicatifs$\Perc\INTG_GA\bon\INTEG\cibles\infodb.dat" For Random As intFic Len = Len(MyInterface)

With MyInterface
    .int1 = Cells(intFic, 1)
    .int2 = Cells(intFic, 2)
    .int3 = Cells(intFic, 3)
    .int4 = Cells(intFic, 4)
    .int5 = Cells(intFic, 5)
    .int6 = Cells(intFic, 6)
    .int7 = Cells(intFic, 7)
    .int8 = Cells(intFic, 8)
    .int9 = Cells(intFic, 9)
    .int10 = Cells(intFic, 10)
    .int11 = Cells(intFic, 11)
    .int12 = Cells(intFic, 12)
    .int13 = Cells(intFic, 13)
    .int14 = Cells(intFic, 14)
    .int15 = Cells(intFic, 15)
    .int16 = Cells(intFic, 16)
    .int17 = Cells(intFic, 17)
    .int18 = Cells(intFic, 18)
    .int19 = Cells(intFic, 19)
    .int20 = Cells(intFic, 20)
    .int21 = Cells(intFic, 21)
    .int22 = Cells(intFic, 22)
    .int23 = Cells(intFic, 23)
    .int24 = Cells(intFic, 24)
    .int25 = Cells(intFic, 25)
    .int26 = Cells(intFic, 26)
    .int27 = Cells(intFic, 27)
    .int28 = Cells(intFic, 28)
    .int29 = Cells(intFic, 29)
    .int30 = Cells(intFic, 30)
    .int31 = Cells(intFic, 31)
    .int32 = Cells(intFic, 32)
    .int33 = Cells(intFic, 33)
    .int34 = Cells(intFic, 34)
    .int35 = Cells(intFic, 35)
    .int36 = Cells(intFic, 36)
End With

' compte le nombre d'enregistrements

intNum = LOF(intFic) / Len(MyInterface)
   Put intFic, intNum + 1, MyInterface
                  
Close #1

Next intFic

Worksheets("import").Activate

Cells.Select
Selection.ClearContents

Range("A1").Select

MsgBox ("Traitement finalisé")

Windows("COMPTA_pilotage_interface.xlsm").Activate
ActiveWorkbook.Saved = True
ActiveWorkbook.Close

End Sub

Tu peux évidemment me donner ton avis...

A bientôt !