FAI有重復清空文本內容
uj5u.com熱心網友回復：
請各位大神指導一下！uj5u.com熱心網友回復：
邏輯陳述句：if then else endif，do..loop， for...next字串處理函式split、left，right，mid，len
檔案讀寫：open 陳述句
基本靠上面這些就能解決。不會用的按F1+baidu，如果自己懶得寫的直接報價競標。
uj5u.com熱心網友回復：
Dim str_array() As String, _
str_info As String, _
bound_array As Long, _
i As Long, _
j As Long
str_info = "FAI5,FAI6,FAI4,FAI5,FAI6"
str_array = Split(str_info, ",")
bound_array = UBound(str_array)
For i = 0 To bound_array - 1
For j = i + 1 To bound_array
If str_array(i) = str_array(j) Then
str_array(j) = str_array(bound_array)
bound_array = bound_array - 1
ReDim Preserve str_array(bound_array)
j = j - 1
End If
If j = bound_array Then
Exit For
End If
Next j
If i = bound_array Then
Exit For
End If
Next i
For i = 0 To bound_array
Debug.Print str_array(i)
Next i
uj5u.com熱心網友回復：
大神，我是想第一個txt和第二個txt作比對，如果有重復的，清除第二個txt所有內容??uj5u.com熱心網友回復：
大神，我是想第一個txt和第二個txt作比對，如果有重復的，清除第二個txt所有內容??
uj5u.com熱心網友回復：
我也寫了一個,代碼如下:
Option Explicit
Private Sub Command1_Click()
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
Dim ngfai As String
ngfai = fso.buildpath(App.Path, "NGFAI.txt")
Dim finalprint1 As String
finalprint1 = fso.buildpath(App.Path, "finalprint1.txt")
Dim objStream As Object
Set objStream = fso.opentextfile(finalprint1, 1, False)
Dim strfinalprint1 As String
If objStream.atendofstream Then
strfinalprint1 = ""
Else
strfinalprint1 = objStream.readall
End If
objStream.Close
Set objStream = fso.opentextfile(ngfai, 1, False)
Dim blnFound As Boolean
blnFound = False
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
reg.Global = False
reg.MultiLine = True
reg.ignorecase = True
Do While Not objStream.atendofstream
Dim strLine As String
strLine = objStream.readline
If strLine <> "" Then
reg.Pattern = "^" & strLine & "\b"
If reg.test(strfinalprint1) Then
blnFound = True
Exit Do
End If
'Debug.Print strLine
End If
Loop
objStream.Close
If blnFound Then ' 找到匹配內容,洗掉finalprint1.txt檔案;
Set objStream = fso.opentextfile(finalprint1, 2, True)
objStream.Close
End If
End Sub
下載地址:
鏈接：https://pan.baidu.com/s/1c2wVUOfh-OLPAufeEVO8tA
提取碼：o6yd
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/20066.html
標籤：VB基礎類
下一篇：求excel抓資料代碼