以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  IP  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22877)

--  作者:wilson
--  发布时间:2012/8/26 12:13:00
--  IP

如何通过域名获取对应的外网IP,并写入记事本。记事本路径为 F:\\AAA\\ip.txt

求助,获取外网IP与写入记事本的代码。

非常感谢!


--  作者:czy
--  发布时间:2012/8/26 13:27:00
--  
论坛上搜一下
--  作者:wilson
--  发布时间:2012/8/26 13:38:00
--  

谢谢!

我在论坛上搜过,没找到; 好的我再搜搜


--  作者:czy
--  发布时间:2012/8/26 14:59:00
--  

这里不知对你有没有帮助

 

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=20766&replyID=&skin=1

 

 


--  作者:wilson
--  发布时间:2012/8/26 17:46:00
--  

非常感谢CZY版主对我的帮助!

获取 ip地址已搞定,不过清除记本内容 与 写入计事本,搞了很久也没搞定。


--  作者:czy
--  发布时间:2012/8/26 17:56:00
--  

WriteAllText

向文本文件中写入内容。

语法

WriteAllText(file, text, append, Encoding)

file:    目标文本文件。
text:    要写入的内容。
append:   逻辑型,
是追加内容还是覆盖现有
内容。

Encoding: 可选参数,Encoding类型,可选的编码有:

Default
ASCII
BigEndianUnicode
Unicode
UTF32
UTF7
UTF8

Default表示系统编码,对于中文操作系统,通常是GB2312

示例一

向指定的文本文件中追加内容:

FileSys.WriteAllText("C:\\data\\Table.Txt", "I Like Foxtable", True)

实例二

如果有需要,也可以明确指定文件的编码,例如:

Dim s As String = "I Like Foxtable"
FileSys.WriteAllText(
"c:\\data\\table.txt", s, False
, Encoding.Default)


--  作者:wilson
--  发布时间:2012/8/26 22:52:00
--  

问题已解决,

CZY版主非常感谢您对我的帮助!