declaremodule.bas

vb+sql 用于公交点钞结算和报表结合的相关软件

Attribute VB_Name = "DeclareModule"
Option Explicit

Public Declare Function setport Lib "posprinter.dll" (ByVal sPort As String) As Integer
Public Declare Function closeport Lib "posprinter.dll" () As Integer
Public Declare Function PrintStr Lib "posprinter.dll" (ByRef sInStr As String) As Integer
Public Declare Function Crc Lib "posprinter.dll" (ByRef s As String, ByVal l As Long) As Long
Public Declare Function SetLineDis Lib "posprinter.dll" (ByVal i As Integer) As Long


Public sPrnStr As String


Public Sub splite(ByVal s As String, asOutStr() As String)
Dim i As Integer, j As Integer
Dim lNum As Long
    
    lNum = 0
    j = 1
    If Len(s) < 2 Then
        ReDim asOutStr(0)
        asOutStr(0) = s
    Else
        For i = 1 To Len(s) - 1
            If Mid(s, i, 2) = vbCrLf Then
                i = i + 1
                ReDim Preserve asOutStr(lNum)
                asOutStr(lNum) = Mid(s, j, i - j - 1)
                j = i + 1
                lNum = lNum + 1
            End If
        Next i
    End If
    'Debug.Print s
End Sub