Board logo

标题: Txt文本的一些操作经验 [打印本页]

作者: cnangel    时间: 2002-10-27 02:14     标题: Txt文本的一些操作经验

1.保存一个文本
(1)不覆盖原文件
Open "文本全路径" For Append As #1
Print #1, "保存的字符"
Close #1
(2)覆盖原文件
Open "文本全路径" For Append As #1
Print #1, "保存的字符"
Close #1

2.读取文本
简单的读取方法是用Richbox
RichTextbox.LoadFile ("文本全路径")
单行的读取到List内
Open "文本路径" For Input As #1
    Do Until EOF(1)
        Input #1, a$
   list1.additem a$
          Loop
Close 1

3.读取指定行的文本
Dim x As Integer
Dim str As Integer
Private Sub Command1_Click()
Open "文本全路径" For Input As #1
    Do Until EOF(1)
        Input #1, a$
        
        str = str + 1
        
      
        If str = val(行数) Then
        Print a$<--------这里就会自动print 你的说要的行数了
        End If
        
          Loop
Close 1
str = 0
End Sub
4.如何得到一行内某个位置的字符
知道如何读取单行就很简单读取单行内某个位置的字符了
在上面单行是a$
那么a$的第三个字符是什么呢?
Mid(a,3,1)这就是第三个字符了.
Mid的具体用法是
Mid(字符串,开始位置,多少字符串)

5.如何知道文本内有多少个"a"
假如你想知道文本内有多少个"a"字母
那也不难.上面说了如何读取文本,假如整个文本是StrTotal,"a"的个数是StrNumber
那么用For next来计算所有的"a"
Dim StrNumber as interge
For i = 1 to len(StrTotal)
If Mid(Strtotal,i,1)="a" Then
StrNumber =StrNumber +1
End if
Next i
好了这里的StrNumber就是所有"a"的个数了





欢迎光临 星星博客 (http://commerce.huhoo.net/) Powered by Discuz! 7.0.0