FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
Sub EcrireDansFichierTexte_OutPut 
  Dim Fichier As String 
  
  Fichier = "C:\NomFichier.Txt" 
  
  Open Fichier For Output As #1 
    Print #1, "Test 1ere ligne" 
    Print #1, "Test 2eme ligne" 
  Close #1 
End Sub

1
2
3
4
5
6
7
8
9
10
11
Sub EcrireDansFichierTexte_Append 
  Dim Cible As Integer 
  Dim Fichier As String 
  
  Fichier = "C:\NomFichier.Txt" 
  
  Cible = freeFile 
  Open Fichier For Append As #Cible 
    Print #Cible, "Mon texte dans le fichier" 
  Close #Cible 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub LireFichierTexte_Input 
  Dim Ligne As String 
  Dim Fichier As String 
  
  Fichier = "C:\NomFichier.Txt"   
  
  Open Fichier For Input As #1 
  
    '--- Boucle sur les lignes du fichier 
    Do While Not EOF(1) 
      Line Input #1, Ligne 
      Msgbox Ligne 
    Loop 
  
  Close #1 
End Sub

  Shell "notepad.exe /P""C:\NomFichier.Txt""", 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub SupprimerQuelquesLignes 
  Dim Fichier As String 
  Dim Collect As New Collection 
  Dim F As Integer, i As Integer 
  Dim Ligne As String 
  
  Fichier = "C:\NomFichier.Txt" 
  
  F = FreeFile 
  'Lecture du fichier : ajoute chaque ligne dans la collection 
  Open Fichier For Input As #F 
    While Not EOF(F) 
      Line Input #F, Ligne 
      Collect.Add Ligne 
    Wend 
  Close #F 
  
  'Suppression des lignes 1, 3 et 10 dans la collection 
  Collect.Remove 10 
  Collect.Remove 3 
  Collect.Remove 1 
  
  'Réécriture du fichier txt sans les données supprimées 
  Open Fichier For Output As #F 
    For i = 1 To Collect.Count 
      Print #F, Collect(i) 
    Next 
  Close #F 
  
  Collect = Nothing 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
  
Sub SupprimerLignesDoublons 
  Dim Fichier As String 
  Dim Collect As New Collection 
  Dim F As Integer, i As Integer 
  Dim Ligne As String 
  
  Fichier = "C:\NomFichier.Txt" 
  
  F = FreeFile 
  
  On Error Resume Next 
  
  'Lecture du fichier 
  Open Fichier For Input As #F 
    While Not EOF(F) 
      Line Input #F, Ligne 
      'Le 2eme argument, key = Cstr(Ligne), est unique et permet donc de filtrer les doublons 
      'dans la collection. 
      Collect.Add Ligne , Cstr(Ligne) 
    Wend 
  Close #F 
  
  On Error GoTo 0 
  
  'Réécriture du fichier txt sans les doublons 
  Open Fichier For Output As #F 
    For i = 1 To Collect.Count 
      Print #F, Collect(i) 
    Next 
  Close #F 
  
  Collect = Nothing   
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub nombreLignesFichierTexte_V01() 
  Dim strLigne As String 
  Dim nbLignes As Long 
  Dim Fichier As String 
  
  Fichier = "C:\NomFichier.Txt" 
  
  Open Fichier For Input As #1 
    Do While Not EOF(1) 
      Line Input #1, strLigne 
      nbLignes = nbLignes + 1 
    Loop 
  Close #1 
  
  MsgBox "Nombre de lignes : " & nbLignes 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub nombreLignesFichierTexte_V02() 
  Dim oObj As Object , Fso As Object , oFile As Object 
  Dim Fichier As String 
  
  Const ForReading = 1 
  Fichier = "C:\NomFichier.Txt" 
  
  oObj = createUnoService("com.sun.star.bridge.OleObjectFactory") 
  Fso = oObj.createInstance("Scripting.FileSystemObject") 
  oFile = Fso.OpenTextFile( Fichier , ForReading ) 
  
  oFile.ReadAll 
  MsgBox "Nombre de lignes : " & oFile.Line 
  oFile.Close 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
  
Sub RemplacerChaine_Dans_FichierTexte 
  Dim Chaine As String , Cible As String 
  Dim Fichier2 As String , Fichier1 As String 
  Dim Ancien As String , Nouveau As String 
  
  Ancien = "42" 
  Nouveau = "29" 
  
  'Le fichier original 
  Fichier1 = "C:\NomFichier.txt" 
  'Le nouveau fichier qui va être créé 
  Fichier2 = "C:\NomFichierModifié.txt" 
  
  Open Fichier1 For Input As #1 
  Open Fichier2 For Append As #2 
    'Boucle sur toutes les lignes du fichier texte 
    Do While Not EOF(1) 
      Line Input #1, Chaine 
	  'Remplace les caractères dans la chaine	 
      Cible = Join(Split(Chaine , Ancien), Nouveau) 
	  'Ecrit le résultat dans un nouveau fichier texte 
      Print #2, Cible 
    Loop 
  'Fermeture des fichiers 
  Close #1     
  Close #2     
  
  'Suppression Fichier d'origine 
  'Kill Fichier1 
  
  MsgBox "Terminé." 
End Sub