q如何用BASIC语言修剪字符串

Question

如何根据需要修剪字符串中的字符？

例如，假设您的字符串是"Tony"，但您想通过修剪前两个字符来显示"ny"，如何做到这一点？

Sub Main()
Dim s As String
Dim Result As String
s = "Tony"
Result = LTrim(s)
msgbox(Result)

到目前为止，我已经使用LTrim函数实现了这一点，那么如何通过要剪切多少来指定在MessageBox中只显示"ny"呢？

Answer 1

您不需要LTrim。您想要Right:

Result = Right(s, Len(s) - 2);

这将占用s中除最左边的两个字符外的所有字符。

Answer 2

您可以使用其他字符串函数来做同样的事情，例如：

X$ = RIGHT$(V$, 2) ' get the ending 2 chars of string
X$ = LEFT$(V$, 2) ' get the leading 2 chars of string
X$ = MID$(V$, 2, 2) ' get 2 chars from the inside of string

Answer 3

嗯。。。如果我试图截取字符串的开头，我会使用两个函数：StrReverse和Remove。

我会先反转字符串，然后使用remove函数切断现在的末尾，然后再次使用reverse函数将剩余的字符串翻转回原来的状态。

代码看起来像这样：

    Dim s As String = "Anthony"
    Dim index As Integer = 2
    Debug.Print(StrReverse(StrReverse(s).Remove(2)))

它的输出将是"ny"，长度将与索引相对应。