Pako Posté(e) le 3 mars 2005 Partager Posté(e) le 3 mars 2005 '**********************************************************' 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 ! ... ;) l'ACADien ! http://img124.exs.cx/img124/7999/start.gif Lien vers le commentaire Partager sur d’autres sites More sharing options...
didier Posté(e) le 5 mars 2005 Partager Posté(e) le 5 mars 2005 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 Éternel débutant... Mon site perso : Programmer dans AutoCAD Lien vers le commentaire Partager sur d’autres sites More sharing options...
Pako Posté(e) le 7 mars 2005 Auteur Partager Posté(e) le 7 mars 2005 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+ :) l'ACADien ! http://img124.exs.cx/img124/7999/start.gif Lien vers le commentaire Partager sur d’autres sites More sharing options...
Pako Posté(e) le 18 avril 2005 Auteur Partager Posté(e) le 18 avril 2005 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 ! l'ACADien ! http://img124.exs.cx/img124/7999/start.gif Lien vers le commentaire Partager sur d’autres sites More sharing options...
smellems Posté(e) le 27 avril 2005 Partager Posté(e) le 27 avril 2005 Bien sur que c'est possible... Open "C:\Test.dxf" For Input As 1 ensuite je sort chaque ligne du fichier... Dim StrLigne As StringDim dxfString As StringDo While Not EOF(1)___Line Input #1, StrLigne___dxfString = dxfString & vbCrLf & StrLigneLoop 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... Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Créer un compte ou se connecter pour commenter
Vous devez être membre afin de pouvoir déposer un commentaire
Créer un compte
Créez un compte sur notre communauté. C’est facile !
Créer un nouveau compteSe connecter
Vous avez déjà un compte ? Connectez-vous ici.
Connectez-vous maintenant