求助一个小问题.关于字符处理的

Question

当前目录下有 Readme.txt 文件,文件里信息存放的格式为:
正文和注释用"*"号搁开
例如:
*
正文1
*注释1*
正文2
*注释2*
正文3
......或者
*
正文1
*注释1
*
正文2
*注释2
*
正文3
......Form里一个Listbox,两个Textbox.能做到根据左边Listindex不同,来显示相应的正文和索引
比如:Listindex=0,一个文本框显示正文1,一个文本框显示注释1,"*"不要显示
求助!!!

Answer 1

在VB6中有一个函数可以帮助你:
SPLIT
给你个例子:
DIM A() AS STRING
DIM B AS STRING
DIM I AS LONG
B="1*22*33*555*DD"
A=SPLIT(B,"*")
FOR I=0 TO UBOUND(A)
   DEBUG.PRINT A(I)
NEXT
在立即窗口中就可以看到:
1
22
33
555
DD
说明原字符串已经被按照"*"拆分到数组的各个元素里

Answer 2

如果TXT文件內容有一定的規律那是肯定可以做到的

Answer 3

Private Sub Form_Load()
 Dim str As String
 Dim i As Integer
Open "D:\Readme.txt" For Input As #1
     Input #1, LOF(1), str
Close
 
 a() = Split(str, "*")
 
 '因为正文1前面存在一个*号，所以a（0）是空，从a（1）开始记数
 'a（1） 问正文1，a（2） 问正文1的解析
 For i = 1 To UBound(a) / 2
     List1.AddItem i
 NextEnd SubPrivate Sub List1_Click()
   Dim x As Integer
   x = List1.ListIndex
   text2(0).Text = a(x * 2 + 1)
   text2(1).Text = a(x * 2 + 2)
   
End Sub

Answer 4

就是相当于读xml，你先split分开，看有好多组，然后取里面的第一个放到listbox，一选择就选对应的内容显示出来

Answer 5

用INI文件的格式啊。
技術支持：[email protected]

Answer 6

Input #1, LOF(1), str
这个格式我试过了,不行啊

Answer 7

Dim x() As String
Private Sub Form_Load()
 Dim i As Integer, b() As Byte
Open "D:\Readme.txt" For Binary As #1
ReDim b(1 To LOF(1))
Get #1, , b
Close #1
x = Split(StrConv(b, vbUnicode), "*")
Erase b
Text1 = ""
Text2 = ""
For i = 1 To UBound(x) \ 2
List1.AddItem i
Next
End SubPrivate Sub List1_Click()
Text1.Text = x(Val(List1.Text) * 2 - 1)
Text2.Text = x(Val(List1.Text) * 2)
End Sub

Answer 8

把Input #1, LOF(1), str
改为
Input #1, str