【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net

**デフォルトの名無しさん** · 2017/03/08(水) 20:35:59.45

ただし、Right$()は
If (IBB = 0) Then
StateLong(IAA) = 0
Else
StateLong(IAA) = 1
IAA = IAA + 1
StateLong(IAA) = 2
EndIf
と、SBCS(0)かDBCS(１文字目が1, ２文字目が2)と記録して
後ろから文字数を数える必要がある。
Instr() は手を付けていない。
ＡＳＣ１文字検索の時だけDBCS２文字目の場合にはねるだけだから、比較的簡単に作れると思う。