windows - 在目录中搜索字符串

coder 2024-06-11 原文

我正在尝试创建一个可以接受用户输入(字符串、目录)并在目录中搜索字符串的 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你应该包括实际的HTA tag .
```
<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/

中搜 windows code 34 thing vbscript hta

有关windows - 在目录中搜索字符串的更多相关文章

ruby - 如何从 ruby 中的字符串运行任意对象方法？ - 2
总的来说，我对ruby还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用
Ruby 解析字符串 - 2
我有一个字符串input="maybe(thisis|thatwas)some((nice|ugly)(day|night)|(strange(weather|time)))"Ruby中解析该字符串的最佳方法是什么？我的意思是脚本应该能够像这样构建句子:maybethisissomeuglynightmaybethatwassomenicenightmaybethiswassomestrangetime等等，你明白了......我应该一个字符一个字符地读取字符串并构建一个带有堆栈的状态机来存储括号值以供以后计算，还是有更好的方法？也许为此目的准备了一个开箱即用的库？
ruby-on-rails - 在 Rails 中将文件大小字符串转换为等效千字节 - 2
我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，
ruby-on-rails - unicode 字符串的长度 - 2
在我的Rails(2.3，Ruby1.8.7)应用程序中，我需要将字符串截断到一定长度。该字符串是unicode，在控制台中运行测试时，例如'א'.length，我意识到返回了双倍长度。我想要一个与编码无关的长度，以便对unicode字符串或latin1编码字符串进行相同的截断。我已经了解了Ruby的大部分unicode资料，但仍然有些一头雾水。应该如何解决这个问题？最佳答案 Rails有一个返回多字节字符的mb_chars方法。试试unicode_string.mb_chars.slice(0,50)
ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2
我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0
ruby - 将差异补丁应用于字符串/文件 - 2
对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl
ruby-on-rails - Rails 常用字符串(用于通知和错误信息等) - 2
大约一年前，我决定确保每个包含非唯一文本的Flash通知都将从模块中的方法中获取文本。我这样做的最初原因是为了避免一遍又一遍地输入相同的字符串。如果我想更改措辞，我可以在一个地方轻松完成，而且一遍又一遍地重复同一件事而出现拼写错误的可能性也会降低。我最终得到的是这样的:moduleMessagesdefformat_error_messages(errors)errors.map{|attribute,message|"Error:#{attribute.to_s.titleize}#{message}."}enddeferror_message_could_not_find(obje
ruby - 如何以所有可能的方式将字符串拆分为长度最多为 3 的连续子字符串？ - 2
我试图获取一个长度在1到10之间的字符串，并输出将字符串分解为大小为1、2或3的连续子字符串的所有可能方式。例如:输入:123456将整数分割成单个字符，然后继续查找组合。该代码将返回以下所有数组。[1,2,3,4,5,6][12,3,4,5,6][1,23,4,5,6][1,2,34,5,6][1,2,3,45,6][1,2,3,4,56][12,34,5,6][12,3,45,6][12,3,4,56][1,23,45,6][1,2,34,56][1,23,4,56][12,34,56][123,4,5,6][1,234,5,6][1,2,345,6][1,2,3,456][123
ruby - 什么是填充的 Base64 编码字符串以及如何在 ruby 中生成它们？ - 2
我正在使用的第三方API的文档状态:"[O]urAPIonlyacceptspaddedBase64encodedstrings."什么是“填充的Base64编码字符串”以及如何在Ruby中生成它们。下面的代码是我第一次尝试创建转换为Base64的JSON格式数据。xa=Base64.encode64(a.to_json) 最佳答案他们说的padding其实就是Base64本身的一部分。它是末尾的“=”和“==”。Base64将3个字节的数据包编码为4个编码字符。所以如果你的输入数据有长度n和n%3=1=>"=="末尾用于填充n%
ruby - 如何使用文字标量样式在 YAML 中转储字符串？ - 2
我有一大串格式化数据(例如JSON)，我想使用Psychinruby同时保留格式转储到YAML。基本上，我希望JSON使用literalstyle出现在YAML中:---json:|{"page":1,"results":["item","another"],"total_pages":0}但是，当我使用YAML.dump时，它不使用文字样式。我得到这样的东西:---json:!"{\n\"page\":1,\n\"results\":[\n\"item\",\"another\"\n],\n\"total_pages\":0\n}\n"我如何告诉Psych以想要的样式转储标量？解

windows - 在目录中搜索字符串

有关windows - 在目录中搜索字符串的更多相关文章

随机推荐