文本文件的内容传给变量！

有一个ANSI格式的文本文件，现在想把他的内容转给一个变量，假设为A,请问用什么办法呢！因为直接用APPE FROM 去传给表，字段容纳不了！我尝试建了一个表，要15个字段，每个字段255个字符，才可以容纳文本内容，若把这15个字段内容合在一起，又怕内容会不会有变！请问如何把文本内容传给变量，或者读入表中！

24 个解决方案

#1

ctext=filetostr(文件名)
set memowidth to 1024
for I=1 to memlines(ctext)
?本行字符
本行字符=mline(ctext,i)&&第I行的字符
NEXT
ctext中的内容即为TXT文件内容

#2

拆分ctext中的内容即可，将TXT文件贴出来看看

#3

变量名=FileToStr('文本名.TXT')

#4

另外，要看你的文本内容与表字段对应关系，如果可以对应，直接导入即可。

#5

文本内容:
<html><head><title>广州证券行情系统 V2.2</title><link rel="stylesheet" href="css.css"></head><body><table width=400 height=300 align="left"><tr bgcolor=#deedf3><td align=left>名  称</td><td align=left>中国银行</td><td align=left>代  码</td><td align=left>601988</td></tr><tr bgcolor=#ffffff><td align=left>现  价</td><td> 5.04</td><td align=left>现  手</td><td align=left>56</td></tr><tr bgcolor=#deedf3><td align=left>昨  收</td><td> 4.89</td><td align=left>今  开</td><td> 4.96</td></tr><tr bgcolor=#ffffff><td align=left>最  高</td><td> 5.18</td><td align=left>最  低</td><td> 4.95</td></tr><tr bgcolor=#deedf3><td align=left>涨  跌</td><td> 0.15</td><td align=left>涨  幅</td><td> 3.07</td></tr><tr bgcolor=#ffffff><td align=left>成交额</td><td> 63080.49万</td><td align=left>成交量</td><td> 1242535</td></tr><tr bgcolor=#deedf3><td align=left>卖五价</td><td> 5.07</td><td align=left>卖五量</td><td align=left>849</td></tr></tr><tr bgcolor=#ffffff><td align=left>卖四价</td><td> 5.06</td><td align=left>卖四量</td><td align=left>1140</td></tr></tr><tr bgcolor=#deedf3><td align=left>卖三价</td><td> 5.05</td><td align=left>卖三量</td><td align=left>1839</td></tr><tr bgcolor=#ffffff><td align=left>卖二价</td><td> 5.04</td><td align=left>卖二量</td><td align=left>27</td></tr><tr bgcolor=#deedf3><td align=left>卖一价</td><td> 5.03</td><td align=left>卖一量</td><td align=left>3205</td></tr></tr><tr bgcolor=#ffffff><td align=left>买一价</td><td> 5.02</td><td align=left>买一量</td><td align=left>2142</td></tr><tr bgcolor=#deedf3><td align=left>买二价</td><td> 5.01</td><td align=left>买二量</td><td align=left>1699</td></tr><tr bgcolor=#ffffff><td align=left>买三价</td><td> 5.00</td><td align=left>买三量</td><td align=left>6193</td></tr></tr><tr bgcolor=#deedf3><td align=left>买四价</td><td> 4.99</td><td align=left>买四量</td><td align=left>3281</td></tr></tr><tr bgcolor=#ffffff><td align=left>买五价</td><td> 4.98</td><td align=left>买五量</td><td align=left>11863</td></tr><tr bgcolor=#deedf3><td align=left>外  盘</td><td align=left>615121</td><td align=left>内  盘</td><td align=left>627414</td></tr></table></body></html>

#6

我刚才建的那个表，十五个字段，每段段255字符！刚回来，去试一下！

#7

还是上传TXT到www.access911.net/csdn

#8

上传了:wenben.txt

#9

用你的TXT文件
拆分标准、正确结果

#10

建议：
1、
变量名=FileToStr('文本名.TXT')
用Strtran(变量名,'没用的字符','') 将没有的东西替换掉，然后再转入表中。

