Rajouter des lignes automatiquement dans un fichier TXT

Rajouter des lignes automatiquement dans un fichier TXT - VB/VBA/VBS - Programmation

Marsh Posté le 29-07-2003 à 15:20:46    

Bonjour,
 
je dois faire quelques chose d'assez spécial et je ne sais pas du tout comment m'y prendre.
Voila le contexte.
Je travail avec des logiciels de CAO/FAO qui me permettent de dessiner en 3D les pieces qui vont ensuite etre usinées sur des machines outils à commandes numériques.
Ce logiciel de FAO me produit un fichier texte étant le programme qui va permettre aux machines de réaliser les differents usinages.
 
Le but de la manoeuvre est de rajouter quelques lignes, à certain endroit, que mon logiciel de FAO ne créées pas.  
Mais je n'ai pas d'idée sur le procédé ni l'outil a utiliser pour effectuer ce retraitement.
 
Je sais que c'est les vacances pour un bon nombre d'entre vous, mais si vous pouviez me filer un petit coup de pouce...
 
Merci  :hello:


Message édité par GENIUS999 le 30-07-2003 à 08:13:27
Reply

Marsh Posté le 29-07-2003 à 15:20:46   

Reply

Marsh Posté le 29-07-2003 à 15:55:26    

1) tu as les dites lignes?
2) tu as un critère pour les rajouter et ou?

Reply

Marsh Posté le 29-07-2003 à 16:10:51    

Oui, j'ai les lignes et j'ai les endroits (critères) ou je dois les rajouter.
 
Tu as une idée?

Reply

Marsh Posté le 29-07-2003 à 16:18:10    

je veux plus qu'un oui. je veux un exemple. du genre: je veux rajouter "hello" à la ligne 42 ou la ligne "sex on the beach" apres chaque ligne contenant le mot "groovy"

Reply

Marsh Posté le 29-07-2003 à 16:25:52    

ok scuse....
 
je rajoute :  
M200
G4 F1.0
M51
G4 F1.0
M202
G4 F1.0
N1
 
toujours apres la deuxieme ligne.
 
Et:
G4 F1.0
M201
G4 F1.0
M203
G4 F1.0
M50
G4 F1.0
M9
G4 F1.0
apres la ligne :
M5
 
 
En esperant avoir été plus clair.


Message édité par GENIUS999 le 29-07-2003 à 16:26:18
Reply

Marsh Posté le 29-07-2003 à 16:30:02    

bon ben c'est facile. tu est sous quel système? c'est pour traiter beaucoup de fichiers? à la fois?

Reply

Marsh Posté le 29-07-2003 à 16:34:05    

C'est sous windows 2000 pour traiter un seul fichier a la fois, maxi 10x par jour.


Message édité par GENIUS999 le 29-07-2003 à 16:34:31
Reply

Marsh Posté le 29-07-2003 à 16:35:25    

genius999 a écrit :

C'est sous windows 2000 pour traiter un seul fichier a la fois, maxi 10x par jour.

tu as des connaissances en informatique? un langage? une familiarité avec les interfaces textes?

Reply

Marsh Posté le 29-07-2003 à 17:01:32    

Je bosse dans l'info, par contre, niveau lmangage, je ne suis pas tres bon.
Je connais VBScript tres sommairement.

Reply

Marsh Posté le 29-07-2003 à 17:51:20    

ben écoute, continue à faire ton truc à la main, ou trouve toi un soft, ou un programmeur vb. si t'avais un système potable ou un interpréteur python/perl installé, tout le monde peut te filer la solution, ou tu peux la trouve facilement

Reply

Marsh Posté le 29-07-2003 à 17:51:20   

Reply

Marsh Posté le 29-07-2003 à 18:25:19    

Ok, d'accord, super!!
 
J'suis pas persuadé qu'il y ai besoin de temps de chose pour réaliser quelque chose d'aussi basique.
Merci pour ton petit coup de pouce

Reply

Marsh Posté le 29-07-2003 à 18:27:39    

ben y a rien sous windows...

Reply

Marsh Posté le 29-07-2003 à 19:23:38    

et en vbs?

Reply

Marsh Posté le 30-07-2003 à 08:09:47    

[:yoyoz]

Reply

Marsh Posté le 30-07-2003 à 08:11:19    

ben trouve toi un bouquin de vbs...

Reply

Marsh Posté le 30-07-2003 à 08:19:47    

Egalement, mais si quelqu'un du forum peut me donner un coup de main, c'est pas plus mal...

Reply

Marsh Posté le 30-07-2003 à 08:22:30    

ben si t'avais un système n*x en fait, ta question se résolvait en une simple combinaison de commande, ça rentrait donc dans le cadre d'utilisation de soft. mais là t'y connais rien à rien et tu demandes aux autres de te pondre un soft
 
http://forum.hardware.fr/forum2.ph [...] 544&cat=10

Reply

Marsh Posté le 30-07-2003 à 08:50:50    

Oui,  bien sur.
Desolé de ne pas connaitre tout sur tout des ma naissance!!
Voila ce que j'ai demandé:
 

