Discussion :

[parp1]

Bonjour je debut depuis 3 jours en VB car je suis en stage.

Je dois reconstituer un volume 3D avec la blibliotheque VTK.

Pour cela un outils de vtk lie des données unsigned, alors que moi je lui envoi des signed.

Je souhaiterai donc faire une routine (car tous nos fichier sont en signed) pour convertir mon fichier remplit de signed. Nous avons du binary.

j'avais penser a :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Dim path as string
path = "c:\\Images\\Image16bits\\img"
Dim data as string
 
Open path For Input As #1
"data = input #1 ca ou ce qu'il y a en dessous?"
input #1,data
 
choses a faire.
 
Close #1

Mais apres je ne vois pas. Que pourait je faire

Merci Beaucoup!

[Delbeke]

Le code suivant te permet de charger l'ensemble du fichier dan un string

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim path as string
path = "c:\Images\Image16bits\img\"
 
Dim data as string
Dim hFich as integer
 
hFich= freefile   'demander au system un numero de fichier non utilisé
 
Open path & FileName For Binary As #hFich 'ouvrir en mode binaire
 
 data = string(lof(hFich),0)   'agrandir data pour pouvoir contenir tout le fichier
 Get #hFich,,data
 
'choses a faire.
 
Close #hFich

Tu remarqueras a l'occasion, l'utilisation de freefile qui renvoie un numero ,de fichier non utilisé. C'est une bonne habitude à prendre , je pense.

[parp1]

MErci a toi. Enfait j'ai trouver une fonction dans VTK qui resout le probleme donc je n'ai pas besoin de m'embeter comme ca.

Deplus j'avais fait une macro en python pour faire ca rapidement.

Merci a vous