Chirurgia cranio-cerebrală minim invazivă
Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne. Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale. www.neurohope.ro |
VIsual Basic! EOF sukz !?!?!
Last Updated: Sep 03 2003 10:21, Started by
Pick_One
, Aug 12 2003 22:53
·
0
#1
Posted 12 August 2003 - 22:53
Deci am aici un program care cica ar copia un fisier! faza e ca acest proggram dupa ce fac copierea fisierului a in b nu mai are aceeashi marime! adica fisierul a are 640.000 kb iar dupa ce il copiez in b, b va avea 640.001 kb! de ce? Eu presupun ca din cauza lui EOF
Acum va cer shi io un sfat ceva! sau sa-mi facetzi shi mie programul in asha fel incat sa nu mai imi adauge EOF-ul la sfarshit de fisier! dar nu lucratzi cu API sau filecopy() ca astea's simple shi io vreau sa shtiu in genul asta cum se lucreaza! Private Sub Command1_Click() Dim mybyte As Byte Open "f:a" For Binary As #1 Open "f:b" For Binary As #2 Do While Not EOF(1) Get #1, , mybyte Put #2, , mybyte Loop a = MsgBox("s-a terminat copierea", vbOKOnly, "COPY") Close #2 Close #1 End Sub deci care e buba programului? 10x pentru orice raspuns! ciao |
#2
Posted 03 September 2003 - 10:21
foloseshte functziile Lof shi Loc:
Do While current < Lof(1) Get #1, , mybyte Put #2, , mybyte current = Loc(1) Loop |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users