使用InStr函数在文档中查找文本 [英] Finding text within a document using InStr Function

问题描述

您好，

我想了解更多有关InStr函数及其在顺序文件处理和文件处理技术中的工作原理。

I would like to learn more about the InStr function and how it works in Sequential File Processing and File Handling techniques.

在此源代码中：

Sub Demo（）

Sub Demo()

Dim Xp as Long

Dim Xp as Long

Dim strX（200）As String

Dim strX(200) As String

推荐答案

我的错误。更正：

My mistake. A correction:

打开"C：\File Number One.txt"输入为＃1

对于Xp = 0至200

   输入＃1，strX（Xp）

下一个Xp

关闭＃1

Open "C:\File Number One.txt" For Input As #1
For Xp = 0 To 200
    Input #1, strX(Xp)
Next Xp
Close #1

打开"C：\File Number Two.txt"输出＃2

Open "C:\File Number Two.txt" for Output #2

对于Xp = 0到200

   写＃2，strX（Xp）

   如果Str（Xp）= InStr（1，strX（Xp），"[n]"，vbTextCompare）则为
       写＃2，"检测到名词"

   结束如果

下一个Xp

For Xp = 0 To 200
    Write #2, strX(Xp)
    If Str(Xp) = InStr(1, strX(Xp), "[n]", vbTextCompare) Then
        Write #2, "Noun detected"
    End If
Next Xp

这篇关于使用InStr函数在文档中查找文本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！