求个VFP小程序编写

Question

已知数组A（30），和一个变量B（B的值是某个字符串），想在数组A（30）中找到含有变量B的数组，并列举出来对应数组，如何编写程序，谢谢。

Answer 1

LOCAL ARRAY A(30), B, C[30], i, j
B = "某个字符串" && 设置变量B的值为“某个字符串”
j = 1
FOR i = 1 TO 30
IF !EMPTY(A(i)) AND ATC(B, A(i)) > 0 && 判断A(i)是否包含变量B
C(j) = A(i)
j = j + 1
ENDIF
ENDFOR
IF j = 1
? "未找到包含变量B的数组。"
ELSE
? "包含变量B的数组有："
FOR i = 1 TO j - 1
? C(i)
ENDFOR
ENDIF
解释一下这个程序的过程：
首先，定义了一个大小为30的数组A和一个字符串变量B，并将B初始化为某个字符串。
接着，使用FOR循环遍历数组A，如果数组元素不为空且包含变量B，则将该数组元素赋值给另一个数组C，并将C的下标加1。
最后，判断是否找到了包含变量B的数组。如果没有找到，则输出提示信息；否则，输出包含变量B的数组。

Answer 2

我猜您是想在A(30)中找到含有变量B所代表的字符串的元素，并列举出来：
FOR i=1 to 30
ci=ALLT(STR(i,2,0))
IF TYPE("A("+ci+")")="C" &&检测A(i)是不是字符型
IF AT(B,A(i))>0 &&检测B所代表的字符串是否存在于A(i)中
?A(i)
ENDIF
ELSE
LOOP
ENDIF
NEXT