Public Sub TampNotePad(ByVal sTxtFile As String, Optional ByVal bTrimRow As Variant = True) ‘\u5bf9\u6587\u672c\u6587\u4ef6\u6d88\u9664\u7a7a\u884c, bTrimRow \u4e3a\u771f, \u5219\u884c ” ” \u89c6\u4e3a\u7a7a\u884c “”
On Error Resume Next
Dim I As Integer, J As Integer
Dim Lines() As String
Dim LineContent As String
Dim iLineCount As Integer
Dim TxtFileNumber As Integer
TxtFileNumber = FreeFile
If Not FileExist(sTxtFile) Then Exit Sub
Open sTxtFile For Input As TxtFileNumber
Do While Not EOF(TxtFileNumber) ‘\u628a\u6587\u672c\u8bfb\u81f3\u6570\u7ec4
Line Input #TxtFileNumber, LineContent
iLineCount = iLineCount + 1
ReDim Preserve Lines(1 To iLineCount)
Lines(iLineCount) = LineContent
Loop
Close TxtFileNumber
Open sTxtFile For Output As TxtFileNumber
For I = 1 To iLineCount ‘\u628a\u6570\u7ec4\u5199\u5165\u6587\u672c
If bTrimRow Then Lines(I) = Trim(Lines(I))
If Not Lines(I) = “” Then Print #TxtFileNumber, Lines(I)
Next I
Close TxtFileNumber
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Sub TrimNotePad(ByVal sTxtFile As String, Optional ByVal bTrimRow As Variant = True) ‘\u5bf9\u6587\u672c\u6587\u4ef6\u6d88\u9664\u524d\u540e\u7a7a\u884c, \u4e2d\u95f4\u7a7a\u884c\u4e0d\u7ba1, bTrimRow \u4e3a\u771f, \u5219\u884c ” ” \u89c6\u4e3a\u7a7a\u884c “”
On Error Resume Next
Dim I As Integer, J As Integer
Dim Lines() As String
Dim LineContent As String
Dim iLineCount As Integer
Dim TxtFileNumber As Integer
TxtFileNumber = FreeFile
If Not FileExist(sTxtFile) Then Exit Sub
Open sTxtFile For Input As TxtFileNumber
Do While Not EOF(TxtFileNumber) ‘\u628a\u6587\u672c\u8bfb\u81f3\u6570\u7ec4
Line Input #TxtFileNumber, LineContent
iLineCount = iLineCount + 1
ReDim Preserve Lines(1 To iLineCount)
Lines(iLineCount) = LineContent
Loop
Close TxtFileNumber
Dim iBegin As Integer, iEnd As Integer
For I = 1 To iLineCount
If bTrimRow Then Lines(I) = Trim(Lines(I))
If Not Lines(I) = “” Then
iBegin = I
Exit For
End If
Next I
For I = iLineCount To 1 Step -1
If bTrimRow Then Lines(I) = Trim(Lines(I))
If Not Lines(I) = “” Then
iEnd = I
Exit For
End If
Next I
Open sTxtFile For Output As TxtFileNumber
For I = iBegin To iEnd ‘\u628a\u6570\u7ec4\u5199\u5165\u6587\u672c
Print #TxtFileNumber, Lines(I)
Next I
Close TxtFileNumber
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Sub CleanNotePad(ByVal sTxtFile As String) ‘\u5bf9\u6587\u672c\u6587\u4ef6\u6d88\u9664\u91cd\u590d\u884c
On Error Resume Next
Dim I As Integer, J As Integer
Dim Lines() As String
Dim LineContent As String
Dim iLineCount As Integer
Dim TxtFileNumber As Integer
TxtFileNumber = FreeFile
If Not FileExist(sTxtFile) Then Exit Sub
Open sTxtFile For Input As TxtFileNumber
Do While Not EOF(TxtFileNumber) ‘\u628a\u6587\u672c\u8bfb\u81f3\u6570\u7ec4
Line Input #TxtFileNumber, LineContent
iLineCount = iLineCount + 1
ReDim Preserve Lines(1 To iLineCount)
Lines(iLineCount) = LineContent
Loop
Close TxtFileNumber
Call CleanUpArray<\/a>(Lines) ‘\u53bb\u9664\u91cd\u590d\u5143\u7d20
iLineCount = UBound(Lines) – LBound(Lines) + 1
Open sTxtFile For Output As TxtFileNumber
For I = 1 To iLineCount
Print #TxtFileNumber, Lines(I)
Next I
Close TxtFileNumber
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Sub SortNotePad(ByVal sTxtFile As String, ByVal bAscending As Boolean) ‘\u5bf9\u6587\u672c\u6587\u4ef6\u6309\u884c\u6392\u5e8f
On Error Resume Next
Dim I As Integer, J As Integer
Dim Lines() As String
Dim LineContent As String
Dim iLineCount As Integer
Dim TxtFileNumber As Integer
TxtFileNumber = FreeFile
If Not FileExist(sTxtFile) Then Exit Sub
Open sTxtFile For Input As TxtFileNumber
Do While Not EOF(TxtFileNumber) ‘\u628a\u6587\u672c\u8bfb\u81f3\u6570\u7ec4
Line Input #TxtFileNumber, LineContent
iLineCount = iLineCount + 1
ReDim Preserve Lines(1 To iLineCount)
Lines(iLineCount) = LineContent
Loop
Close TxtFileNumber
If iLineCount = 0 Then Exit Sub ‘LBound \u4f1a\u51fa\u9519
Dim iBest As Integer
Dim sBest As String
For I = 1 To iLineCount – 1 ‘\u5bf9\u6570\u7ec4\u8fdb\u884c\u6709\u5e8f\u5904\u7406
iBest = I
sBest = Lines(I)
For J = I + 1 To iLineCount
If StrComp(Lines(J), sBest, vbTextCompare) < 0 Then sBest = Lines(J) iBest = J End If Next J Lines(iBest) = Lines(I) Lines(I) = sBest Next I Open sTxtFile For Output As TxtFileNumber If bAscending = True Then ‘\u628a\u6570\u7ec4\u5199\u5165\u6587\u672c ‘Ascending order For I = 1 To iLineCount Print #TxtFileNumber, Lines(I) Next I Else ‘Descending order For I = iLineCount To 1 Step -1 Print #TxtFileNumber, Lines(I) Next I End If Close TxtFileNumber If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n\n\n\n
Public Sub ClearNotePad(ByVal sTxtFile As String) ‘\u4fdd\u7559\u6587\u672c\u6587\u4ef6\u4f46\u6e05\u7a7a\u5176\u5185\u5bb9
On Error Resume Next
Dim I As Integer, J As Integer
Dim Lines() As String
Dim TxtFileNumber As Integer
TxtFileNumber = FreeFile
Open sTxtFile For Output As TxtFileNumber
For I = LBound(Lines) To UBound(Lines) ‘\u628a\u6570\u7ec4\u5199\u5165\u6587\u672c
Print #TxtFileNumber, Lines(I)
Next I
Close TxtFileNumber
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"