Inet1のプロパティとPerlの環境変数について (ID:79429)

名前

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

本文 ちょっと勘違いしていたかもわかりません。 >Private Sub Inet1_StateChanged(ByVal State As Integer) > Dim RX_DATA As Variant > Dim LINE_DATA() As String > Dim CNT As Integer > If State = 12 Then > RX_DATA = Inet1.GetChunk(60000, icString) > LINE_DATA = Split(RX_DATA, "<BR>") > For CNT = 0 To 300 > Debug.Print "NO." & CNT & LINE_DATA(CNT) > Next CNT > End If >End Sub >'------------------------------------------------------------------ >'受信したデータを編集して表示します。 >'この時サイズは200バイト ×300件なので60000としました。 >イミーデント表示は、 >NO.235 からしか表示しません。サイズの問題なのでしょうか？ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ためしにFor CNT = 50 to 100 や For CNT = 101 to 150 等範囲を狭くすると正確にイミディエントウインドに表示されました。ってことは変数にはこの記述で正常の取込めているのかなっって思って次の実験をやって見ました。 Private Sub Command1_Click() Dim TEST_STR1 As String '40BYTE Dim TEST_STR2 As String '40BYTE Dim TEST_STR3 As String '40BYTE Dim TEST_STR4 As String '40BYTE Dim TEST_TOTAL As String '160BYTE Dim CNT As Integer TEST_STR1 = "1234567890123456789012345678901234567890" TEST_STR2 = TEST_STR1 TEST_STR3 = TEST_STR1 TEST_STR4 = TEST_STR1 TEST_TOTAL = TEST_STR1 & TEST_STR2 & TEST_STR3 & TEST_STR4 & vbCrvbLf For CNT = 1 To 300 Debug.Print "NO." & CNT & TEST_TOTAL Next CNT End Sub 結果やっぱりイミディエントウンドには、NO.102からしか表示せず、1〜101が欠けちゃいます。単にミディエントウンドの表示キャパの問題だったとの結論付けは間違っているのでしょうか？HELPでもキャパに触れた記述は見つけられませんでしたけど・・・・・。