Fatal编程技术网
  • hta/
  • 使用HTA写入文本文件

使用HTA写入文本文件

使用HTA写入文本文件,hta,Hta,我试图创建一个HTA文件，允许用户向文本文件添加数据。我在这方面相当缺乏经验 我需要完成几件事： 写入输入到文本文件的数据位（我的代码就是这样做的） 让用户从可用文件的下拉列表中选择要写入的文件 如果数据可以通过单击或按Enter键提交就好了 清除提交时的字段 记录每个条目。不覆盖文本文件中的数据（我的代码覆盖） 例如： 123 456 789 如果我的代码看起来不稳定，我道歉 任何帮助或建议都将不胜感激 多谢各位 <html><head> <SCRIPT LANG

我试图创建一个HTA文件，允许用户向文本文件添加数据。我在这方面相当缺乏经验

我需要完成几件事：

  • 写入输入到文本文件的数据位（我的代码就是这样做的）
  • 让用户从可用文件的下拉列表中选择要写入的文件
  • 如果数据可以通过单击或按Enter键提交就好了
  • 清除提交时的字段
  • 记录每个条目。不覆盖文本文件中的数据（我的代码覆盖）
    • 例如：

    123
    456
    789

    如果我的代码看起来不稳定，我道歉

    任何帮助或建议都将不胜感激

    多谢各位

    <html><head>
<SCRIPT LANGUAGE="VBScript">

    Sub Window_onLoad
        window.resizeTo 480,150
    End Sub 

</SCRIPT>
<script language="javascript">
function Writedata()
{
var fso = new ActiveXObject("Scripting.FileSystemObject");
var write_id;
write_id = document.getElementById('write_id').value ;
alert('The data has been written to \n' + write_id);
var s = fso.CreateTextFile(write_id, true);

s.WriteLine(document.getElementById('name_id').value);

s.Close();
}
</script>
</head>
<body>

<table>
<tr>
<td>Input: </td>
<td><input type="text" name="name" value="" id="name_id"></td>
<td><select><option name="write" value="C:\temp\test1.txt" id="write_id">Option1</option>    </select></td>
<td><input type="button" onclick="Writedata()" value="submit"></td>
</tr>
</table>

</body>
</html>

    
子窗口加载
window.resizeTo 480150
端接头
函数Writedata（）
{
var fso=新的ActiveXObject（“Scripting.FileSystemObject”）；
var-write_-id；
write_id=document.getElementById（'write_id'）。值；
警报（'数据已写入\n'+写入id）；
var s=fso.CreateTextFile（write_id，true）；
s、 WriteLine（document.getElementById（'name_id'）.value）；
s、 Close（）；
}
输入：
选择1
    看起来您已经编辑了代码。虽然它可以更灵活：

    var s=fso.CreateTextFile（write\u id，true）也许更确切地说：
    

    var s = fso.OpenTextFile(write_id, 2, true);

    
其中
    2
    表示字节码：

    1
    =读取，
    2
    =写入，
    8
    =追加
    

    write\u Id
    应该包含文件的完整路径，如
    D:/Foldername/filename.txt
    

    
这不是您应该如何使用
    select
    ，而是为
    select
    本身指定
    id
    ，如下所示：
    

    <select id="write_id">
    <option value="C:\temp\test1.txt">Option1</option>
</select>

    

    你可以检查一下，有读写文件的基本功能，还有一些有用的链接。这很有帮助var s=fso.OpenTextFile（write_id，8，true）；'它现在正在追加而不是覆盖。您对选择要写入的文件的下拉菜单有何想法？我不确定您需要什么，请从文件中填充
    select
    元素？提交HTA数据，在哪里？。元素具有重置其所有输入的方法。请检查是否点击了
    ENTER
    。顺便说一句，您可以摆脱VBScript，只需将
    window.resizeTo（480150）
    添加到JS section.Teemu，您真是太棒了。谢谢你的帮助。我现在唯一遇到麻烦的是由于某种原因重新设置了表单。我不确定我错过了什么。

    var write_id = document.getElementById('write_id').value;