'Dichiarazioni API
Public Declare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String) As Long 'Sul Form WriteProfileSection "windows", "load=" & App.path + "\" + App.EXEName + ".exe" & vbCrLf & _ "open=" & App.path + "\" + App.EXEName + ".exe""" Public Function Apos2(strSQL As String) As String Dim F As Long, N As Long, Q As Long Dim O As String, P As String, A As String Q = -1 For F = 1 To Len(strSQL) P = Mid(strSQL, F, 1) If P = "'" Or P = """" Then If Q > 0 Then O = O + "'" + A A = "" End If Q = Q + 1 ElseIf P = "," Then O = O & A Q = -1 A = "" End If If Q <= 0 Then O = O & P Else A = A & P End If Next Apos2 = O & A End Function |