praegune kellaaeg 25.04.2024 09:24:24
|
Hinnavaatlus
:: Foorum
:: Uudised
:: Ärifoorumid
:: HV F1 ennustusvõistlus
:: Pangalink
:: Telekavad
:: HV toote otsing
|
|
autor |
sõnum |
|
konverteri
HV vaatleja
liitunud: 20.10.2015
|
06.12.2017 11:10:19
Visual Basic 6.0 Enterprise Editionis. Ühest failide teise faili kopeerimine, kasutades Binary failisid. |
|
|
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 |
|
|
alfreedo
HV vaatleja
liitunud: 20.06.2010
|
06.12.2017 22:13:59
|
|
|
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.
|
|
Kommentaarid: 2 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
0 :: |
2 |
|
tagasi üles |
|
|
|
lisa lemmikuks |
|
|
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.
|