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