Dzwebs.Net

撰写电脑技术杂文十余年

InStr vba

Admin | 2016-4-16 9:22:41 | 被阅次数 | 6737

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  InStr函数功能:返回 Variant (Long),指定一字符串在另一字符串中最先出现的位置。

  InStr函数语法

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

  参数说明

  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 为零长度     0
  string1 为 Null     Null
  string2 为零长度     Start
  string2 为 Null     Null
  string2 找不到     0

  在 string1 中找到string2     找到的位置

  start > string2     0

  InStr 函数示例

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

  Dim SearchString, SearchChar, MyPos

  SearchString ="XXpXXpXXPXXP"   ' 被搜索的字符串。
  SearchChar = "P"   ' 要查找字符串 "P"。

  ' 从第四个字符开始,以文本比较的方式找起。返回值为 6(小写 p)。
  ' 小写 p 和大写 P 在文本比较下是一样的。
  MyPos = Instr(4, SearchString, SearchChar, 1)   

  ' 从第一个字符开使,以二进制比较的方式找起。返回值为 9(大写 P)。
  ' 小写 p 和大写 P 在二进制比较下是不一样的。
  MyPos = Instr(1, SearchString, SearchChar, 0)

  ' 缺省的比对方式为二进制比较(最后一个参数可省略)。
  MyPos = Instr(SearchString, SearchChar)   ' 返回 9。

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

  应用范例:

  Dim SearchStr
  SearchStr = "本平台能够辅助教师快速有效的出题"
  For i = 1 To ActiveDocument.Paragraphs.Count
      If (InStr(ActiveDocument.Paragraphs(i).Range.Text, SearchStr) = 0) Then
      Else
      End If
  Next i


该杂文来自: Word杂文

上一篇:word vba 根据字符找段落 返回第二句

下一篇:word2003SmartArt在哪里

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计