Discussion :

[Mariquiqui]

Bonjour!

J'ai cherché longtemps dans les forums, 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[iclic]

Bonjour,

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?

[Mariquiqui]

Je le lit comme un fichier texte, ainsi;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[OhMonBato]

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

[Mariquiqui]

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?

[OhMonBato]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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