Traitement de format de fichier

Bonjour!

J'ai cherché longtemps dans les forums:fou:, et quelques solutions semblaient se rapprocher de mon problème, mais en vain. Mon programme VB doit lire un fichier ".tab" qui est généré par un autre programme. Ce ".tab" a un fileformat UNIX. VB le lit donc par colonne au lieu de le lire ligne par ligne, mais je dois traiter ces données.

Si je l'ouvre et le renomme manuellement, via TextPad, avec un extension ".txt", ça marche puisqu'il le garde en fileformat "PC", mais comment le faire par code? Si je le copie en changeant son extension(.txt,.swx), il reste en UNIX, et VB ne peut toujours pas le lire ligne par ligne. J'ai cherché pour changer le fileformat lors de la copie, mais je n'ai rien trouvé.

J'ai aussi essayé de créer un document "swx" pour ensuite le copier dedans, car tous les ordis sont en Open Office, mais VB bloque me dit qu'il manque un objet à cet endroit;

Code:

---

Set oDispatcher = oServiceManager.createInstance("com.sun.star.frame. DispatchHelper

---

Voici le code que j'essaie, que j'ai trouvé dans les forums;

Code:

---

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

Dim oServiceManager As Object Dim oDispatcher As Object Dim Desktop As Object, Document As Object Dim args() Dim Chemin As String Range("A1:A5").Copy   Set oServiceManager = CreateObject("com.sun.star.serviceManager") Set Desktop = oServiceManager.createInstance("com.sun.star.frame.Desktop") Set Document = Desktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args) Set oDispatcher = oServiceManager.createInstance("com.sun.star.frame. DispatchHelper") oDispatcher.executeDispatch Document.currentController.Frame, ".uno:Paste", "", 0, Array() Chemin = Application.worksheetFunction.Substitute(thisWorkbook.Path, "\", "/")

---

Est-ce que quelqu'un pourrait m'aider ou du moins m'orienter svp?
Merci!:calim2:

Bonjour,

Citation:

---

VB le lit donc par colonne au lieu de le lire ligne par ligne...

---

Et tu le lis comment avec VB ?
Comme un fichier texte ou comme un fichier binaire, avec quelles instructions?

Je le lit comme un fichier texte, ainsi;

Code:

---

1 2 3 4 5 6

Open Chemin For Input As #numFichier Do While Not EOF(numFichier) Line Input #numFichier, ligneATraiter Loop Close #numFichier

---

Je mets chaque ligne dans un tableau, et quand je fais un msgbox pour voir le contenu du tableau, il affiche tout exactement comme dans le fichier, comme si tout était dans la même ligne.

tu peux mettre un fichier "tab" en piece jointe ?

J'ai essayé de le joindre, mais il me dit fichier non vallide!!! Je l'ai joint avec l'extension ".txt", mais le contenu est pareil comme le ".tab"(il ne fonctionne pas plus).

Je l'ai ouvert normalement avec TextPad, et si je fais un "save as", je vois le file format qui est UNIX. Si je met PC dans file format, le fichier est lu correctement, mais comment le faire par code?
:aie:

C'est déjà beacoup plus simple pour moi de comprendre avec le fichier joint. Tu n'as pas de CrLf pour séparer tes données mais simplement des Lf (pour t'en rendre compte, il suffisait de lire la chaine lue caractère par caractère et d'afficher le code ASCII de chaque caractère)
Il te suffit donc de lire le fichier d'un bloc, puis de splitter la chaine obtenue :

Code:

---

1 2 3 4 5 6

Open Chemin For Input As #numFichier Line Input #numFichier, FichierEnBloc Close #numFichier FichierParLigne = Split(FichierEnBloc,vblf) Debug.Print "nombre de lignes dans le fichier = " & UBound(FichierParLigne ) + 1

---

Ça marche!
Merci infiniment! :ave:

Je ne cherchais pas dans le bon sens, je croyais vraiment que c'était à cause du format de fichier.