Question

我正在制作一条扫描线，使用该帐号来确定校验位应该是什么。有些帐户有字母而不是数字。我需要用数字替换字母。我在C＃中编写了类似的东西，但无法弄清楚如何在VB脚本中执行此操作。这是我的c＃代码

    if(account2.Contains("T"))
       {
           int x = account2.IndexOf("T");
           temp = account2.Substring(2+x);
           account2 = ("3" + temp);
           Console.WriteLine(account2);
           Console.ReadLine();
       }
       if (account2.Contains("M"))
       {
           int x = account2.IndexOf("M");
           temp = account2.Substring(1+x);
           account2 = ("2" + temp);
           Console.WriteLine(account2);
           Console.ReadLine();
       }

Answer 1

我的经典VB有点生疏，所以这甚至可能无法编译，但它应该指向正确的方向：

Dim x
x = InStr(account2, "T")
If x > 0 Then
    account2 = "3" & Mid(account2, x + 2)
    'probably not a good idea to read the next line here
End If
x = InStr(account2, "M")
If x > 0 Then
    account2 = "2" & Mid(account2, x + 1)
End If

在VB脚本中发送一封信

1 个答案: