帮助我将此代码从Java转换为VBA

-2 java vba access-vba

我需要一个创建一个VBA函数,从我写这个java方法的字符串中提取文本

public static String extract(String str) {

    String s = str.substring(str.indexOf("'"),str.lastIndexOf("'"));
    String fg = s.substring(s.indexOf("'")+1, s.indexOf("to")-2);
    String sg = s.substring(s.indexOf("to")+4);

    return sg;

}
Run Code Online (Sandbox Code Playgroud)

做我想要的但是在VBA中我找不到等价于indexOf和lastIndexOf而且最重要的是如何使用字符索引来模仿java子串而不使用长度来提取,如在VBA中.任何人都可以帮助我.

提前致谢.

Jan*_*Jan 6

idx = str.indexOf("'");

// is equivalent of

idx = InStr(str, "'")
Run Code Online (Sandbox Code Playgroud)

idx = str.lastIndexOf("'");

// is equivalent of

idx = InStrRev(str, "'")
Run Code Online (Sandbox Code Playgroud)

str = str.substring(start, end)

// is equivalent of

str = Mid(str, start, end - start)
Run Code Online (Sandbox Code Playgroud)