Iterieren durch einen string und prüfen Sie den byte-Wert der jedes Zeichen?

Code habe ich:

        cell_val = CStr(Nz(fld.value, ""))
        Dim iter As Long
        For iter = 0 To Len(cell_val) - 1 Step 1
         If Asc(Mid(cell_val, iter, 1)) > 127 Then
           addlog "Export contains ascii character > 127"
         End If
        Next iter

Dieser code funktioniert nicht. Wer weiß, wie dies zu tun? Ich habe einfach habe keine Ahnung mit VB oder VBA.

InformationsquelleAutor bfabry | 2008-09-17

Schreibe einen Kommentar