替换每一个字母

代码应该将字母替换为图像链接，但它有时会代替例如：heyho去听，那就是问题所在。请帮助我这个家伙！替换每一个字母

进口System.Text.RegularExpressions

公共类Form1中昏暗DefURL = “http://www.roblox.com/---------------------------------------------------------------------------------------------------------------” 暗淡的myString = “” 私人小组Form1_Load的（发送者为对象，例如作为EventArgs的）把手MyBase.Load

End Sub 
Sub Delay(ByVal dblsecs As Double) 
    Const onesec As Double = 1.0#/(1440.0# * 60.0#) 
    Dim dblWaitTil As Date 
    Now.AddSeconds(onesec) 
    dblWaitTil = Now.AddSeconds(onesec).AddSeconds(dblsecs) 
    Do Until Now > dblWaitTil 
     Application.DoEvents() 

    Loop 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles  Button1.Click 
    myString = "" 
    myString = TextBox1.Text.ToLower 
    Dim sb As String 
    For Each ch As Char In TextBox1.Text 
     Dim s As String 
     Console.WriteLine(ch) 
     Select Case ch 
      Case "a"c : s = "http://www.roblox.com/--item?id=2273128" 
      Case "b"c : s = "http://www.roblox.com/--item?id=2273124" 
      Case "c"c : s = "http://www.roblox.com/--item?id=2273121" 
      Case "d"c : s = "http://www.roblox.com/--item?id=2273119" 
      Case "e"c : s = "http://www.roblox.com/--item?id=2273116" 
      Case "f"c : s = "http://www.roblox.com/--item?id=2273114" 
      Case "g"c : s = "http://www.roblox.com/--item?id=2273111" 
      Case "h"c : s = "http://www.roblox.com/--item?id=2273107" 
      Case "i"c : s = "http://www.roblox.com/--item?id=2273105" 
      Case "j"c : s = "http://www.roblox.com/--item?id=2273102" 
      Case "k"c : s = "http://www.roblox.com/--item?id=2273099" 
      Case "l"c : s = "http://www.roblox.com/--item?id=2273095" 
      Case "m"c : s = "http://www.roblox.com/--item?id=2273093" 
      Case "n"c : s = "http://www.roblox.com/--item?id=2273090" 
      Case "o"c : s = "http://www.roblox.com/--item?id=2273088" 
      Case "p"c : s = "http://www.roblox.com/--item?id=2273086" 
      Case "q"c : s = "http://www.roblox.com/--item?id=2273082" 
      Case "r"c : s = "http://www.roblox.com/--item?id=2273078" 
      Case "s"c : s = "http://www.roblox.com/--item?id=195452703" 
      Case "u"c : s = "http://www.roblox.com/--item?id=2273071" 
      Case "v"c : s = "http://www.roblox.com/--item?id=2273067" 
      Case "w"c : s = "http://www.roblox.com/--item?id=2273065" 
      Case "x"c : s = "http://www.roblox.com/--item?id=2273062" 
      Case "y"c : s = "http://www.roblox.com/--item?id=2273060" 
      Case "t"c : s = "http://www.roblox.com/--item?id=2273073" 
      Case "z"c : s = "http://www.roblox.com/--item?id=2273058" 
      Case " "c : s = "http://www.roblox.com/--item?id=269779634" 
     End Select 
     sb = sb & s 
    Next 
    My.Computer.Clipboard.SetText(sb.ToString) 
End Sub

结束等级

来源

2015-08-28 Umom Mommi

你的问题是？ –

使程序不要替换链接中的字母。 –

@KennethK。我编辑了这个问题以明确OP的要求。 – Blackwood

为避免替换已插入的字符串中的字符，您可以循环遍历所有字符e原始字符串并用替换文本构建一个新字符串。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim sb As New System.Text.StringBuilder 
    For Each ch As Char In TextBox1.Text 
     Dim s As String 
     Select Case ch 
      Case "a"c: s = "http://www.roblox.com/--item?id=2273128 " 
      Case "b"c: s = "http://www.roblox.com/--item?id=2273124 " 
      Case "c"c: s = "http://www.roblox.com/--item?id=2273121 " 
      Case Else: s = ch 
     End Select 
     sb.Append(s) 
    Next 
    My.Computer.Clipboard.SetText(sb.ToString) 
End Sub

来源

2015-08-28 15:23:23 Blackwood

替换每一个字母

回答

相关问题