回 帖 发 新 帖 刷新版面

主题:如何将txt逐段加入到备注中?

如何将txt逐段加入到备注中?txt如下:
464564644
156456
abc 1456464646464644

56666
16464
12
156468489
abc 164ef4ds4f9

164646949
dfasfas
1656
abc 1646494894

........

每一段结束都会有一空行,每一段最后一行必有‘abc’字符,要把第一段放到第一条记录的备注中,第2段放到第2条记录的备注中,第3段放到第3条记录的备注中...............

回复列表 (共7个回复)

沙发

笨着,不知可行不
1\建一表,一个字段,长255
append from 文本文件
用程序逐行读字段
a=a+lin+chr(13)
当len(trim(lin))=0时,打开有备注字段的表,将备注字段用a替换
skip

板凳


不好意思,忘说了,每-段中都有可能超过254个字节。

3 楼

好象要做一个程序才行喔

4 楼

假设文本文件名为:tt.txt,数据表已在当前工作区中打开,备注字段名为 txt. 则有:
------------------------------------------------------------
m.txt = filetostr("tt.txt")
m.txt = chrt(m.txt,chr(10),'')
scan
  repl txt with left(m.txt,at(chr(13)+chr(13),m.txt))
  m.txt = subs(m.txt,at(chr(13)+chr(13),m.txt)+2)
  if empt(m.txt)
    exit
  endif
ends
-------------------------------------------------------------
没有测试过,请楼主偿试.

5 楼

感谢jinlonggao,有一点看不懂,m.txt和txt有区别吗?“m.”是什么意思?

6 楼

m.txt的“m.”我的理解是内存变量的识别,也就是习惯,以"m"开头,我是用"m_"的...

7 楼

回车换行码是  0D 0A 空格是 20 所以 如果txt文件是个二纬阵列的话 字段之间的分隔符是 20
而两条记录的分隔码是 0D 0A 这样就可一把 m.txt 字符串顺利导人已按数据二纬阵列结构所建的数据库,这个方法的好处是可以对付一条记录中有连续空格的TXT文件,如果有间隔数据就还要计算空格数以防止字段移位.....

我来回复

您尚未登录,请登录后再回复。点此登录或注册