回 帖 发 新 帖 刷新版面

主题:我又遇到了关于文本取数的难题了!请高手帮忙!

在一个文本中有有这样几行数:

-----------------------------
123,456,567,890,908

    123,564,567,456,342
   84,272,448  
    3,584,704
-----------------------------
如何能去到第4行的"272"这三个数?
我用以下这个这个方法取不准确.
FF= FREEFILE
open "*.txt"for input as #ff
  for i=1 to 4
  line input #ff,a$
  next
  close #ff
  do
   ina%=instr(ff,a$,",")
   if ina% then mid$(a$,ina%)=mid$(a$,ina%+ff)
   loop while ina%
  a$=MID$(A$,7,3)

请高手帮忙?谢谢!

回复列表 (共3个回复)

沙发

1.  我不知道你清不清楚"*.TXT"这个意思,只是随便说说

2.  你用ff这个变量用得很有点奇怪,
    这个变量只是用来作为一个空闲的文件号,
    你怎么把它当作你在字符串中的位置用了?

我只想向你说明方法,所以我就写简单一点,忽略一些移植性和排错性的考虑了.

open "1.txt" for input as #1
input #1,a$,a$,a$,b,c
close #1
print c

板凳

哈哈!其实这个代码我是抄的.,我把他改成这样就可以了.
open "*.txt"for input as #1
  for i=1 to 4
  line input #1,a$
  next
  close #1
  do
   ina%=instr(ff,a$,",")
   if ina% then mid$(a$,ina%)=mid$(a$,ina%+ff)
   loop while ina%
  a$=MID$(A$,7,3)


还有请你帮忙,如何把以上这个代码改成:
获取*.TXT的3个数字(也就是"272"三个数字)
并保存到如A.TXT文本的第一行中.
谢谢了!

3 楼

冥顽不灵

open "1.txt" for input as #1
open "a.txt" for output as #2
input #1,a$,a$,a$,b,c
print #2,c
close #1,#2

我来回复

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