工具搜索引擎 加入收藏
意见反馈
帮助中心
繁體中文
首页 工具超市 产品信息 资讯中心 工具黄页 站长工具 实用工具 会员管理 联系我们  
广告投放
您当前的位置:工具网站长书库> vb2005教程

数据类型中字符串的使用

大多数程序需要处理文本,比如向用户显示信息或者捕获用户输入的文本。文本通常以字符串 (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 入门教程
安装 VB 2005
一个简单的 VB 2005 程序
什么是编程语言
什么是变量
数据类型概要

数据类型 - 整数和浮点数
数据类型 - 字符串
数据类型 - 日期
过程 - 子例程和函数
If...Then...Else 条件语句
Select...Case 条件语句
For...Next 循环语句

暂无相关评论

发表评论: 用户:
验证码

    
版权所有 中国工具网 电话:0523-86864621