一个表有两个字段，一个叫“变量名”，一个叫“变量值”，变量名是事先输入好的，有一个txt文件，里边有n个数据，例如：
   12   10   159  12   13 596
有三个问题想请教一下大家：
1、首先，如何把这几个数按顺序插入到“变量值”里边？注意:txt文件里的各数字之间的空格是不定的，比如第一个数据之前会有几个空格，怎样操作只保留各数据之间的一个空格？
2、把问题1的问题解决后，如果我只想把第3个数到第5个数输入到“变量值”里边，用什么命令？如果数字之间夹杂有非数字的内容怎么提取数字？
谢谢大家！

如果知道有哪些非数字字符，先将它们置换掉会简单一点。

读出来解析

假设楼主的“变量值”是字符型：
my_str=FILETOSTR("i:\t.txt")+" "
n0=0
*只取第3-5个数
*n1=3
*n2=5
n1=1
n2=LEN(my_str)  
my_n=""
ckg=.t.
USE i:\表名
FOR i=1 to LEN(my_str)
    n=SUBSTR(my_str,i,1)
    IF !ckg .and. !EMPTY(my_n)
        n0=n0+1
        IF BETWEEN(n0,n1,n2)
            APPEND BLANK
            REPLAC 变量值 with my_n
        ENDIF
        my_n=""
    ENDIF
    ckg=IIF(n=" ",.f.,.t.)
    IF ISDIGIT(n) .and. ckg
        my_n=my_n+n   
    ENDIF
NEXT



[ 本帖最后由 qjbzjp 于 2011-1-6 18:43 编辑 ]

谢谢！
比如我的数字改成了：1.25   -1.497  A3B  6.8864   -9.10887
按上边“故乡”版主的代码的话这里的负号和小数点就没有了，而且那个“A3B”我并不需要，怎么办啊？

n=alines(aa,filetostr('t.txt'),4,' ')
for i=1 to n
  ?aa(i)
endfor

my_str=FILETOSTR("i:\t.txt")+"  "
n0=0
*只取第3-5个数
*n1=3
*n2=5
n1=1
n2=LEN(my_str)  
my_n=""
ckg=.t.
USE i:\表名
FOR i=1 to LEN(my_str)
    n=SUBSTR(my_str,i,1)
    IF !ckg .and. !EMPTY(my_n)
        n0=n0+1
        IF BETWEEN(n0,n1,n2)
            APPEND BLANK
            REPLAC 变量值 with my_n
        ENDIF
        my_n=""
    ENDIF
    ckg=IIF(n=" ",.f.,.t.)
    IF ckg
        my_n=my_n+n
    ENDIF
    IF !CHRTRAN(my_n,"abcdefghijklmnopqrstuvwxyz;
        ABCDEFGHIJKLMNOPQRSTUVWXYZ","")=my_n
        my_n=""
    ENDIF
NEXT

回答的很到位啊，


[ 本帖最后由 pisata 于 2011-1-7 22:00 编辑 ]