Ecrire sur le i ème caractère d'une ligne d'un fichier texte

Bonjour,

N'ayant aucune de mes macro précédente sous la main je n'arrive plus a retrouver une instruction.
L'objectif est de positionne un texte a un certain endroit d'un fichier texte.
en gros

Code:

---

print #nf, cells(i,1) & LaFonction(19) & cells(i,2)

---

Le but est que le contenu de cells(i,2) soit par exemple à partir du 19ème caractères de ma ligne de texte quelque soit la longeur du contenu de la première cellule (de longueur bien évidement inférieure à 19)

Bonjour,

Je ne vois pas l'instruction dont tu parles mais ne peux tu pas tester la longueur du texte avant et ajuster en fonction ?


Edit : un essai

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub EX01_txt() Dim Liste As String Dim nf As Integer   nf = FreeFile(1) Open "c:\exemple.txt" For Output As #nf 'ensuite pour ecrire dans le fichier tu fais   For i = 1 To 10 Macell = Trim(Cells(i, 1).Value) If Len(Macell) > 19 Then Cells(i, 1).Select MsgBox "je ne traite pas ce cas" Exit For Else Liste = Cells(i, 1) & Space(19 - Len(Macell)) & Cells(i, 2) End If Print #nf, Liste Next     Close (nf) 'ne pas oublier de fermer le fichier a la fin End Sub

---

Pour l'instant je fais

Code:

---

1 2 3 4 5

ligne = Cells(i, 1) For j = Len(ligne) To 17 ligne = ligne & " " Next j ligne = ligne & Cells(i, 2)

---

Mais ce n'est pas vraiment élégant :oops:
je vais continuer a voir avec google s'il n'a pas une meilleure idée, mais je peine sur les mots clefs

Bonjour ami Krovax,

Si j'ai bien compris, tu cherches à insérer le contenu d'une variable dans un fichier texte, à un endroit précis du dit fichier texte. C'est çà ?
Si oui, à quel "endroit" ? A une ligne précise du fichier texte ou à un rang précis (nb de caractères) du dit fichier texte ?
Autre question : quel est le type (comment a-til été écrit ?) du fichier texte en cause : Structuré en base de données (et alors : quelle est la structure utilisée ?) ou plat (et alors écrit par Write ou par Print?) ?

La réponse exacte à ta question est différente selon le cas de figure concerné et dépend donc des précisions demandées..

Bonjour ucfoutu

Comme toujours de la précision, et tu as bien raison j'en manque pas mal sur ce coup là. Surtout que mon explication est imprécise.

Mon fichier est particulièrement simple
pas d'entête juste des "colonnes" qui corespondent à un certain rang.

Pour la méthode d'écriture du fichier je crain que cela n'aide pas il est fait par ma macro et sera lut par un mailleur. Chaque colonne corespond au coordonné d'un point, la première a son numéro.

Ce qui m'interesse c'est au moment ou j'écrit ma ligne (à l'aide d'un simple print) je voudrais placer toujours mes informations a partir du même rang (les infos colonne 2 sont a partir du 19ème caractère par exemple). Il me semble que cet été j'avais une fontion qui me permetait de le faire automatiquement, mais il se peut que je divague.

La macro pour 3 infos

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For i = 1 To 106 ligne = Cells(i, 1) For j = Len(ligne) To 19 ligne = ligne & " " Next j ligne = ligne & Cells(i, 2) For j = Len(ligne) To 36 ligne = ligne & " " Next j ligne = ligne & Cells(i, 3) Print #nf, ligne Next i

---

Et il me semble pouvoir le faire d'une ligne

Code:

---

Print #nf, cells(i,1) & LaFonction(19) & cells(i,2) & LaFonction(36) & cells(i,2)

---

Re...

1) C'est quoi, la fonction lafonction et le paramètre que tu lui passes ?
2) (et juste pour le cas où) : tu vas utiliser ensuite ce fichier à quelles fins ? (cette précision peut être importante).

Bonjour

Ce ne serait pas la fonction Mid(..) que tu cherches ?

Re...
Et juste pour le cas où mon petit doigt serait plus malin que moi...

Serait-ce ce qui ressemblerait à ceci, ce que tu cherches à faire ?

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click() Dim toto As String, tata As String, titi As String toto = "bonjour": tata = "hello ami": titi = "ça va ?" MsgBox zou(toto, 19) & zou(tata, 36) & zou(titi, 15) End Sub   Private Function zou(c As String, nb As Integer) As String zou = Format(c, String(nb, "@")) End Function

---

Si oui... bien...
Mais je reste sous l'impression de ce que tu n'utilises dans ce cas pas la meilleure méthode (un fichier structuré en base de données).
Tu dis ....

EDIT :
Tu auras remarqué l'alignement à droite, pour séparer tes colonnes.
Si tu le préfères à gauche, voilà une autre zou :

Code:

---

1 2 3

Private Function zou(c As String, nb As Integer) As String zou = c & String(nb - Len(c), " ") End Function

---

Re
Autant pour moi

Code:

---

Ce ne serait pas la fonction Mid(..) que tu cherches ?

---

:oops:

Par contre je pense que la fonction Space(..) peut t'aider

Re
Après un test rapide, tu peux remplacer

Code:

---

1 2 3 4 5

ligne = Cells(i, 1) For j = Len(ligne) To 17 ligne = ligne & " " Next j ligne = ligne & Cells(i, 2)

---

par

Code:

---

ligne = Cells(i, 1) & Space(18 - Len(Cells(i, 1))) & Cells(i, 2)

---

Bonjour a tous, alors effecitvement la fonction space devrait pourvoir m'aider en la combiant avec len

Pour ucfoutu, c'est effectivement l'idée mais il ne me semble pas que cela ai été une fonction perso mais j'avais pris le projet en cours de route et j'ai très bien put la zapper, ce qui expliquerai que je sèche. Je vérifierais ce soir si je retrouve une version du programme.

Sinon pour l'utilisation du fichier texte.
Il sera lut par le mailleur d'un logiciel élément finit pour créer les points de mon modèle mais ca je ne pense pas que cela va beaucoup aider.
Je le lis puis je le jette. J'utilise excel pour calculer la position des points. Difficile d'utiliser une autre méthode.

Bon je vais clore en attendant ce soir. Je vous dirais si j'ai révé ma fonction ou si effectivement elle existe belle et bien.

voila je l'ai. c'est la la fonction Tab

Citation:

---

Utilisée avec l'instruction Print # ou la méthode Print pour positionner la sortie.

---

utilisé ainsi :

Code:

---

Print #nf, "I"; node_n; Tab(10); "X "; Format(node_X, "0.0##"); Tab(23); Format(node_Y, "0.0##")

---