Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Visual Basic 6.0 Enterprise Editionis. Ühest failide teise faili kopeerimine, kasutades Binary failisid. märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: m.hv.ee :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale. Teata moderaatorile
otsing:  
konverteri
HV vaatleja

liitunud: 20.10.2015




sõnum 06.12.2017 10:10 Visual Basic 6.0 Enterprise Editionis. Ühest failide teise faili kopeerimine, kasutades Binary failisid. vasta tsitaadiga

Otsisin mitu nädalat ja ei leidnud, palun aidake mind, et asi mulle selge oleks.
Private Sub Command1_Click()
Dim SF AS String, DF AS String
Dim TMP AS Byte

SF =FreeFile
Open "C:\notepad2\test10.txt" For Binary AS #SF
DF =FreeFile
Open "C:\notepad2\test11.txt" For Binary AS #DF

Do Until EOF(SF)
Get #SF, , TMP
Put #DF, , TMP
Loop
Close #SF
Close DF
End Sub

Allikas: www.vbforums.com/showthread.php?412514-Binary-copy-file-

Ja küsimused. Mis on Binary, mis on TMP ja miks close juures ei kasutata DF juures # ni?
tagasi üles
vaata kasutaja infot saada privaatsõnum
alfreedo
HV vaatleja

liitunud: 20.06.2010




sõnum 06.12.2017 21:13 vasta tsitaadiga

konverteri.

Dim TMP AS Byte - siin sa deklareerid kasutatavate andmete tüübiks Byte.
Andmetüüp määrab andmeobjekti suuruse, omadused ning temaga sooritatavad võimalikud tegevused.
4+4=8 aga neli+neli=error!
Igal tüübil on lõplik väärtuste hulk.
Byte s.t positiivseid arve 0..255ni.

... For Binary AS #DF
Binary s.t digitalne-numbriline, andmete pikkus pole määratud - andmed võivad olla ka pildi või heli kujul.

TMP on siin faili sisu.

Ka Close juures peaks kasutama #
See, et kood töötab (pole antud koodi ise küll testinud) ei tähenda, et ta ei või olla vigane.Viga pole oluline.

Pole eriline sõnaseadja, kuid loodan, et said aru mõttest.
Pole ka VB6-t kunagi kasutanud aga Exceli VBA baasil mälu järgi oletan.
Parandage, kui eksin.

_________________
http://web.zone.ee/alfreedo/
Kommentaarid: 2 loe/lisa Kasutajad arvavad:  :: 0 :: 0 :: 2
tagasi üles
vaata kasutaja infot saada privaatsõnum mine selle kasutaja kodulehele
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Visual Basic 6.0 Enterprise Editionis. Ühest failide teise faili kopeerimine, kasutades Binary failisid.
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
sa ei või postitada uusi teemasid siia foorumisse
sa ei või vastata selle foorumi teemadele
sa ei või muuta oma postitusi selles foorumis
sa ei või kustutada oma postitusi selles foorumis
sa ei või vastata küsitlustele selles foorumis
sa ei saa lisada manuseid selles foorumis
sa võid manuseid alla laadida selles foorumis



Hinnavaatlus ei vastuta foorumis tehtud postituste eest.