String

CreateGUID

Erzeugt einen neuen GUID, also einen 128-Bit hexadezimalen Integer in Textform, der mit an Sicherheit grenzender Wahrscheinlichkeit weltweit einmalig und eindeutig ist. Ein typischer GUID sieht beispielsweise wie folgt aus:
{1BC48AA4-26D5-4155-A2CB-DB08F013088D}.

Die API-Funktion gibt den String nicht direkt aus. Er muss erst noch zusammengesetzt werden.

#If VBA7 Then
    Private Declare PtrSafe Function CoCreateGuid Lib "ole32" _
        (pguid As GUID) As Long
#Else
    Private Declare Function CoCreateGuid Lib "ole32" _
        (pguid As GUID) As Long
#End If

Private Type GUID
    data1 As Long
    data2 As Integer
    data3 As Integer
    data4(7) As Byte
End Type

Public Function apiCreateGUID() As String
Dim myGuid As GUID
Dim i As Integer

CoCreateGuid myGuid

apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data1), "@@@@@@@@-")
apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data2), "@@@@-")
apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data3), "@@@@-")
apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data4(0)), "@@")
apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data4(1)), "@@-")
For i = 2 To 7
    apiCreateGUID = apiCreateGUID & Format(Hex(myGuid.data4(i)), "@@")
Next

apiCreateGUID = "{" & Replace(apiCreateGUID, " ", "0") & "}"
End Function

IsCharAlpha

Prüft, ob ein einzelnes Zeichen aus der Zuordnungstabelle Alphabetisch ist oder nicht.

#If VBA7 Then
    Private Declare PtrSafe Function IsCharAlphaA Lib "user32" _
        (ByVal byChar As Byte) As Long
#Else
    Private Declare Function IsCharAlphaA Lib "user32" _
        (ByVal byChar As Byte) As Long
#End If

Public Function apiIsCharAlpha(strChar As String) As Boolean
     apiIsCharAlpha = IsCharAlphaA(Asc(strChar))
End Function

IsCharAlphaNumeric

Prüft, ob ein einzelnes Zeichen aus der Zuordnungstabelle Alphanumerisch ist oder nicht.

#If VBA7 Then
    Private Declare PtrSafe Function IsCharAlphaNumericA Lib "user32" _
        (ByVal byChar As Byte) As Long
#Else
    Private Declare Function IsCharAlphaNumericA Lib "user32" _
        (ByVal byChar As Byte) As Long
#End If

Public Function apiIsCharAlphaNumeric(strChar As String) As Boolean
     apiIsCharAlphaNumeric = IsCharAlphaNumericA(Asc(strChar))
End Function

IsCharLower

Prüft, ob ein einzelnes Zeichen aus der Zuordnungstabelle ein Kleinbuchstabe ist oder nicht.

#If VBA7 Then
    Private Declare PtrSafe Function IsCharLowerA Lib "user32" _
        (ByVal byChar As Byte) As Long
#Else
    Private Declare Function IsCharLowerA Lib "user32" _
        (ByVal byChar As Byte) As Long
#End If

Public Function apiIsCharLower(strChar As String) As Boolean
     apiIsCharLower = IsCharLowerA(Asc(strChar))
End Function

IsCharUpper

Prüft, ob ein einzelnes Zeichen aus der Zuordnungstabelle ein Großbuchstabe ist oder nicht.

#If VBA7 Then
    Private Declare PtrSafe Function IsCharUpperA Lib "user32" _
        (ByVal byChar As Byte) As Long
#Else
    Private Declare Function IsCharUpperA Lib "user32" _
        (ByVal byChar As Byte) As Long
#End If

Public Function apiIsCharUpper(strChar As String) As Boolean
     apiIsCharUpper = IsCharUpperA(Asc(strChar))
End Function