先生们好，有一个12行30列的原表（字符型），当屏幕输入一个字符，这个字符与原表中的每一个值去比试，若原表中一个位置的值包含输入的值时则"搜索结果.dbf"中记录1，否则记录0(这样下来搜索结果中也有12行30列)，如原表中一个值是"大家好"，而输入的是"大家"或"家好"或"大家好"，则搜索结果中的这个位置记录的是数字1，gik 否则搜索结果中的这个位置记录的是数字0，也就是输入的值要包含于原表的值，谢谢先生
CLEAR
CLOSE  all
SET SAFETY OFF
set talk off
input '请输入一个想搜索的字符：' to JS
*---------------
USE 搜索结果
PACK
ZAP
SELECT 1
USE 原表
DIMENSION YB(12,30)
select * from 原表 into array YB
CLOSE ALL
*-------------------------------------------------------
FOR a=1 TO 12
  APPEND BLANK        
 FOR b=1 TO 30
 * 以下的yb(a,b)==js不是要求精确相等，而是只要js的字符包含在yb(a,b)内就在“搜索结果.dbf”中记录1，否则记录0
            if yb(a,b)==js   
                 REPLACE  ('列'+ALLTRIM(STR(b))) WITH  1                 
              ELSE
                REPLACE  ('列'+ALLTRIM(STR(b))) WITH  0  
            ENDIF
 ENDFOR
ENDFOR
?' 本次运行结束'
CLOSE ALL
DELETE FILE *.BAK
BROWSE

但运行不对，谢谢

谢谢先生的正确解答，谢谢啦！