Question

vb 文本处理

例如以下是金山词霸导出的生词本的三个单词（theory，function，important）都比较有规律，都是单词前面都有个+ ， 我只想提取出单词，并以以下格式保存
theory
function
important
其他的内容都删掉，该怎么编程？（假定文本已经存在于text1.text中）

+theory
#n.学说,理论, 原理,意见, 看法,
&ˈθiəri
@1309715769
$3
+function
#vi.工作, 运行, 起作用,(器官等)活动；(机器等)运行；(有效地)起作用，发挥机能,有作用，用以；当；行使职责；为…尽职；担任工作(常与 as连用),

#n.功能; 作用; 职责,函数; 与另一事物有密切关系的事物,社交集会,典礼；宴会,子程序；例序；操作程序 ,
&ˈfʌŋkʃən
@1309715797
$3
+important
#adj.重要的, 重大的, 有重大影响的, 有巨大价值的,有势力的, 有地位的, 影响很大的, 权威的,
&imˈpɔ:tənt
@1309715839
$3

Answer 1

'假定文本存在于文件data.txt中
'处理好的文本存于Sj.txt中
Private Sub Command1_Click()
Dim StrSj As String
Open App.Path & "\data.txt" For Input As #1
Open App.Path & "\Sj.txt" For Append As #2
Do While Not EOF(1)
Line Input #1, StrSj
If Mid(StrSj, 1, 1) = "+" Then
Print #2, Mid(StrSj, 2)
End If
Loop
Close
MsgBox "文件处理完毕！"
End
End Sub

Answer 2

你是要编程序实现吗？编程序很简单，只要逐行读判断第一位是+就可以了
或者找个方便的文本编辑工具查找不以+开头的行全部删除

Answer 3

文本处理只需要用sendkeys

Answer 4

Private Sub Command1_Click()
Dim b As String, s() As String
Open "C:\2005.txt" For Input As #1 ' 打开文件
Open "c:\456.txt" For Output As #2
Do While Not EOF(1) ' 循环读取，直到文件结束

Line Input #1, b '读取一行内容到变量B
s = Split(b, ";")
If clng(s(8)) <>0 Then
Print #2, join(s,";")
End If
Loop
Close #1 '关闭文件
Close #2
End Sub