α (ID:74611)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちょっといじってみました(最低限しかいじってません) うちのマシンで約45倍スピードアップしてます。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim byBuf() As Byte Dim i As Long ' Longが一番高速 Dim lngLOF As Long 'Dim strBuf(10000) As String 'ファイル名はお好きに変えて下さい Open CStr(Text1.Text) For Binary As #1 lngLOF = LOF(1) 'ループの判定に使うなら、変数に入れたほうが速い ReDim byBuf(1 To lngLOF) '変数を1番からファイルの大きさ(Byte)でまで再宣言 Get #1, , byBuf 'ファイル番号1をbyBufへExport ProgressBar1.Max = lngLOF '進行状況のバーの最大値をファイルの長さに ReDim strBuf(lngLOF) As String '文字列連結より配列代入が高速 For i = 1 To lngLOF strBuf(i) = Hex(byBuf(i)) If i Mod 1000 = 0 Then DoEvents '1000演算に一回自由を与えます。 ProgressBar1.Value = i 'バーの進行状態 ProgressBar1.Refresh Next i Close Stop End Sub