ab.com コミュニティ https://www.activebasic.com/forum/ |
|
Right$ で AB4.2 のバグ? https://www.activebasic.com/forum/viewtopic.php?t=689 |
ページ 1 / 1 |
作成者: | るっとパパ [ 2006年1月31日(火) 11:05 ] |
記事の件名: | Right$ で AB4.2 のバグ? |
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] '********** '[] '[] '[] '********** '? '-----------結果は↑----------- |
作成者: | NoWest [ 2006年1月31日(火) 12:51 ] |
記事の件名: | Re: Right$ で AB4.2 のバグ? |
引用: > AB4.2 で次の様な現象があります。
これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。> おそらくバグではないかと思います。(もしかしたら仕様変更?) > 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にしてください。 文字列ポインタにし忘れていますね。 |
作成者: | るっとパパ [ 2006年1月31日(火) 16:37 ] |
記事の件名: | Re: Right$ で AB4.2 のバグ? |
> これはActiveBasicそのもののバグではなくてライブラリ側のバグですね。 > > Includeフォルダ内のbasicフォルダの中にあるfunction.sbpの > 次の箇所を修正。 > > 文字列ポインタにし忘れていますね。 すばやい対応、ありがとうございます。正常動作を確認しました。 ライブラリを見ようという発想がありませんでした。 自分で見て分かるか疑問ですが、ひとつの刺激になったように思います。 |
作成者: | 山本 [ 2006年2月13日(月) 01:40 ] |
記事の件名: | |
NoWestさん、解決策のご助言、ありがとうございました。 次回のバージョンアップでライブラリの一部を修正しますので、ご了承ください。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |