vb insrt函数 的详细用法+例子

好的话 加分

instr VB和VBS函数

名称

InStr

类别

字符串函数

方法

InStr([start, ]string1, string2[, compare])

参数

InStr 函数的语法具有下面的参数：

部分

说明

start

可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。

string1

必要参数。接受搜索的字符串表达式。

string2

必要参数。被搜索的字符串表达式。

Compare

可选参数。指定字符串比较。如果 compare 是 Null，将发生错误。如果省略 compare，Option Compare 的设置将决定比较的类型。

compare 参数设置为：

常数 值

vbUseCompareOption -1

说明：使用Option Compare 语句设置执行一个比较。

vbBinaryCompare 0

说明：执行一个二进制比较。

vbTextCompare 1

说明：执行一个按照原文的比较。

vbDatabaseCompare 2

说明：仅适用于Microsoft Access，执行一个基于数据库中信息的比较。

返回值

返回0、1、2、-1或Null等。

异常/错误

无

描述InStr([start, ]string1, string2[, compare])

返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中，从start开始找string2，省略start时从string1头开始找。找不到时，函数值为0。

如果

string1 为零长度

InStr返回 0

string1 为 Null

InStr返回 Null

string2 为零长度

InStr返回 Start 的值

string2 为 Null

InStr返回 Null

string2 找不到

InStr返回 0

在 string1 中找到string2

InStr返回 找到的位置

start 值 > string2 值

InStr返回 0

示例

本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

Dim SearchString, SearchChar, MyPos

SearchString ="XxxxxpxxPhdd" '被搜索的字符串。

SearchChar = "P" ' 要查找字符串。

' 从第4个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。

' 小写 p 和大写 P 在文本比较下是一样的。

MyPos = Instr(4, SearchString, SearchChar, 1)

' 从第4个字符开始，按照原文比较的方式找起。返回值为 9（大写 P）。

' 小写 p 和大写 P 在二进制比较下是不一样的。

MyPos = Instr(1, SearchString, SearchChar, 0)

' 缺省的比对方式为二进制比较（最后一个参数可省略）。

MyPos = Instr(SearchString, SearchChar) ' 返回 9。

MyPos = Instr(1, SearchString, "W") ' 返回 0。

SQL函数：

INSTR(char1，char2，start，times)：在char1字符串中搜索char2字符串，start为执行搜索的起始位置，times为搜索次数。

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。

用记事本就可以看到源代码。在没有语法错误的前提下，直接双击左键就可以运行。

但是要注意，因为VBS较为简单可行性强，所以很多人都喜欢利用VBS去写病毒或者整人的代码，所以在打开VBS之前要确保VBS的安全性和渠道的可信性。

任何一种文本编辑器都可以用来开发VBS， 记事本是windows系统自带的，无需专门下载安装，更方便快捷。

扩展资料：

2000年的时候，一名犯罪分子发送了题为”ILoveYou”的电邮，其中含有恶意附件LOVE-LETTER-FOR-YOUTXTvbs，实际上并非是文本文件而是VB脚本。

这封”爱的邮件”在全球范围感染了超过300万PC电脑用户。该恶意软件最终大获成功：成为了2002年传播最广泛的计算机病毒。

即便是最简单的恶意软件也能引起受害人的情绪反应。例如，一款典型的Skype木马病毒在受害人的联系人每次上线时，都会向他们发送”嗨”。

结果显而易见：受害人的许多好友和熟人几乎都会同步作出回复。对于有些用户而言，这种体验相当可怕，因此他们称其为”内向的人所遇到的最可怕病毒。”

事实上，该病毒在在这一问候消息中添加了网络钓鱼链接，因此向所有人说”嗨”绝不是为了好玩那么简单。但该恶意软件之所以受到广泛关注，是因为每次感染一台PC电脑都引起一场有关无用通讯的”巨大海啸”。

参考资料：

人民网-五种最怪异的木马病毒：滑稽、吓人又有些奇怪

string 函数 msdn 里有啊 , 如下

String 函数

返回 Variant (String)，其中包含指定长度重复字符的字符串。

语法

String(number, character)

String 函数示例

本示例使用 String 函数来生成一指定长度，且只含单一字符的字符串。

Dim MyString

MyString = String(5, "") ' 返回 ""。

MyString = String(5, 42) ' 返回 ""。

MyString = String(10, "ABC") ' 返回 "AAAAAAAAAA"。

String 函数的语法有下面的命名参数：

部分 说明

number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。

character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。

说明

如果指定 character 的数值大于 255，String 会按下面的公式将其转为有效的字符码：

character Mod 256

Set fso = CreateObject("ScriptingFileSystemObject")

set fo = fsoGetfolder("")

set fi = fofiles

for each file in fi

n = n + 1

next

msgbox n