genius999 a écrit :

Bonjour,
Mais je n'ai pas d'idée sur le procédé ni l'outil à utiliser pour effectuer ce retraitement.


 
J'ai jamais demandé a ce qu'on le fasse a ma place.
 
Maintenant, si tu ne peux pas m'aider, passe ton chemin.

Reply

Marsh Posté le 30-07-2003 à 08:54:42    

:heink:  :pfff:  
ecoutes je t'ai demandé ce que tu voulais, et la conclusion c'est que la solution sera en vb. maintenant forme toi et propose un bout de code

Reply

Marsh Posté le 30-07-2003 à 09:05:42    

Taz a écrit :

:heink:  :pfff:  
ecoutes je t'ai demandé ce que tu voulais, et la conclusion c'est que la solution sera en vb. maintenant forme toi et propose un bout de code  

 
 
Encore une fois, désolé mais ca ne prends pas 2 secondes.
C'est ce que j'ai l'intention de faire et c'est pour cette raison que depuis hier, je cherche à gauche à droite pour pouvoir faire mon petit log.
 
Alors arrete de m'agresser veux-tu, tu me fais perdre mon temps.
 

Reply

Marsh Posté le 30-07-2003 à 09:08:37    

écoute: on est une cat programmation, pas S&R. si tu t'attends à du code clef en main, tu perds réellement ton temps

Reply

Marsh Posté le 30-07-2003 à 09:14:47    

Bon, c'est le matin, alors je veux bien admettre que tu es encore de la merde dans les yeux, c'est pour cette raison que je te repeterais que je n'ai pas demander a ce qu'on bosse a ma place, que je cherche a droite a gauche sur le net pour progresser dans ce petit prog et que ca necessite quand meme un peu temps de reflexion, pour quelqu'un de non innicié, plutot que de ce jeter tete baissée dans quelque chose qui ne marchera pas.  
 
 [:lerodfaction]

Reply

Marsh Posté le 30-07-2003 à 09:16:50    

je suis de bonne humeur le matin mais la tu commences à m'énerver. si t'as pas envie de programmer, dis le

Reply

Marsh Posté le 30-07-2003 à 09:17:17    

genius999 a écrit :

Bon, c'est le matin, alors je veux bien admettre que tu es encore de la merde dans les yeux, c'est pour cette raison que je te repeterais que je n'ai pas demander a ce qu'on bosse a ma place, que je cherche a droite a gauche sur le net pour progresser dans ce petit prog et que ca necessite quand meme un peu temps de reflexion, pour quelqu'un de non innicié, plutot que de ce jeter tete baissée dans quelque chose qui ne marchera pas.  
 
 [:lerodfaction]  


L'énoncé de ton pb est plutot simple, et tu peux le faire dans bcp de langages différents.
Commence à le coder tout seul, si tu rencontres un pb on t'aidera, mais là je vois pas comment on peut t'aider alors que tu n'as pas de pb... [:skeye]

Reply

Marsh Posté le 30-07-2003 à 09:22:32    

on fait pas le code des autres, point .| :o
 
si t'as pas le temps de te former, on peut pas prendre le temps de te former non plus [:spamafote]
 
et accessoirement la gestion de fichiers en VB, j'ai horreur de ça, c'est super mal foutu et à la limite du compréhensible. En C, je pourrais presque le faire de mémoire :o

Reply

Marsh Posté le 30-07-2003 à 09:23:23    

skeye a écrit :


