如何在CAD二次开发中创建文本文件并写入一些数据
<p>如题</p><p></p> Open ThisDrawing.Path & "\PassWord.txt" For Output As #1 '打开文本文件<br/>Print #1, "图纸名:" & ThisDrawing.FullName & " 密码:" & pass.Text '写入数据<br/>Close #1 '关闭文本文件 <p>楼上的可以,还可以用textstream</p><p>fileName=ThisDrawing.Path & "\test.txt"<br/>Set fs = CreateObject("Scripting.FileSystemObject")<br/>Set f = fs.CreateTextFile(fileName, True)</p><p>f.WriteLine "test"</p><p></p> 本帖最后由 作者 于 2008-5-24 13:17:05 编辑 <br /><br /> <p>我的代码更简单:</p><p>Open "c:\bott.txt" For Output As #1<br/>Print #1, "这里写入文件内容"<br/>Close #1</p>
页:
[1]