vb.net - 替换字符串中的最后一个字符

Question

我还有另一个关于visual basic的问题，我现在在为windows phone 7.5开发应用程序时使用的语言。我的问题是如何替换字符串中的最后一个字符？示例 我有字符串“clyde”，现在我想用 'o' 替换最后一个字符 'e'，但我该怎么做呢？任何帮助将不胜感激。

Answer 1

String str = "clyde";
str = str.Substring(0, str.Length - 1) + 'o';

尝试了一些在线VB转换器

Dim str As String = "clyde"
str = str.Substring(0, str.Length - 1) & "o"C

Answer 2

在 vb.net 脚本中：

  Dim s As String

  Sub Main()
    s = "hello world"
    s = s.Substring(0, s.Length - 1)  &  "o"

    Console.WriteLine(s)
    Console.ReadLine()
  End Sub

Answer 3

编辑：现在测试（我忘了添加命名空间

myString = Microsoft.VisualBasic.Left(myString, Len(myString) - 1) & myNewChar

例子：

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim myString As String
    Dim myChar As String
    myString = "clyde"
    myChar = "o"
    myString = Microsoft.VisualBasic.Left(myString, Len(myString) - 1) & myChar
    MsgBox(myString)
End Sub

Answer 4

我想出了一个字符串类的扩展，如>>on CodeProject<<所述。

Imports Microsoft.VisualBasic
Imports System.Runtime.CompilerServices

Public Module StringExtensions

<Extension()> _
Public Function ReplaceFirstChar(str As String, ReplaceBy As String) As String
    Return ReplaceBy & str.Substring(1)
End Function

<Extension()> _
Public Function ReplaceLastChar(str As String, ReplaceBy As String) As String
    Return str.Substring(0, str.Length - 1) & ReplaceBy
End Function

End Module

用法：

dim s as String= "xxxxx"
msgbox (s.ReplaceFirstChar("y"))
msgbox (s.ReplaceLastchar ("y"))

所以我在任何地方的装配中都有一个简单的重用...... :)

问候，
丹尼尔