Ecrire a une postion particuliere dans un fichier

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Ecrire a une postion particuliere dans un fichier

Z_cool

HFR profile rating:⭐⭐⭐⭐

Salut,

Je cherche un truc pour ecrire en VBA des valeurs a des positions particulieres dans un fichier TXT (ou un String).

en gros, je recupere ce qu il y a dans un tableau XLS et je voudrais ecrire la 5iem cellule a la position du 20iem caractere, la cellule 8 a la position du 36iem caractere....

Je sais pas trop comment faire ca de maniere propre. (mes connaissances du VBA sur purement autodidacte alors ....)

Vous avez une idee ?

---------------
#mais-chut

Publicité

Z_cool

HFR profile rating:⭐⭐⭐⭐

non ?
personne n a d idee ?

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

personne peutr me dir alors comment copier une String a l interieur d une autre Sting ?

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

et bien, c est toujours Bide sur ce forum ou c est un special 1ier avril ?

Z_cool

HFR profile rating:⭐⭐⭐⭐

ba un truc comme ca en C, c est tres facile, je trouve bizar que ce ne soit pas faisable en VBA

---------------
#mais-chut

knakes

Mais si c'est faisable. Il te faut quelques bouts de codes :

Code :

lettre = Left(Right(Range("B20" ).Value),8),1)

La on récupère dans le cellule B20, le premier caractère après le 8ème (en clair le 9eme caractère).

Cherche dans les post comment on fait pour écrire dans un fichier et le tour est joué

Message édité par knakes le 03-04-2005 à 11:32:54

AlainTech

Pas trouvé? Cherche encore!

Charge ta string, modifie-la comme tu le ferais en C et réécris ton fichier...

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Z_cool

HFR profile rating:⭐⭐⭐⭐

AlainTech a écrit :

Charge ta string, modifie-la comme tu le ferais en C et réécris ton fichier...

oui, mais en C, le type string n existe pas, et j aurrais penssé qu il existait une Methode, ou meme une facon de fair ca de maniere propore.

---------------
#mais-chut

Z_cool

HFR profile rating:⭐⭐⭐⭐

knakes a écrit :

Mais si c'est faisable. Il te faut quelques bouts de codes :

Code :

lettre = Left(Right(Range("B20" ).Value),8),1)

La on récupère dans le cellule B20, le premier caractère après le 8ème (en clair le 9eme caractère).

Cherche dans les post comment on fait pour écrire dans un fichier et le tour est joué

en fait c est pas exactement ca que je veux faire.

imaginons les cellule A1, A2, A3

je voudrais avoir dans une variable : A1 sur 30 characteres, A2 sur 10 et A3 sur 8.

pour l instant j ai un truc comme ca:

Code :

Valueline_Intern = Cells(myline, 1) & String(40 - Len(Cells(myline, 1)), " " )
Valueline_Intern = Valueline_Intern & Cells(myline, 2) & String(12 - Len(Cells(myline, 2)), " " )
Valueline_Intern = Valueline_Intern & String(10 - Len(Cells(myline, 3)), "0" ) & Cells(myline, 3)
Valueline_Intern = Valueline_Intern & String(8 - Len(Cells(myline, 4)), "0" ) & Cells(myline, 4)

et je trouve pas ca speciallement propre

---------------
#mais-chut

knakes

En VB (VB6, VBA et VBS) tu peux te servir des deux fonctions suivantes :

Code :

coupe = Left ( String, Valeur )

Imaginons : coupe = Left ( "Mioumiou" , 4 ). coupe contienra : "Miou".

Code :

coupe = Right ( String, Valeur )

Imaginons : coupe = Right ( "Mioumiou" , 4 ). coupe contienra : "miou".

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Ecrire a une postion particuliere dans un fichier

Sujets relatifs
MAJ bd avec fichier csv	ACCESS : zone de liste déroulante : ne plus pouvoir écrire ?
boucler une lecture sur un fichier	[JDOM] Auto-incrément d'id dans un fichier XML
copier le contenu d'un fichier	creer un fichier XML
Ouvrir un fichier pdf depuis une application Java	un mail avec fichier joint qui ne fonctionne pas...
Fichier .properties (Struts)	Renommer un fichier Excel sous VBA Access
Plus de sujets relatifs à : Ecrire a une postion particuliere dans un fichier

Page générée en 0.039 secondes