个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我在hta中做一个脚本，需要他具备以下功能:
它具有以下功能:
代码:
<HTML>
<head><title>Name</Title>
<HTA:Application
Border= "thin"
Application="/md/input"
Scoll="NO"
Singleinstance="Yes"
Icon="01.ico">
ShowInTaskbar="Yes"
Caption="Yes">
</Head>
<Script Language="VBSCRIPT" Type = "text/vbscript">
Sub Window_Onload
Window.resizeTo 400,500
End Sub
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Set fSo1 = CreateObject("Scripting.FileSystemObject")
wkDir = "test.txt"
'----------------------------------------------------------
sub Window_onLoad()
Window.resizeTo 400,500
set oFSO=CreateObject("Scripting.FileSystemObject")
set oFile=oFSO.OpenTextFile("Test.txt",1)
text=oFile.ReadAll
document.all.DataArea.value=text
oFile.Close
end sub
'----------------------------------------------------------
FUNCTION SaveFile(FileName, DataArea)
CALL FileStat(FileName, msg)
on error resume next
sFile = wkDir & FileName.value
Set wrFile = fSo1.OpenTextFile(sFile, ForWriting)
wrFile.writeline(DataArea.value)
self.close
END FUNCTION
'----------------------------------------------------------
FUNCTION CloseFile(FileName, DataArea)
Call FileStat(FileName, msg)
on error resume next
cFile = wkDir & FileName.value
Set wrFile = fSo1.OpenTextFile(cFile, ForAppending)
wrFile.Close
DataArea.value = ""
FileName.Value = ""
END FUNCTION
'----------------------------------------------------------
FUNCTION QuitEdit
self.close
END FUNCTION
'----------------------------------------------------------
FUNCTION FileStat(FileName, msg)
eFile = wkDir & FileName
IF (fSo1.FileExists(eFile)) THEN
msg = oFile & " exists."
ELSE
on error resume next
END IF
END FUNCTION
'----------------------------------------------------------
</Script>
<body bgcolor="C0C0C0">
<Table>
<Th> Name </Th>
<TR><td><input type="text" name="FileName"></td></TR>
</Table>
<Table border="2">
<TR><td>
<textarea name="DataArea" rows="18" cols=37></textarea>
</td></TR>
<TR><td>
<input type="BUTTON" value="Save" onclick="SaveFile FileName, DataArea">
<input type="BUTTON" value="Cancel" onclick="QuitEdit">
</td></TR>
</Table>
</body>
</html>
最佳答案
90%的问题都是写的代码引起的。因此，获得好脚本的简单方法是摆脱该代码。 4% 的 VBScript 问题是由没有以“Option Explicit”开头引起的。所以让我们补充一下。 4% 的 VBScript 问题是通过“On Error Resume Next”隐藏错误造成的。永远不要在全局范围内使用它，并且永远不要在它之后最多两行没有检查。
删除 (a) 与编辑文件无关的所有内容(图标、其他不相关的 HTA 属性、调整大小、重复(wkDir、“test.txt”)、看起来像是按小时付费的程序员编写的内容(调用语句、没有返回的函数、使用一次的变量)和 (b) - 目前 - 必须 编写的代码解决“编辑文件”问题，我们得到:
<html>
<head>
<title>Edit File Demo</title>
<hta:application
id="demo"
></hta>
<script type="text/vbscript">
Option Explicit
Sub Window_OnLoad()
End Sub
Sub SaveFile()
End Sub
</script>
</head>
<body>
<form>
<textarea name="DataArea" rows="18" cols=37></textarea>
<input type="BUTTON" value="Save" onclick="SaveFile">
</form>
</body>
</html>
没有所有的脂肪，将脚本放入头部并将小部件放入表单中是很自然的。
现在是所需的代码:我们需要一个文件规范(比名字更好)和一个/唯一的 FileSystemObject(永远不会被命名为 ofs1)；如果文件存在，应该加载到文本区域；应保存文本区域的内容。所以新的 VBScript 部分是:
Option Explicit
Const csFSpec = "E:\trials\SoTrials\answers\8841045\hta\29505115.txt"
Dim goFS : Set goFS = CreateObject("Scripting.FileSystemObject")
Sub Window_OnLoad()
If goFS.FileExists(csFSpec) Then
document.all.DataArea.value = goFS.OpenTextFile(csFSpec).ReadAll()
Else
document.all.DataArea.value = csFSpec & " created"
End If
End Sub
Sub SaveFile()
goFS.CreateTextFile(csFSpec).Write document.all.DataArea.value
End Sub
关于vbscript - 编辑文本并保存，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/29505115/
25
4
0
我添加了编辑按钮 self.navigationItem.rightBarButtonItem = [[[UIBarButtonItem alloc] initWithBarButto
我试图在运行时“干净地”更改 UIBarButtonItem 文本，以便可以切换编辑/完成模式。然而，每次我在运行时更改 title 属性时，动画看起来都很笨拙。我正在寻找模拟联系人应用程序中“编辑/
这个问题不太可能帮助任何 future 的访问者；它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关，这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用，visit
我想更改 INI 文件中的一些值。不幸的是，我在 2 个不同的部分有键，它们共享相同的名称但需要不同的值。我的代码使用 Get-IniContent函数来自 PsIni . 示例 INI 文件: [P
是否有通知或委托(delegate)方法可用于检测表格 View 何时进入编辑状态？ 我想要做的是检测表正在编辑，然后显示一个额外的行，上面写着“添加新项目”或类似的东西。 我尝试在加载 View C
例如，我试图从 svg 读取样式块，我可以获取类型但不能获取字符串。 $svgTemplate = new SimpleXMLElement($_POST['SvgTemplateImport']);
我可以使用 self.navigationItem.leftBarButtonItem = self.editButtonItem; 通过按下导航面板上的编辑按钮让 UITableViewContro
我正在使用markitup!作为 Markdown 编辑器( example )。 目前，我需要按预览按钮(绿色勾号)来显示预览面板。 我希望自动显示预览 - 我怎样才能实现这一点？ 最佳答案 我没有
我的处境非常糟糕。我丢失了源代码，客户需要在应用程序中进行一些更改。想想一个编辑程序集的例子:Test.dll，然后添加代码行，最后重新编译它 所以我的问题是: -可以这样做吗？ -如果可能的话，什么
我使用了一些 JavaScript 来通过按钮更改段落元素的内容。它工作正常，但我还想让按钮控制标题和附图。给我指明正确的方向吗？ 这是我用来更改段落的代码 .... 谢谢! 最佳答案 尝试将 Ja
是否有任何 Emacs lisp 插件可以让我轻松地在 yaml 文件中编辑或输入数据。 例如: --- sample yaml file ---Name : Addr :City :State:Zi
新手Java问题，我确定已经解决了，但是在任何地方都找不到解决方案:( 我想使用这里包含的java程序http://sourceforge.net/projects/ant-tibco/files/
在我的网页中，我使用了 gridview。在这个 GridView 中，它显示了一组用户信息。我刚刚从智能标签菜单中添加了一个按钮。我的要求是当我点击每个用户对应的按钮时，它会重定向到另一个页面并显示
我想在没有任何框架的情况下直接在 JS 中编辑一个 SVG 文件。 基本上我有一个 SVG 主文件，其中应该包含一些子 SVG。 我已经在 Ajax 中检索了这些子项的内容，但我想将它们插入到 SVG
我有我的 ViewModel，我有我的 Controller 可以从 ViewModel 正确显示，但是我不确定如何使 ViewModel 可编辑，以便将编辑后的数据发送回模型。我只想编辑 Order
我不确定我的做法是否正确。 IplImage *dog_1 = cvCreateImage(cvGetSize(oriImg), oriImg->depth, oriImg->nChannels);
我有一个创建二维码的网络服务器。在此过程中，我得到一个 BarcodeQRCode 对象，我可以从中获取图像 (.getImage())。 我不确定如何将这张图片发回给客户。我不想将它保存在文件中，而
已编辑:我的第一个问题解决了，但又出现了另一个问题，只提供了一个用户 ID。这是修改后的代码的屏幕截图。 回到表格，用户将按下编辑按钮，这样他就可以编辑问题并给出适当的操作.. 我的上表代码是这样的:
据我了解，我无法通过重新启动服务器来清除 MySQL 查询缓存。 每次运行 sql 时，我都试图获得与第一个代码块类似的结果 1-这是在重新启动 Apache 和 MySQL 之前(第一次使用这些查询
我正在创建一个页面来搜索项目，然后能够编辑/更新它。当它只返回一个结果时我能够做到这一点，但当它给我多个结果时我只能编辑最后一项。下面是我的代码: ....... $dj =$_POST[djnum]
我是一名优秀的程序员,十分优秀！