jiavia 发表于 2008-5-19 14:50:00

如何在CAD二次开发中创建文本文件并写入一些数据

<p>如题</p><p></p>

老鼠骑猪 发表于 2008-5-19 16:10:00

Open ThisDrawing.Path &amp; "\PassWord.txt" For Output As #1&nbsp; '打开文本文件<br/>Print #1, "图纸名:" &amp; ThisDrawing.FullName &amp; "&nbsp; 密码:" &amp; pass.Text '写入数据<br/>Close #1 '关闭文本文件

icy85 发表于 2008-5-20 19:20:00

<p>楼上的可以,还可以用textstream</p><p>fileName=ThisDrawing.Path &amp; "\test.txt"<br/>Set fs = CreateObject("Scripting.FileSystemObject")<br/>Set&nbsp;f = fs.CreateTextFile(fileName, True)</p><p>f.WriteLine "test"</p><p></p>

nhy12345678 发表于 2008-5-24 13:09:00

本帖最后由 作者 于 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]
查看完整版本: 如何在CAD二次开发中创建文本文件并写入一些数据