ab.com コミュニティ

NoWestさん、解決策のご助言、ありがとうございました。
次回のバージョンアップでライブラリの一部を修正しますので、ご了承ください。

> これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。
>
> Includeフォルダ内のbasicフォルダの中にあるfunction.sbpの
> 次の箇所を修正。
>
> 文字列ポインタにし忘れていますね。

すばやい対応、ありがとうございます。正常動作を確認しました。

ライブラリを見ようという発想がありませんでした。
自分で見て分かるか疑問ですが、ひとつの刺激になったように思います。

> AB4.2 で次の様な現象があります。
> おそらくバグではないかと思います。（もしかしたら仕様変更？）
> Right$ を使用しなければ正常に動作します。
> Windows XP および 2000 で同じ現象です。

これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。

AB4.2 で次の様な現象があります。
おそらくバグではないかと思います。（もしかしたら仕様変更？）
Right$ を使用しなければ正常に動作します。
Windows XP および 2000 で同じ現象です。

#console
Dim A As String
Dim B As String
Dim C As String
Dim S As String
Dim I As Long
S="abcde"
'------------------------------
A="["+Right$(S,3) +"]"
B="[" +Left$(S,3) +"]"
C="[" +Mid$(S,2,3)+"]"
Print "**********"
Print A
Print B
Print C
'
A=Right$(S,3)
B= Left$(S,3)
C= Mid$(S,2,3)
Open "Data.txt" For Output As #1
Print #1,A
Print #1,B
Print #1,C
Close #1
Open "Data.txt" For Input As #1
Input #1,A
Input #1,B
Input #1,C
Close #1
A="["+A+"]"
B="["+B+"]"
C="["+C+"]"
Print "**********"
Print A
Print B
Print C
Print "**********"
'------------------------------
Input I
End
'
'-----------結果は↓-----------
'**********
'[ ]
'[abc]
'[bcd]
'**********
'[]
'[]
'[]
'**********
'?
'-----------結果は↑-----------