数据类型中字符串的使用

大多数程序需要处理文本，比如向用户显示信息或者捕获用户输入的文本。文本通常以字符串 (String) 数据类型 (Data Type) 进行存储，这种数据类型可包含一系列的字母、数字、空格和其他字符。String 的长度是任意的，它可以是一个句子、一个段落、一个字符，还可以什么都没有（即一个空字符串）。

简言之，String 就是字符的集合。表示 String 时，一定要用双引号将其围起来。比如：

strData = "Hello, world!"

否则程序会误将 String 当做变量名或者程序语法的一部分。下面的一个示例，演示了最简单的字符串的用法。

试一试

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 Strings，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnStrings，将其 Text 属性设为 OK。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnStrings_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnStrings.Click

End Sub

在其间加入如下代码：

'Declare variable

Dim strData As String

'Set the string value

strData = "Hello, world!"

'Display the results

MessageBox.Show(strData, "Strings")

选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。

会弹出一个消息框，消息框中写着Hello, world!。按确认 (OK) 即可关闭消息框。

字符串的连接

如何将几个字符串连接起来成为一个字符串呢？ Visual Basic 用 & 符号来进行字符串的连接。比如：

strResults = strDataOne & strDataTwo

strResults = "Hello, " & "World!"

我们再做一个简单示例。同上面一个例子一样，只是在 Click 事件中换如下代码：

'Declare variables

Dim strOne As String

Dim strTwo As String

Dim strResults As String

'Set the string values

strOne = "Hello"

strTwo = ", world!"

'Concatenate the strings

strResults = strOne & strTwo

'Display the results

MessageBox.Show(strResults, "Strings")

再修改最后一行代码看看：

'Declare variables

Dim strOne As String

Dim strTwo As String

Dim strResults As String

'Set the string values

strOne = "Hello"

strTwo = ", world!"

'Concatenate the strings

strResults = strOne & strTwo

'Display the results

MessageBox.Show("The result is " & strResults, "Strings")

以上示例帮助你记住 & 符号，连接字符串就是用这个符号。

字符串长度

用 Length 属性 (Property) 可以得到字符串的长度。还是举个例子说明吧。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringLength，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnLength，将其 Text 属性设为 Length。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnLength_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnLength.Click

End Sub

在其间加入如下代码：

'Declare variable

Dim strData As String

'Get the text from the TextBox

strData = "Hello,World!"

'Display the length of the string

MessageBox.Show(strData.Length & " character(s)", "Strings")

这个示例中，我们看到，首先定义一个字符串变量 strData，并给 strData 赋值，然后用 strData.Length 得到该字符串的长度。

截取字符串的一部分

用 Substring 这个方法 (Method) 可以得到字符串的某一部分。我们按如下步骤作个示例，演示 Substring 的用法。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringSplit，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnSplit，将其 Text 属性设为 Split。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnSplit_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnSplit.Click

End Sub

在其间加入如下代码：

'Declare variable

Dim strData As String

'Get the text from the TextBox

strData = "I like  and woyouxian."

'Display the first three characters

MessageBox.Show(strData.Substring(0, 3), “Strings”)

'Display the middle three characters

MessageBox.Show(strData.Substring(3, 3), “Strings”)

'Display the substring without first 6 characters

MessageBox.Show(strData.Substring(6), “Strings”)

代码中的 strData.Substring(0, 3) 表示从第 0 个字符串算起，取后面的 3 个字符，即第 1，2， 3 个字符。

代码中的 strData.Substring(3, 3) 表示从第 3 个字符算起，取后面的 3 个字符，即第 4， 5，6个字符。

代码中的 strData.Substring(6) 表示从第 6 个字符算起，取后面的所有字符。

替换字符串的某一部分

用 Replace 这个方法可以替换字符串的某一部分。比如：

strNewData = strData.Replace ("", "wowstory.com")

表示将变量 strData 字符串中将所有 替换成 wowstory.com，将替换后的值赋给变量 strNewData。

Replace 方法有两个参数，前一个参数表示要被替换掉的字符串，后一个参数表示用来替换的字符串。

我们做个示例演示一下 Replace 方法的用法。

打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringReplace，再单击确定 (OK)。

单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnReplace，将其 Text 属性设为 Replace。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：

Private Sub btnReplace_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnReplace.Click

End Sub

在其间加入如下代码：

Dim strData As String

Dim strNewData As String

strData = "I like  and  and woyouxian."

strNewData = strData.Replace("", "wowstory.com")

MessageBox.Show(strNewData, "Strings")

选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。

会弹出一个消息框，消息框中你会看到 被替换成了 wowstory.com。按确认 (OK) 即可关闭消息框。

编者：woyouxian[at]gmail[点]com

参考：Beginning Visual Basic 2005  --> Writing Software --> Data Types --> Working with Strings

时间：2006-12-1

返回上级目录

VB 2005 入门教程