- ©«¤l
- 824
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 904
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2023-12-24
|
¥»©«³Ì«á¥Ñ luhpro ©ó 2010-12-16 00:14 ½s¿è
¦^´_ 2# Min
§Ú¥Dnªº¥Î³~¬On¼g¨ì ¤G¶i¦ìÀÉ ¤º,
¦Ó¤£¬O·QÅã¥Ü¥X¨Ó¤å¦r,
§Ú¸Õ¹L¦b¦P¤@¥x¹q¸£¤¤¥Î C »y¨¥ ¥Î chr() ¨ç¼Æ¼g¤J¸Ó¦r¤¸¨ì ¤G¶i¦ìÀÉ ¬O¨S°ÝÃDªº.
¥Dn¬O¦b¤½¥q Excel ³nÅ骽±µ¥i¥H¨Ï¥Î,
¦ý C ê©óª©Åv°ÝÃD¦b¤½¥q¤£¯à¦w¸Ë¤Î¨Ï¥Î.
¦¹«e¤]¤w¸g¹ê²{¦¨¥\¨ä¤Ï¦V§@·~ : ±q¤G¶i¦ìÀɤ¤ÁÙì¥X¥»¨Óªº¼ÆÈ :
Sub Main()
Dim iColumn%, iRow%
Dim bData As Byte
Dim lPosition As Long
Close
With Sheets("Sheet1")
lPosition = 1
Open "C:\test.bin" For Random As #1 Len = 1
iColumn = 1
iRow = 1
While Not EOF(1)
Get #1, lPosition, bData
.Cells(iRow, iColumn) = bData
iColumn = iColumn + 1
If iColumn > 256 Then
iColumn = 1
iRow = iRow + 1
End If
lPosition = lPosition + 1
Wend
Close #1
End With
End Sub
§Ú²q´ú¦b MS ªº Basic ¤W¹ê§@À³¸Ó¤]¤£·|¦³°ÝÃD,
¬O§_¬O§Ú¤§«e©Ò¥Îªº¤è¦¡¿ù»~,
¥ç©Î¦³¥i¯à¬O Excel VBA ¥»¨´N¹ê²{¤£¥X¨Ó©O?
----------------------------------------------------------------
¸É¥R :
èè¤S¸ÕµÛ¥Î Random Àɪº¤è¦¡¹ê°µ¦¨¥\ :
Sub Main()
Dim iI%
Dim bChar As Byte
Dim lPosition As Long
Close
lPosition = 1
Open "C:\test1.bin" For Random As #1 Len = 1
For iI = 255 To 0 Step -1
bChar = iI
Put #1, lPosition, bChar
lPosition = lPosition + 1
Next iI
Close #1
End Sub
¦ý¤£ª¾ Binary ÀÉ (´`§Ç¼g¤J, ¤£¥ÎºÞ¤UÓ¸ê®Æn¼g¨ìÀɮפ¤ªº²Ä´XÓ¦ì¸m) ªº¶}±Ò¤è¦¡¤Sn¦p¦ó¹ê§@©O? |
|