Decomposition de nombre

Salut je suis nouveau sur ce site, j'ai un petit probleme en Vb (je l utilise depuis peu), je dois recuperer un fichier texte et l'afficher sous forme de tableau, ca c'est fait.
Ce fichier comporte une colonne tres importante où il n'y a ke des nombres, ex: 75401010234356, je dois decomposer ces nombres et les isoler, exemple le 75 va dans un tableau à part ainsi ke le 40, le 101 va vers un 3ieme tableau, etc...

je ne sais pas comment faire, si jamais quelqu un pouvait m aider, merci,

PS: j'espere que mon explication est assez claire,


a++++++++

labout
if faut utiliser cette méthode

dans un module
Type Record ' Désigne un type défini par l'utilisateur.
ID As Integer
Name As String * 20
Zone1 as string *2
Zone2 as string *3
Zone3 as String *2
End Type

Dim MyRecord As Record.
' Ouvre l'exemple de fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
' Lit l'exemple de fichier à l'aide de l'instruction Get.
do while not eof(1)
Get #1, , MyRecord ' Lit le troisième enregistrement.
Loop
Close #1 ' Ferme le fichier.

Myrecord comprendra
Myrecord.id
Myrecord.Name
etc

Bye

Non c'est pas clair du tout tu nous expliques meme pas le procdé pour arriver à décomposé ton nombre, pour quoi tu le décompose comme ceci?

labout
Je ne décompose pas le nombre, je charge la ligne du fichier texte dans une structure

Supposons que
La structure de lligne
soit
Nom 25
Prenom 20
Age 2
Tel 10
Fax 10
Retour chariot

je déclare une structure

type record
Nom as string*25
Prenom as string *20
age as string *2
tel as string *10
fax as string *10
Vbcrlf as string*2 ' si les lignes comprennent un retour chariot
chr(13)+chr(10)

Lors de la lecture
End type
dim myrecord as record
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)

do while not eof(1)
Get #1, , MyRecord ' Lit le1er enregistrement.
' ce que l'on fait avec record
Loop

En fait Myrecord est une variable qui contiendra pour le 1er enreg

Myrecord.nom "dupont
Myrecord.prenom "jean"
Myrecord.age 20
myrecord.tel "0202020202"
myrecord.fax "020303030"
Myrecord.vbcrlf " chr(13)+chr(10)

Bien sur la ligne a des champs de longueur fixe ce qui est en général le cas.

Que je saches mon nombre
200202020202020303030
a bien été décomposé en 3 champs.

Je ne peux être plus clair.

Microsoft n'en donne pas autant.
@+

Merci labout, je vais tester ca de suite, je dirais quoi, a++++++ et encore merci

Merci labout, je vais tester ca de suite, je dirais quoi, a++++++ et encore merci