Recup TableauRésolu

Question

Je voudrais recuperer l'organisation d'un tableau generer par le code ci-dessou qui cree un fichier txt par exemple:

Sub main()
Dim buffer() As Integer
Dim i As Integer

ReDim buffer(511) As Integer

Open App.Path & "	est.txt" For Binary As #1

For i = 0 To 10
buffer(i) = i
DoEvents
Next i

ReDim Preserve buffer(10) As Integer

Put #1, , buffer()

Close #1

Erase buffer
End Sub

Bien sur ce n'est qu'un exemple d'utilisation mais bon le principe i est, merci pour votre aide, par avance.

cs_CanisLupus · Accepted Answer

Salut,
 ben, tu fais l'inverse :

Dim buffer() As Integer
Dim i As Integer

ReDim buffer(FileLen("c:	est.txt")) As Integer

Open "c:	est.txt" For Binary As #1

Get #1, , buffer()

Close #1

Cordialement

CanisLupus

cs_RDX · Answer

Tiens je reconais quelques trucs la dedans...

L'organistaion d'un tableau comme un fichier wave?

cs_legion91 · Answer

RDX> ouais bien vu et je voulais enfaite a partir de ce code faire une sorte de base de donné, mais jai repris le code d'un tuto possé récament.
http://www.vbfrance.com/code.aspx?ID=24461

CanisLupus> cool sa marche impec, oulai ben jsuis trop gaze vla comment faire une base de donné sans Axcess en deux trois lignes ;-) trop merci man.

cs_legion91 · Answer

Bon j'ai postez une source qui pourrait interressez du monde sait t'on jamais.

http://www.vbfrance.com/code.aspx?ID=25235

Recup Tableau

4 réponses

Discussions similaires