VB.NET计算数字相关函数使用方法

开发 后端
VB.NET计算数字的实现,可以通过使用Split函数以及Replace函数来进行操作。我们会在接下来的文章中对此进行一个详细的介绍。

VB.NET编程语言一经出现,就凭借其强大的功能受到广大开发人员的青睐。它的应用方式多样化,应用领域广泛,比如在这里为大家介绍的VB.NET计算数字这一方法,就可以通过两个函数的应用方便的实现这一功能。#t#

对于Visual Basic开发者来说,处理字符串和执行各种各样的字符串操作是十分重要的。当你需要确定一个长字符串中的字数时,你可以使用VB.NET中的一个简单函数Split来获得所需要的结果。

Split函数使你能够将长字符串分离为单独的字;但是如果在字与字之间不止一个空格,Split就会返回一个错误的结果。为了防止这种情况发生,你可以在使用Split之前用Replace函数来替换多个空格的出现。列表A给出了一个例子。

VB.NET计算数字列表A

 

  1. Private Sub CountWords()  
  2. Dim strText As String = 
    "It's a wonderful world" 
  3. Dim iCount As Integer  
  4. Do While (strText.IndexOf
    (Space(2)) 
    >= 0)  
  5. strTextstrText = strText.
    Replace(Space(2), Space(1))  
  6. Loop  
  7. iCount = Split(strText, 
    Space(1)).Length  
  8. MsgBox(iCount.ToString())  
  9. End Sub 

 

在这个VB.NET计算数字例子中,我创建了字符串strText,再将它设置成有多个字符的长字符串。然后,我利用Replace函数来把出现的多个空格替换成一个空格。这样做是为了把字符串strText准备就绪,让你能够使用Split函数并提供正确的结果。接着,我将strText输入Split函数,并且得到了包括在字符串strText中的字数。

注意:如果你跳过或注释用来移除多余空格的循环,结果是7个字。使用移除所有多余空格的循环后,结果才是正确的,4个字。

 

  1. Private Sub CountWords()  
  2. Dim strText As String = 
    "It's a wonderful world" 
  3. Dim iCount As Integer  
  4. Do While (strText.IndexOf
    (Space(2)) 
    >= 0) strTextstrText
     = strText.Replace(Space(2), 
    Space(1)) Loop  
  5. iCount = Split(strText, 
    Space(1)).Length MsgBox
    (iCount.ToString())  
  6. End Sub 

VB.NET计算数字的相关实现方法我们就为大家介绍到这里。

责任编辑:曹凯 来源: wewill.cn
相关推荐

2010-01-19 09:36:06

VB.NET Func

2010-01-19 14:50:20

VB.NET集合

2010-01-21 14:06:03

VB.NET MyCl

2010-01-20 17:47:54

VB.NET注释

2009-10-26 13:36:58

VB.NET Spli

2010-01-21 17:23:05

VB.NET Radi

2010-01-22 16:07:26

VB.NET Mid函

2010-01-12 13:43:30

VB.NET字符转换

2010-01-18 13:12:43

VB.NET控件数组

2010-01-07 16:08:45

VB.NET子过程和函

2010-01-13 17:16:37

VB.NET冒号

2010-01-20 10:27:07

VB.NET隐式类型局

2009-10-13 15:20:02

VB.NET使用Dra

2010-01-08 17:00:22

VB.NET变量和常数

2010-01-18 17:15:20

VB.NET参数类型不

2010-01-11 15:43:06

VB.NET类属性

2010-01-07 10:28:04

VB.NET实现接口

2010-01-12 17:54:42

VB.NET Dlli

2009-10-21 10:45:50

VB.NET Quic

2009-10-15 17:50:48

VB.NET Spli
点赞
收藏

51CTO技术栈公众号