vbscript多层次“智能”关键字搜索（vbs）(代码片段)

关键词：

<af name="Custom_SSNSearch" access="public" bInter="bInter" bDebug="bDebug" strParam="StrParam" >
<g>
    <![CDATA[
	
	Custom_SSNSearch = False

	If (CurrentObj.ObjectType<>3) Then 
		Exit Function	'must be a field
	End if
	
	Dim keyArray
	Dim sList
	Dim ReadKeyFile
	Dim sExtn
	Dim foundKeyWord
	
	Dim foundSSN
	Dim foundNumber
	Dim found
	found = false
	foundSSN = false
	foundNumber = false
	
	Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const CreateNew = True, DoNotCreate = False
    Const SysDefault = -2, OpenAsUnicode = -1, OpenAsASCII = 0
	
	ReadKeyFile = ""	
	sExtn = ".key"

	StrParam = Trim(StrParam)
  
	If NOT Right(lcase(StrParam),4)=sExtn then   
    'Add the '.key' extension for file i/o compatibility
     StrParam = StrParam & sExtn
	End if
	
	strPath = Pilot.ProjectPath
	strProcessDir = FileMgr.GetParentFolderName(strPath) & "\"
	sPathedParam = Trim(strProcessDir & strParam)
	
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	if objFSO.FileExists(sPathedParam) then
		
		Set oKeyFile = FileMgr.OpenTextFile(sPathedParam, ForReading, DoNotCreate, OpenAsASCII)
		
		If oKeyFile.AtEndOfStream = False Then
			sList = oKeyFile.ReadAll
			Writelog("Opened and read key file: " & sPathedParam)
			keyArray = Split(sList,vbCrLf)
		End if
		
		oKeyFile.Close	
		
	End If
	
		For each x in keyArray
		
			if x <> " " then 
			CurrentObj.Text = ""
			Writelog("Looking for keyword: " & x)
			found = WordFind(false,false,Trim(x))
		
			if found then
				Writelog("Found keyword: " & x & " now look beside it.")
				Call GoRightWord(false,false,"1")
				Call GroupNextWords(false,false,"1")
				Call UpdateField(false,false)
				foundNumber = IsNumber(false,false,"80")
				foundSSN = IsFieldLengthMin(false,false,"9")
					if foundNumber And foundSSN then
						Writelog("Found a valid SSN beside the keyword.")
						CurrentObj.Parent.Variable("FoundEmployeeSSN") = "True"
						exit function
					else
						CurrentObj.Text = ""
						Writelog("Found keyword: " & x & " now look below it.")
						Call WordFind(false,false,Trim(x))
						Call GoBelowWord(false,false,"1")
						Call GroupNextWords(false,false,"1")
						Call UpdateField(false,false)
						foundNumber = IsNumber(false,false,"80")
						foundSSN = IsFieldLengthMin(false,false,"9")
							if foundNumber And foundSSN then
								Writelog("Found a valid SSN below the keyword.")
								CurrentObj.Parent.Variable("FoundEmployeeSSN") = "True"
								exit function
							else
								CurrentObj.Text = ""
								Writelog("Found keyword: " & x & " now look above it.")
								Call WordFind(false,false,Trim(x))
								Call GoAboveWord(false,false,"1")
								Call GroupNextWords(false,false,"1")
								Call UpdateField(false,false)
								foundNumber = IsNumber(false,false,"80")
								foundSSN = IsFieldLengthMin(false,false,"9")
									if foundNumber And foundSSN then
										Writelog("Found a valid SSN above the keyword.")
										CurrentObj.Parent.Variable("FoundEmployeeSSN") = "True"
										exit function
									else
										Writelog("Didn't find a valid SSN beside, below, or above the keyword. Move to next keyword.")
										CurrentObj.Text = ""
									end if
							end if
					end if	
			end if
			end if
			
		Next
		
]]></g></af>

vbscript存档文件的vbs脚本(代码片段)

查看详情

vbscript文件夹中的vbs查找文件。（执行：cscriptlookupxml.vbs）(代码片段)

查看详情

vbscript使用vbs在windows上安装新字体(代码片段)

查看详情

