UC知道VB怎么查找并替换字符串
来源：百度知道 编辑：UC知道 时间：2024/05/24 09:38:01
我有aa.txt和bb.txt两个文本
aa内容：
b
ba
ban
bang 帮
bu 不
bb的是：
b 2
ba 1
ban 1
name代表着aa里的文字，当name为空的时候就在bb里查找和name相对应的哪一行并替换。比如当name = b 的时候name没有文字为空，那就在bb里查找b的哪一行也就是b 2这行替换aa里的b
disno代表aa里的拼音
这个是我编的程序：
Open App.Path + "\Output\bb.txt" For Input As #1
While Not EOF(1)
Line Input #1, strline
z = z & strline & vbCrLf
Wend
Close #1
n = Split(z, vbCrLf)
For i = 0 To UBound(n)
nn = Trim(Left$(n(i), 6))
mm = Trim$(Mid$(n(i), 8, 10))
If dishName = "" & Left$(eachStr, 6) = nn Then dishName = Replace$(eachStr, dishName, mm)
这里说明一下汉字是从每行得第七位置开始得，前面6个位置是拼音的，一个位置是一个空格
我编的对不对，大家看看
aa内容：
b
ba
ban
bang 帮
bu 不
bb的是：
b 2
ba 1
ban 1
name代表着aa里的文字，当name为空的时候就在bb里查找和name相对应的哪一行并替换。比如当name = b 的时候name没有文字为空，那就在bb里查找b的哪一行也就是b 2这行替换aa里的b
disno代表aa里的拼音
这个是我编的程序：
Open App.Path + "\Output\bb.txt" For Input As #1
While Not EOF(1)
Line Input #1, strline
z = z & strline & vbCrLf
Wend
Close #1
n = Split(z, vbCrLf)
For i = 0 To UBound(n)
nn = Trim(Left$(n(i), 6))
mm = Trim$(Mid$(n(i), 8, 10))
If dishName = "" & Left$(eachStr, 6) = nn Then dishName = Replace$(eachStr, dishName, mm)
这里说明一下汉字是从每行得第七位置开始得，前面6个位置是拼音的，一个位置是一个空格
我编的对不对，大家看看
我默认路径为d:\aa.txt,d:\bb.txt,请自己修改。建Command1.代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Option Explicit
Private Sub Command1_Click()
Dim aa As String, bb As String
Open "d:\aa.txt" For Input As 1
Open "d:\bb.txt" For Input As 2
Open "d:\cc.txt" For Output As 3
Do Until EOF(1)
Line Input #1, aa
If EOF(2) Then Print #3, aa Else Line Input #2, bb: Print #3, IIf(Right(aa, 1) = " ", bb, aa)
Loop
Close
Kill "d:\aa.txt"
Name "d:\cc.txt" As "d:\aa.txt"
MsgBox "替换完毕。"
End Sub
replace 是替换字符串函数
代码是这样的,如果不满意,再自己稍修改下就可以了!!!
Private Sub Command1_Click()
Dim aatxt, bbtxt As String
Open "C:\aa.txt" For Output As #1
Open "C:\bb.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, aatxt
If Not EOF(2) Then
Line Input #2, bbtxt
End If<