字符串如下：
14/15/19/20/21/22/23/26/27/28/29/36/                                 
如何显示单个数字？

有点头晕，请大家帮忙！谢谢！

clea
s=alltrim('14/15/19/20/21/22/23/26/27/28/29/36/                                  ')
? s
for i=1 to occurs('/',s)
    cTmpvar1=left(s,at('/',s)-1)
    ? cTmpvar1
    s=right(s,len(s)-at('/',s))
endfor

还可以语句更少吗？

解决了，谢谢！

FOR i=1 TO ALINES(arr, "14/15/19/20/21/22/23/26/27/28/29/36/","/")
    ?arr[i]
ENDFOR

Wait Window Strtran("14/15/19/20/21/22/23/26/27/28/29/36/", "/", Chr(13)) At 5, 5

[此贴子已经被作者于2018-7-19 13:47编辑过]

? Strtran("14/15/19/20/21/22/23/26/27/28/29/36/", "/", Chr(13) + Chr(10))

=ALINES(arr, "14/15/19/20/21/22/23/26/27/28/29/36/","/")
LIST MEMORY LIKE ARR

谢谢各位大神！非常简洁！

1、根据我程序的需要，我的代码去掉不必要内容，缩减后最实用。
2、各位的代码只有"红星二锅头"的可以在6下运行，其他都要在9下运行，目前这个需要在6下运行！

再次谢谢各位大神！谢谢！

* VFP6 代碼
=ALINES(arr, CHRTRAN("14/15/19/20/21/22/23/26/27/28/29/36/","/",CHR(13)))
LIST MEMORY LIKE ARR