excel - 如何在 Visual Basic 中选择字符串的字符部分

Question

我有一些带有数字和字符组合的字符串变量。像这样：

A12452

BCD23

ESK56003

使用 vbscript 我想从这些字符串中获取字符而不是数字。所以我应该得到以下结果。

一种

BCD

ESK

注意：我现在在 VB6 上。

Answer 1

VBA：

Dim i As Long
Dim k As Long

k = Len (MyString)
i = 1
Do Until (i > k) Or (IsNumeric (Mid$ (MyString, i, 1)))
    i = i + 1
Loop

Result = Left$ (MyString, i - 1)

编辑：我刚刚注意到此代码中可能存在错误，因为OrVBA 中没有短路（即，Or即使第一个表达式为真，也会评估以下表达式）。可能编写循环的正确方法是

Do
    If i > k Then Exit Do
    If IsNumeric (Mid$ (MyString, i, 1)) Then Exit Do
    i = i + 1
Loop