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]
'**********
'[]
'[]
'[]
'**********
'?
'-----------結果は↑-----------
Right$ で AB4.2 のバグ？
Re: Right$ で AB4.2 のバグ？
これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。> AB4.2 で次の様な現象があります。
> おそらくバグではないかと思います。（もしかしたら仕様変更？）
> Right$ を使用しなければ正常に動作します。
> Windows XP および 2000 で同じ現象です。
修正版がでるまで待てないと言う方はこちら [ここをクリックすると内容が表示されます]
Includeフォルダ内のbasicフォルダの中にあるfunction.sbpの
次の箇所を修正。
を
にしてください。
文字列ポインタにし忘れていますね。
次の箇所を修正。
コード: 全て選択
Function Right$(buf As String, length As Long) As String
Dim i As Long
i=Len(buf)
If i>length Then
Right$=ZeroString(length)
memcpy(Right$,StrPtr(buf)+i-length,length)
Else
Right$=buf
End If
End Function
コード: 全て選択
Function Right$(buf As String, length As Long) As String
Dim i As Long
i=Len(buf)
If i>length Then
Right$=ZeroString(length)
memcpy(StrPtr(Right$),StrPtr(buf)+i-length,length)
Else
Right$=buf
End If
End Function
文字列ポインタにし忘れていますね。
-
るっとパパ
Re: Right$ で AB4.2 のバグ？
> これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。
>
> Includeフォルダ内のbasicフォルダの中にあるfunction.sbpの
> 次の箇所を修正。
>
> 文字列ポインタにし忘れていますね。
すばやい対応、ありがとうございます。正常動作を確認しました。
ライブラリを見ようという発想がありませんでした。
自分で見て分かるか疑問ですが、ひとつの刺激になったように思います。
>
> Includeフォルダ内のbasicフォルダの中にあるfunction.sbpの
> 次の箇所を修正。
>
> 文字列ポインタにし忘れていますね。
すばやい対応、ありがとうございます。正常動作を確認しました。
ライブラリを見ようという発想がありませんでした。
自分で見て分かるか疑問ですが、ひとつの刺激になったように思います。