vbs怎么使用mid函数呢

Question

vbs怎么使用mid函数呢

Answer 1

Option Base 1Dim s As String'读取数据in4.dat中的数据并用s代替Private Sub Command1_Click()Open&nbsp;App.Path&nbsp;& "\in4.dat" For Input As #1s = Input(LOF(1), #1)Close #1Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim m As IntegerIf Len(s) = 0 ThenMsgBox "请先使用“读数据”功能！"ElseIf Text1.SelLength = 0 ThenMsgBox "请先选中文本！"Elset = ""For i = 1 To Text1.SelLengthc = Mid(Text1.SelText, i, 1)If c <> " " Thent = t + cElseIf LCase(t) = "the" Thenm = m + 1End Ift = ""End IfNext iText2.Text = Str(m)End IfEnd IfEnd Sub

Answer 2

在一 Variant (String) 变量中以另一个字符串中的字符替换其中指定数量的字符。语法Mid(stringvar, start[, length]) = stringMid 语句的语法具有下面几个部分：部分 描述stringvar 必要参数。被更改的字符串变量名。start 必要参数；Variant (Long)。stringvar 中被替换的字符开头位置。length 可选参数；Variant (Long)。被替换的字符数。如果省略，string将全部用上。string 必要参数。字符串表达式，替换部分 stringvar 的字符串。说明被替换的字符数量总是小于或等于 stringvar 的字符数。注意 MidB 语句作用于包含在字符串中的字节数据。在 MidB 语句中，start 指定 stringvar 中被替换的字节开头位置，而 length 为替换的字节数。

Answer 3

　Mid是Visual Basic和Microsoft Excel中的一个字符串函数，作用是从一个字符串中截取出指定数量的字符。　　语法：　　VB中　　Mid(String As Variant, Start As Long, [Length As Variant]) As Variant　　Mid$(String As String, Start As Long, [Length As Variant]) As String　　Excel中　　MID(text, start_num, num_chars)[1]　　说明：这个函数的3个参数各在VB和Excel中互相等价，但VB中的Length参数可以省略，而Excel中num_chars参数不可省略。　　程序示例：　　VB中　　下面的示例展示了VB中如何使用Mid函数。其中所有的“Mid”都可以用“Mid$”代替。　　DimvAsString　　v=Mid("VisualBasic",0,12)'提示实时错误5　　v=Mid("VisualBasic",1,6)'v的值为"Visual"　　v=Mid("VisualBasic",1,20)'v的值为"VisualBasic"　　v=Mid("VisualBasic",8)'v的值为"Basic"　　v=Mid("VisualBasic",15)'v的值为空字符串　　v=Mid("中文VB",2,2)'v的值为"文V"　　

Answer 4

text1.text="aabb"for k=1 to 4if mid(text1.text,k,1)="a" thenlabel1(k).backcolor=vbgreen elselabel1(k).backcolor=vbwhiteend ifnext