mdlmain.bas

CheckTwoFile比较任意两个CSV文件, 得出不同的部分

Attribute VB_Name = "mdlMain"
Public Const ErrMsg = "错误信息"
Public Const QuesMsg = "问题?"
Public Const InfoMsg = "消息提示"
Public sExcelProg As String
Public Sub lstSelected(bVal As Boolean, lst As ListBox)
    Dim i As Integer
    For i = 0 To lst.ListCount - 1
        lst.Selected(i) = bVal
    Next
End Sub
Public Sub OpenXls(ByVal sXlsFile As String)
    If Dir(sExcelProg) <> "" Then
        Shell sExcelProg & " " & sXlsFile, vbMaximizedFocus
    Else
        MsgBox "Sorry, The Excel Program file isn't Exist!" & vbCrLf & vbCrLf & sExcelProg, vbExclamation, ErrMsg
    End If
End Sub

Public Function FixDblCharTo(s) As String
    '' 2004/04/15 11:45 AM
    If s <> "" Then
        s = Trim(Replace(s, """", "#"))
        s = Replace(s, vbCrLf, Space(1))
        s = Replace(s, Chr(13), Space(1))
        FixDblCharTo = Replace(s, Chr(10), Space(1))
    Else
        FixDblCharTo = ""
    End If
End Function