Créer un fichier TXT en VBA

[Pako]

'**********************************************************

' Cette routine crée un fichier (.txt) dans les répertoires SUPPORT d'AutoCAD

' Enlever tous les "...." qui sont utilisés pour imbrication

' pako35@hotmail.com

'*************************************************************

Public Sub creerFichier2()

 

....Dim fs, a

....Dim stSupport As String

....Dim stTab() As String

....Dim i As Integer

....Dim iIN As Integer

 

....Set fs = CreateObject("Scripting.FileSystemObject")

 

....stSupport = ThisDrawing.Application.preferences.Files.SupportPath

....stTab = Split(stSupport, ";")

 

....For i = 1 To UBound(stTab)

........iIN = InStr(1, stTab(i), "SUPPORT", 0)

........If iIN > 0 Then

............Set a = fs.CreateTextFile(stTab(i) & "\DATA.txt", True)

............a.WriteLine ("Vive CADxp !")

........End If

....Next

 

....a.Close

 

End Sub

 

'*************************************************************

AVIS : recherche une routine pour OUVRIR un fichier (.txt) et lire son info .... :P

 

Merci ! ... ;)

[didier]

hello PAKO,

 

en réponse à ton avis,

que cherches tu à faire précisément ?

 

est ce qu'il s'agit d'ouvir un fichier texte,

le lire ligne par ligne,

pour insérer des points par exemple.

 

dans l'attente de tes renseignements,

 

amicalement

[Pako]

est ce qu'il s'agit d'ouvir un fichier texte,

le lire ligne par ligne,

pour insérer des points par exemple.

 

Exactement Didier,

 

Sauf pas insérer des points, mais des valeurs d'attribut...

 

Merci ! Ouff Je croyais ce sujet mort .... :exclam:

 

A+ :)

[Pako]

J'relance ma question :

 

J'recherche une routine pour OUVRIR un fichier (.txt) et lire son info ....

 

Est-ce possible ? Si oui, comment ? :casstet:

 

 

Merci d'avance ! :)

 

l'ACADien !

[smellems]

Bien sur que c'est possible...

 

Open "C:\Test.dxf" For Input As 1

 

ensuite je sort chaque ligne du fichier...

 

Dim StrLigne As String

Dim dxfString As String

Do While Not EOF(1)

___Line Input #1, StrLigne

___dxfString = dxfString & vbCrLf & StrLigne

Loop

 

le contenu de mon fichier se retrouve dans dxfString.

il reste juste à chercher ce que tu veux : InStr()

 

et changer les valeurs necessaires...

 

j'espère que ça aide...