将 Staad 与 VBS 一起使用（将 VBA 文档转换为 VBscript）

】将Staad与VBS一起使用（将VBA文档转换为VBscript）【英文标题】：UsingStaadwithVBS(ConvertVBAdocumentationtoVBscript)【发布时间】：2015-05-2419:42:45【问题描述】：我正在尝试使用vbscript从Staad（一个结构分析程序）中提取数据。Staad有一个API... 查看详情

vbscript基础篇

VBScript学习笔记本文参考：VBS基础教程。学习了vbs的基础语法，进行了一些练习，下面是我编写的demo。1.输入输出vbs01.vbsREM和‘单引号作用都是用于注释，相当于c语言中"//"。Dim用来声明变量，vbs支持动态数据类型，即不... 查看详情

在 Joomla 智能搜索模块中禁用关键字搜索建议

】在Joomla智能搜索模块中禁用关键字搜索建议【英文标题】：DisableKeywordSearchSuggestioninJoomlaSmartSearchModule【发布时间】：2018-05-2209:16:33【问题描述】：我可以通过智能搜索选项禁用。当我在模块中编辑模板文件时，搜索建议似乎... 查看详情

我可以将参数传递给 VBScript（使用 cscript 启动的 vbs 文件）吗？

】我可以将参数传递给VBScript（使用cscript启动的vbs文件）吗？【英文标题】：CanIpassanargumenttoaVBScript(vbsfilelaunchedwithcscript)?【发布时间】：2011-02-1721:37:24【问题描述】：我有这个脚本保存在“test.vbs”中：SetFSO=CreateObject("Scripting.Fi... 查看详情

智能关键字搜索

】智能关键字搜索【英文标题】：IntelligentKeywordSearching【发布时间】：2009-10-0110:03:41【问题描述】：我有一个分类词汇分配给Drupal6中的内容类型。然后我将其公开（使用“是其中之一”）作为视图中的一个字段，允许用户通过... 查看详情

带有 HTA 前端的 VBScript

】带有HTA前端的VBScript【英文标题】：VBScriptwithHTAfrontend【发布时间】：2013-04-0919:21:58【问题描述】：好的，我有一个漂亮的VBS，它会在巨大的日志文件中搜索某些字符串，但我并不总是想在每个日志文件中搜索每个字符串。我... 查看详情

在批处理中调用vbscript（支持获取返回值）

...标签也可以不要（lz最早是看见zhonghua兄使用该方法）MshtaVbscript:VBS命令(Close)感谢zhong 查看详情

无法让 vbscript 识别输入区域

...并在互联网上搜寻正确的方法，但是要么我在搜索错误的关键字，要么我是盲人。我要操作的特定字段 查看详情

vbscript一个vbs脚本，用于监视打印队列和电子邮件，如果任何单个作业已经存在超过15分钟(代码片段)

查看详情

vbscript[vbs|计算机neustarten]skript，欢迎einensystemneustart（nachconfirm-dialog）initiierrt。#vbscrip(代码片段)

查看详情

搜索关键词的智能提示

最近在百度搜索的时候，当你输入一个字或者词的时候，他会给你们弹出一个下拉框出来，里面是和你相关的搜索提示比如我输入杨字，他会给我提示以下搜索提示我尝试着用JavaScript做了一个类似的练习，以下是我用VS2013写的... 查看详情

vbscript来自hfm元数据的实体no层次结构(代码片段)

查看详情

vbs的一些入门基础。。。

VBS(VBScript的进一步简写)是基于VisualBasic的脚本语言.MicrosoftVisualBasic是微软公司出品的一套可视化编程工具,语法基于Basic.脚本语言,就是不编译成二进制文件,直接由宿主(host)解释源代码并执行,简单点说就是你写的程序不需要编译... 查看详情

seo学习知识

...2_关键词3_品牌词 搜索引擎分词技术的应用：模板1：智能家居_苏州智能家居_智能家居系统_智能家居控制系统_智能家居产品-苏州商盟智能家居优化：苏州智能家居产品系统_智能家居控制系统-苏州商盟智能家居  描述... 查看详情

vbscript搜索功能(代码片段)

查看详情