个人中心
文章发布
退出
作者热门文章
- android - RelativeLayout 背景可绘制重叠内容
- android - 如何链接 cpufeatures lib 以获取 native android 库？
- java - OnItemClickListener 不起作用，但 OnLongItemClickListener 在自定义 ListView 中起作用
- java - Android 文件转字符串
25
4
我正在尝试创建一个可以接受用户输入(字符串、目录)并在目录中搜索字符串的 VBScript 代码。
我的 .vbs 文件在这里:
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Dirname = InputBox("Enter Dir name")
Searchterm = Inputbox("Enter search term")
ProcessFolder DirName
Sub ProcessFolder(FolderPath)
Set fldr = fso.GetFolder(FolderPath)
Set Fls = fldr.Files
For Each thing In Fls
Set contents = thing.OpenAsTextStream
If Instr(contents.readall, searchterm) Then WScript.Echo thing.Path
Next
Set fldrs = fldr.subfolders
For Each thing In fldrs
' WScript.Echo thing.name
ProcessFolder thing.path
Next
End Sub
这很合理。但是，当我尝试将它包装在 HTA 文件中时，我无法弄清楚如何传递表单值然后在 HTML 页面上显示结果。
以下是我尝试创建 .hta 文件的方式:
<HTML>
<HEAD><TITLE>Simple Validation</TITLE>
<SCRIPT LANGUAGE="VBScript">
Sub Submit_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
Dim FileName
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
strTemp = "result.txt"
Dirname = TheForm.Text1.Value
Searchterm = TheForm.Text2.Value
Set objOutFile = objFS.CreateTextFile(strTemp,True)
ProcessFolder DirName
ProcessFolder(FolderPath)
Set fldr = fso.GetFolder(FolderPath)
Set Fls = fldr.files
For Each thing In Fls
Set contents = thing.OpenAsTextStream
If InStr(contents.ReadAll, searchterm) Then Set FileName = thing.Path"
Next
Set fldrs = fldr.subfolders
For Each thing In fldrs
' WScript.Echo thing.Name
ProcessFolder thing.Path
Next
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H3>Simple Validation</H3><HR>
<FORM NAME="ValidForm" align = "center">
Enter String to Serach:
<INPUT NAME="Text1" TYPE="TEXT">
</br>
</br>
Enter Directory:
<INPUT NAME="Text2" TYPE="TEXT">
</br>
</br>
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="Submit">
</FORM>
<p id = "demo"></p>
</BODY>
<script LANGUAGE = "javascript">
//document.getElementById('demo').innerHTML = FileName;
</script>
</HTML>
也许我可以在列表中显示结果或将其存储在文本文件中并访问它以显示。
最佳答案
您的 HTA 从根本上被破坏了。
<HTA:APPLICATION ID="oHTA" APPLICATIONNAME="Test" ...>
VBScript 代码块仅包含一个过程定义 (Sub Submit_OnClick)。您在其中调用过程 ProcessFolder(两次)，但实际上您从未在任何地方定义它。您需要将该过程定义放在 Submit_OnClick 定义之前或之后，否则您将无法调用它:
Sub Submit_OnClick
...
End Sub
Sub ProcessFolder(FolderPath)
...
End Sub
以下行有一个虚假的尾随双引号:
If InStr(contents.ReadAll, searchterm) Then Set FileName = thing.Path"
在同一行中，您不能使用 Set用于将字符串(路径)分配给变量的语句。该关键字保留用于将对象分配给变量，并且在分配原始数据类型时必须省略。
WScript.Echo 在 HTA 中不起作用，因为 HTA 脚本宿主不提供 WScript 对象。使用 MsgBox如果您需要显示消息，则改为使用函数。
打开 objOutFile 时使用的是 objFS，但实际的 FileSystemObject 实例变量是 fso。
要在 HTML 中显示搜索结果，您需要修改 HTML 元素的值，例如:
demo.innerHtml = demo.innerHtml & thing.Path & "<br>"
关于windows - 在目录中搜索字符串，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35575601/
25
4
0
我在我的应用程序中使用 Hibernate Search。其中一个子集合被映射为 IndexedEmbedded。子对象有两个字段，一个是 id，另一个是日期(使用日期分辨率到毫秒)。当我搜索 id=
The App Engine Search API有一个 GeoPoint 字段。可以用它来进行半径搜索吗？例如，给定一个 GeoPoint，查找位于特定半径内的所有文档。 截至目前，它看起来像 Ge
客户对我正在做的员工管理项目提出了这个新要求，以允许他们的用户进行自定义 bool 搜索。 基本上允许他们使用:AND、OR、NOT、括号和引号。 实现它的最佳方法是什么？我检查了 mysql，它们使
很想知道哪个更快 - 如果我有一个包含 25000 个键值对的数组和一个包含相同信息的 MySQL 数据库，搜索哪个会更快？ 非常感谢大家! 最佳答案 回答这个问题的最好方法是执行基准测试。 关于ph
我喜欢 smartcase，也喜欢 * 和 # 搜索命令。但我更希望 * 和 # 搜索命令区分大小写，而/和 ?搜索命令遵循 smartcase 启发式。 是否有隐藏在某个地方我还没有找到的设置？我宁
我有以下 Marklogic 查询，当在查询控制台中运行时，它允许我检索具有管理员权限的系统用户: xquery version "1.0-ml"; import schema namespace b
我希望当您搜索例如“A”时，所有以“A”开头的全名都会出现。因此，如果名为“Andreas blabla”的用户将显示 我现在有这个: $query = "SELECT full_name, id,
我想在我的网站上添加对人名的搜索。好友列表已经显示在页面上。 我喜欢 Facebook 这样做的方式，您开始输入姓名，Facebook 只会显示与查询匹配的好友。 http://cl.ly/2t2V0
您好，我在我的网站上进行搜索时遇到此错误。 Fatal error: Uncaught Error: Call to undefined function mysql_connect() in /ho
声明( 叠甲 )：鄙人水平有限，本文为作者的学习总结，仅供参考。 1. 搜索介绍 搜索算法包括深度优先搜索（DFS）和广度优先搜索（BFS）这两种，从起点开始，逐渐扩大
我正在为用户列表使用 FuturBuilder。我通过 futur: fetchpost() 通过 API 获取用户。在专栏的开头，我实现了一个搜索栏。那么我该如何实现我的搜索栏正在搜索呢？ Cont
我正在使用 MVC5，我想搜索结果并停留在同一页面，这是我在 Controller (LiaisonsProjetsPPController) 中执行搜索操作的方法: public ActionRes
Azure 搜索中的两种方法 Upload 与 MergeOrUpload 之间有什么区别。 他们都做完全相同的事情。即，如果文档不存在，它们都会上传文档；如果文档已经存在，则替换该文档。 由于这两种
实际上，声音匹配/搜索的当前状态是什么？我目前正在远程参与规划一个 Web 应用程序，该应用程序将包含和公开记录的短音频剪辑(最多 3-5 秒，人名)的数据库。已经提出了一个问题，是否可以实现基于用户
在商业应用程序中，具有数百个面并不罕见。当然，并非所有产品都带有所有这些标记。 但是在搜索时，我需要添加一个方面查询字符串参数，其中列出了我想要返回的所有方面。由于我事先不知道相关列表，因此我必须在查
当我使用nvcc 5.0编译.cu文件时，编译器会为我提供以下信息。 /usr/bin/ld: skipping incompatible /usr/local/cuda-5.0/lib/libcud
我正在使用基于丰富的 Lucene 查询解析器语法的 Azure 搜索。我将“~1”定义为距离符号的附加参数)。但我面临的问题是，即使存在完全匹配，实体也没有排序。 (例如，“blue~1”将返回“b
我目前有 3 个类，一个包含 GUI 的主类，我在其中调用此方法，一个包含数据的客户类，以及一个从客户类收集数据并将其放入数组列表的 customerList 类，以及还包含搜索数组列表方法。 我正在
假设我有多个 6 字符的字母数字字符串。 abc123、abc231、abc456、cba123、bac231 和 bac123 。 基本上我想要一个可以搜索和列出所有 abc 实例的选择语句。 我只
我有这个表 "Table"内容: +--------+ | Serial | +--------+ | d100m | <- expected result | D100M | <- expect
我是一名优秀的程序员,十分优秀！