L'énoncé de ton pb est plutot simple, et tu peux le faire dans bcp de langages différents.
Commence à le coder tout seul, si tu rencontres un pb on t'aidera, mais là je vois pas comment on peut t'aider alors que tu n'as pas de pb... [:skeye]  


 
J'ai commencer a programmer, mais pour l'instant, je n'ai que 3 lignes, j'avance doucement...  :(  
Des que j'ai quelqueschose de plus concequent, je le mettrais sur le forum.

Reply

Marsh Posté le 30-07-2003 à 09:28:41    

drasche a écrit :

on fait pas le code des autres, point .| :o
 
si t'as pas le temps de te former, on peut pas prendre le temps de te former non plus [:spamafote]
 
et accessoirement la gestion de fichiers en VB, j'ai horreur de ça, c'est super mal foutu et à la limite du compréhensible. En C, je pourrais presque le faire de mémoire :o


 
Plutot que d'essayer de m'enfoncer, des liens vers des sites qui pourraient m'aider seraient, par exemple, un peu plus constructifs...

Reply

Marsh Posté le 30-07-2003 à 09:30:40    

« Liens et sujets utiles » peut être

Reply

Marsh Posté le 30-07-2003 à 09:31:33    

genius999 a écrit :


 
Plutot que d'essayer de m'enfoncer, des liens vers des sites qui pourraient m'aider seraient, par exemple, un peu plus constructifs...


On peut pas te donner ca tant que tu n'as pas vraiment un pb... [:skeye]
De plus, la fonction de recherche du forum t'aidera surement pour les pbs simples, sans oublier http://www.google.com !

Reply

Marsh Posté le 30-07-2003 à 09:37:40    

quelle brutalité, quel manque de sympathie envers ce brave forumeur ! moi je le ferais en perl, mais bon, tu as p-e pas l'interpréteur qui va bien

Reply

Marsh Posté le 30-07-2003 à 09:39:53    

voir les biblio links, sujet consacré aux liens utiles VB.

Reply

Marsh Posté le 30-07-2003 à 09:41:05    

noldor a écrit :

quelle brutalité, quel manque de sympathie envers ce brave forumeur ! moi je le ferais en perl, mais bon, tu as p-e pas l'interpréteur qui va bien

:heink: ...
 
comme déjà dit, c'est sous 2k et il a pas l'air de vouloir installé un quelconque interpréteur our un portage de awk. donc la solution, ça va sortir en VB ou autre je sens. y a pas de brutalié ou de manque de sympathie de notre part.
 
celui qui fait preuve de brutalité, manque de sympathie, se montre impolie sur cette cat, c'est celui qui ne respecte pas la charte.
 
à bon entendeur...

Reply

Marsh Posté le 30-07-2003 à 09:42:07    

noldor a écrit :

quelle brutalité, quel manque de sympathie envers ce brave forumeur ! moi je le ferais en perl, mais bon, tu as p-e pas l'interpréteur qui va bien


Il arrive avec un pb simple et commence à demander de l'aide avant même d'essayer tout seul dans son coin...il cherche, aussi... :heink:


---------------
Can't buy what I want because it's free -
Reply

Marsh Posté le 30-07-2003 à 10:04:22    

ya que moi qui ai vu l'ironie dans le post de noldor ou quoi? [:meganne]

Reply

Marsh Posté le 30-07-2003 à 10:17:03    

drasche a écrit :

ya que moi qui ai vu l'ironie dans le post de noldor ou quoi? [:meganne]

:hello:  :whistle:

Reply

Marsh Posté le 30-07-2003 à 10:17:09    

skeye a écrit :


Il arrive avec un pb simple et commence à demander de l'aide avant même d'essayer tout seul dans son coin...il cherche, aussi... :heink:  


 
 
Mais je cherche... Je voulais simplement au debut savoir avec quel outil simple a ma portée c'etait réalisable.
J'ai ma reponse et je suis en train de faire mon script tant bien que mal...
 Si tu regarde, je n'ai d'ailleurs dans mon premier post, donné que des informations globales ou générales et en aucun cas, toutes les données du problemes qui auraient pu permettre la réalisation de la solution...
 
Ce qui m'as deplu, c'est la facon de se comporter de Taz, qui as été limite agressif des son 2eme posts et je ne parle pas des suivants...


Message édité par GENIUS999 le 30-07-2003 à 10:17:54
Reply

Marsh Posté le 30-07-2003 à 11:46:40    

genius999 a écrit :

Ce qui m'as deplu, c'est la facon de se comporter de Taz, qui as été limite agressif des son 2eme posts et je ne parle pas des suivants...

Il était tout calme pourtant, t'as de la chance de pas déjà être TT :lol:

Reply

Marsh Posté le 30-07-2003 à 12:06:29    

*Syl* a écrit :

Il était tout calme pourtant, t'as de la chance de pas déjà être TT :lol:  


 
Ca prouve au contraire son serieux. C'est un probleme entre lui et moi, je n'ai pas fait quelque chose de mal vis a vis du forum...
 

Reply

Marsh Posté le 30-07-2003 à 12:08:53    

Sinon, pour vous prouvez que je bosse un peu  ;)  
Voila ou j'en suis : la premiere etape c'est a dire lecture du fichier :
 
Function MAF()
Dim MyFile
Dim z As Integer
Dim zeile() As String
 
 
MyFile = InputBox("Entrez le nom et le chemin du fichier" )
z = 1
Open MyFile For Input As #1
While Not EOF(1)
ReDim Preserve zeile(z)
Line Input #1, zeile(z)
z = z + 1
Wend
Close #1
 
End Function
 
Une matinée pour faire ca!!  :sweat:  
Bonjour la rentabilité, mais ca fonctionne, c'est deja pas mal ....

Reply

Marsh Posté le 30-07-2003 à 12:25:54    

Voila l'etape suivante : l'ecriture dans un nouveau fichier :
 
Function MAJ()
Dim MyFile
Dim z As Integer
Dim zeile() As String
 
 
MyFile = InputBox("Entrez le nom et le chemin du fichier" )
Set fs = CreateObject("Scripting.FileSystemObject" )
    Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
     
z = 1
Open MyFile For Input As #1
While Not EOF(1)
ReDim Preserve zeile(z)
    If z = 2 Then
    a.WriteLine ("Insertion des premiers blocs" )
    Else
    End If
Line Input #1, zeile(z)
a.WriteLine zeile(z)
z = z + 1
Wend
 
a.Close
 
Close #1
 
 
End Function
 
 
Maintenant, le plus dur, ajouter les lignes supplementaires en fonction du contenu de la ligne.
 


Message édité par GENIUS999 le 30-07-2003 à 12:43:50
Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed