用VBScript中怎么搜索一字符串中是否存在某

Question

用VBScript中怎么搜索一字符串中是否存在某

Answer 1

n=inputbox("请输入路径:","","1.txt")set fso=createobject("scripting.filesystemobject")if fso.fileexists(n) thenif instr(n,"\")=0 thenmsgbox "发现同文件夹有"+n+"文件"elsemsgbox "路径格式正确："+n+",此文件存在"end ifelseif instr(n,"\")=0 thenmsgbox "路径格式错误或文件不在当前文件夹",16elsemsgbox "路径格式正确："+n +"，此文件不存在"end ifend if

Answer 2

用INSTR函数InStr函数 返回索引返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。语法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，执行一个基于数据库中信息的比较。返回值如果 InStr返回string1 为零长度 0string1 为 Null Nullstring2 为零长度 Startstring2 为 Null Nullstring2 找不到 0在 string1 中找到string2 找到的位置start > string2 0说明InStrB 函数作用于包含在字符串中的字节数据。所以 InStrB 返回的是字节位置，而不是字符位置。