modlini.bas

利用PC基于Windows操作系统和VB编程环境读取Omron PLC程序中的数据

Attribute VB_Name = "ModlIni"
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPriviteProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Const IniPath As String = "d:\injection\injection.ini"

Public Type M_Rect
    left As Long
    top As Long
    right As Long
    bottom As Long
End Type


Public Sub Writeini(Varname As String, VarVal As String)
Dim u As Integer
u = WritePrivateProfileString("main", Varname, VarVal, IniPath)
If u = 0 Then
    MsgBox "ini file error"
End If
End Sub

Public Function Readini(Varname As String) As Double
Dim X As Double
Dim Temp As String * 50
Dim result As String

X = GetPrivateProfileString("main", Varname, "", Temp, Len(Temp), IniPath)

If X = 0 Then
    MsgBox "inifile error"
Else
    result = Trim(Temp)
    Readini = CDbl(result)
End If
End Function

Public Sub WriteRect(Varname As String, VarVal As M_Rect)
Dim a As Long
Dim str As String
a = VarVal.left
str = Varname & ".left"
Writeini str, CStr(a)

a = VarVal.top
str = Varname & ".top"
Writeini str, CStr(a)

a = VarVal.right
str = Varname & ".right"
Writeini str, CStr(a)

a = VarVal.bottom
str = Varname & ".bottom"
Writeini str, CStr(a)



End Sub

Public Function ReadRect(Varname As String) As M_Rect
Dim myrect As M_Rect
Dim a As Long
Dim str As String

str = Varname & ".left"
a = Readini(str)
myrect.left = a

str = Varname & ".top"
a = Readini(str)
myrect.top = a

str = Varname & ".right"
a = Readini(str)
myrect.right = a

str = Varname & ".bottom"
a = Readini(str)
myrect.bottom = a

ReadRect = myrect

End Function

Public Function ReadStrIni(Varname As String) As String
Dim X As Double
Dim Temp As String
Dim result As String
Temp = String(50, " ")
X = GetPrivateProfileString("main", Varname, "", Temp, Len(Temp), IniPath)

If X = 0 Then
    MsgBox "inifile error"
Else
    result = left(Temp, X)
    ReadStrIni = result
End If
End Function
Public Function ReadIntArray(Varname As String, StartIndex As Integer, StopIndex As Integer, ArrVal() As Integer) As Boolean
Dim X As Integer
Dim i As Integer
Dim str As String
For i = StartIndex To StopIndex
    str = Varname & "." & CStr(i)
    
    ArrVal(i) = Readini(str)
Next i

End Function