Tera Term

マクロコマンド "strscan" が期待どおりの動作をしません。(Ver 4.61)

;OK例 正解 result=3
  substr='AGGGGAAAAGGGGAAA'
  str='AAAGGGGAAAAGGGGAAAAAGGGGAAAAGGGG'
  strscan str substr
  int2str valstr result
  messagebox valstr "Result"

;NG例 正解は result=2 のはずなのに 0(不一致)
  substr='AAGGGGAAAAGGGGAA'
  str='AAAGGGGAAAAGGGGAAAAAGGGGAAAAGGGG'
  strscan str substr
  int2str valstr result
  messagebox valstr "Result"

;OK例 正解 result=3
  substr='AGGGGAAAAGGGGAAA'
  str='AAAGGGGAAAAGGGGAAAAGGGGAAAAGGGG'
  strscan str substr
  int2str valstr result
  messagebox valstr "Result"

;NG例 正解は result=2 のはずなのに 10
  substr='AAGGGGAAAAGGGGAA'
  str='AAAGGGGAAAAGGGGAAAAGGGGAAAAGGGG'
  strscan str substr
  int2str valstr result
  messagebox valstr "Result"