2、
变量名=FileToStr('文本名.TXT')
然后在这个变量中找到要用的数据，然后再添加到你的表中。

#11

可以将内容转给变量了，谢谢两位大侠帮助！

#12

这个文件一共34个字段，都要吧

#13

      名  称中国银行代  码601988
      现  价5.04现  手56
      昨  收4.89今  开4.96
      最  高5.18最  低4.95
      涨  跌0.15涨  幅3.07
      成交额63080.49万成交量1242535
      卖五价5.07卖五量849
      卖四价5.06卖四量1140
      卖三价5.05卖三量1839
      卖二价5.04卖二量27
      卖一价5.03卖一量3205
      买一价5.02买一量2142
      买二价5.01买二量1699
      买三价5.00买三量6193
      买四价4.99买四量3281
      买五价4.98买五量11863
      外  盘615121内  盘627414

#14

我用了15个字段，每段255个字符，就装了，可能中间掉包了！^_^

#15

楼上大侠是怎么搞的，这么简单的？！

#16

你存这个干什么，是要传给什么程序吗？

你请扩展名改为HTM，打开看一下就知道了。

#17

名  称  中国银行  代  码  601988
现  价  5.04  现  手  56
昨  收  4.89  今  开  4.96
最  高  5.18  最  低  4.95
涨  跌  0.15  涨  幅  3.07
成交额  63080.49万  成交量  1242535
卖五价  5.07  卖五量  849
卖四价  5.06  卖四量  1140
卖三价  5.05  卖三量  1839
卖二价  5.04  卖二量  27
卖一价  5.03  卖一量  3205
买一价  5.02  买一量  2142
买二价  5.01  买二量  1699
买三价  5.00  买三量  6193
买四价  4.99  买四量  3281
买五价  4.98  买五量  11863
外  盘  615121  内  盘  627414

确实改为HTML就可以了

#18

HTML->HTM

#19

我是下载网页内容，然后调用里面的数据！^_^ 谢谢大侠帮助！
再问一下，能不能将这个HTM内容放在窗口中某个范围显示，那就不用调用，直接在表单上显示就是，这样就很方便了！谢谢！

#20

用WebBrowse控件即可。

#21

用代码就最好了！谢谢！

#22

如果不想用外部控件，用Edit控件也可以

lcTxtFileName='D:\wenben.txt'
lcHtmFileName=Forceext(lcTxtFileName,'.htm')
lcCsvFileName=Forceext(lcTxtFileName,'.csv')
=Strtofile(Strtran(Filetostr(lcTxtFileName),'css.css',''),lcHtmFileName)
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcHtmFileName') &&打开文件
R=oExcel.SHEETS(1).UsedRange.Rows.Count    &&有数据的总行数
C=oExcel.SHEETS(1).UsedRange.Columns.Count &&有数据的总列数
oExcel.Cells(R,C).Select  &&选中数据
oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式
oExcel.Columns.AutoFit  &&让所有的列宽都自动调整
oExcel.DisplayAlerts=.F.
oExcel.ActiveWorkbook.SaveAs(lcCsvFileName,6) &&另存为CSV
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量
lcString=Strtran(Filetostr(lcCsvFileName),'?',Space(1))
lnNum=Occurs(',',lcString)
For I=lnNum To 1 Step -1
If Mod(I,3)=2
lcString=Strtran(lcString,',',Chr(10),I,1)
Endif
Endfor
Thisform.edit1.Value=Strtran(lcString,',',':')

#23

用WebBrowse控件（shdocvw.dll）

Thisform.AddObject("oWebBrowse","olecontrol","Shell.Explorer.2")
Thisform.oWebBrowse.Height=Thisform.Height-100
Thisform.oWebBrowse.Width=Thisform.Width-100
Thisform.oWebBrowse.Top=100
Thisform.oWebBrowse.Left=100
Thisform.oWebBrowse.Navigate("d:\wenben.htm")
Thisform.oWebBrowse.Visible=.T.

#24

搞掂了，谢谢两位大侠！

#1