ab.com コミュニティ

私のＰＣもまったく同じ現象でした。

下記コードをV4.2で実行すると、V4.13の20倍(Print#)～30倍(Input#)位
時間がかかり、かつ非常に不安定になります。(高頻度で「～のメモリを
参照しました。メモリが"read"になることはできませんでした。」で死に
ます(回数やデータの桁を増やせば更に頻度が増します)。)

Do～LoopやWhile～Wendも試してみましたが、所要時間は多少変わっても
状況に大きな変化はありません。

Windows 2000 & XP で同じ現象です。

'↓↓↓↓↓
#prompt
Dim T1 As Long,I As Long,J As Long,LN As Long
'
LN=1
Time1()
Open "Test.txt" For Output As #1
For I=1 To 10000
Print #1,I
Locate 1,LN
Print "Print # --- "+Str$(I)
Next I
Close #1
Time2()
'
LN=4
Time1()
Open "Test.txt" For Input As #1
For I=1 To 10000
Input #1,J
Locate 1,LN
Print "Input # --- "+Str$(I)
Next I
Close #1
Time2()
'
Sub Time1()
Dim TH As String,TM As String,TS As String
TH=Mid$(Time$(),1,2)
TM=Mid$(Time$(),4,2)
TS=Mid$(Time$(),7,2)
T1=Val(TH)*3600+Val(TM)*60+Val(TS)
End Sub
'
Sub Time2()
Dim TH As String,TM As String,TS As String
Dim T2 As Long
TH=Mid$(Time$(),1,2)
TM=Mid$(Time$(),4,2)
TS=Mid$(Time$(),7,2)
T2=Val(TH)*3600+Val(TM)*60+Val(TS)
Locate 1,LN+1:Print Str$(T2-T1)+"秒"
End Sub
'↑↑↑↑↑