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]
'**********
'[]
'[]
'[]
'**********
'?
'-----------結果は↑-----------
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] '********** '[] '[] '[] '********** '? '-----------結果は↑-----------
|