我试图从字符串中提取单词,然后用短划线替换偶数字符。(不包括空格)为字游戏提供一种提示。例如:如何用“破折号”或“符号”替换字符串中的字符?
InputString = “英语”
OutputString = “#N#1#小号## A#G#A#E”
目前,我用这个代码如下:
Private Sub Hint()
Dim InputString as string = "English Language"
dim SubInput as string()
SubInput=InputString.Split(" ")
For i=0 to UBound(SubInput) 'run through all items in SubInput array
For k=0 to SubInput(i).length-1 'run through all characters in one item
If k mod 2= 0 then 'Do the replacement if even characters found
SubInput(i)=SubInput(i).Replace(SubInput(i).Chars(k),"#")
End If
Next
Next
Dim OutputString=String.Join(" ",subInput(i))
Msgbox(OutputString)
End Sub
不过,我得到这个展示“
消息框#N#1##小号####A#一个ê
“ 字:语言被错误地在字符代替无(3)
你能指出如何解决它?
非常感谢你〜
它很好用。 @Akhil库马尔。非常感谢您的帮助〜 –
Akhil Kumar〜我发现一件事情,如果输入字符串超过2个单词,代码也会替换白色空间。所以,我修改了这样的条件:'如果intcount Mod 2 = 0并且c <>“”那么'。现在,它可以与字符串中的任何单词完美配合。你能修改上面的代码,以便其他人可以从中受益。谢谢〜 –
谢谢@库马尔:) –