vb.net格式化函数的简单介绍

vb.net中的mid（）用法

VB.NET编程Mid函数一般用于返回原字符串中子串，比如说：

Dim MyString, FirstWord, LastWord, MidWords  

MyString = "Mid Function Demo" 建立一个字符串。  

FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。  

LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。  

MidMidWords = Mid(MyString, 5) ' 返回 "Funcion

具体函数说明如下：返回 Variant (String)，其中包含字符串中指定数量的字符。

mid函数的语法：

Mid(string, start[, length])

mid函数的参数：

string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null；

start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，VB.NET Mid函数返回零长度字符串 ("")；

length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

相关问答

Q1: VB.NET格式输出函数format怎么用？

果在格式化数字时没有指定 formatvb.net格式化函数，Format 会提供与 Str 函数类似vb.net格式化函数的功能

' 如果没有指定格式，则返回字符串。

MyStr = Format(23) ' 返回 "23"。

' 用户自定义的格式。

MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。

MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。

MyStr = Format(5, "0。00%") ' 返回 "500.00%"。

MyStr = Format("HELLO", "") ' 返回 "hello"。

MyStr = Format("This is it", "") ' 返回 "THIS IS IT

Q2: 如何在VB（不是VB.net）中使用正则表达式控制文本框只能输入2位小数？（不能输入0000. 或者... 之类的）

'最多两位小数，可以没有或者一位

Private Sub TestReg(strData As String)

Dim zq As Boolean

Dim reg As Object

Dim matchs As Object, match As Object

Set reg = CreateObject("vbscript.regExp")

reg.Global = True

reg.IgnoreCase = True

reg.MultiLine = True

reg.Pattern = "^(?!0+(?:\.0+)?$)(?:[1-9]\d*|0)(?:\.\d{1,2})?$"

Set matchs = reg.Execute(strData)

For Each match In matchs

strData = match

zq = True

Next

If zq = False Then strData = "" '清空文本框数据，你也可以改为其他提示

End Sub

Private Sub Command1_Click()

Dim strData As String

strData = Text1.Text

TestReg strData

Text1.Text = strData

End Sub

Q3: VB.NET string$函数

VB6vb.net格式化函数的String()函数vb.net格式化函数，在VB.NET中vb.net格式化函数，改用 StrDup()函数，使用格式与VB6的String()函数类似vb.net格式化函数：

例如vb.net格式化函数：

VB6中，String(5,"*") ，是产生5个星号字符，"*****"

VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"

Q4: vb.net里的时间函数问题

dim date as DateTime = DateTime.Parse(TextBox1.Text)

TextBox2.Text = date.ToShortDateTime()

日期类型有好多种转换表达式， 特别的使用.ToString("YYYY-mm-dd") 这种形式可以自定义ToString里面的格式化样式。

Q5: vb编写一个函数，删除一个字符串中的特定字符

'定义一个find函数

Private Function find(s1 As String, s2 As String) As String

Dim i As Integer

For i = 1 To Len(s1)

If i = InStr(1, s1, s2, vbTextCompare) Then

find = Left(s1, i - 1) Right(s1, Len(s1) - Len(s2) - i + 1)

Exit Function

End If

Next i

find = s1

End Function

'将Text1.Text中的Text2.Text字符删除

Private Sub Command1_Click()

Dim s As String

s = find(Text1.Text, Text2.Text)

Text1.Text = s

End Sub

关于vb.net格式化函数和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。