先在外面定义一个全局变量dim isWindows as int16=0
创新互联建站是专业的勐海网站建设公司,勐海接单;提供做网站、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行勐海网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
以下是你按下窗口模式的按钮代码:
if isWindows=0 then
isWindows=1
else
isWindows=0
end if
Dim sw As StreamWriter = New StreamWriter("你的txt文件路径", True)
sw.WriteLine(isWindows)
sw.Close()
这个程序是你写的吗,如果不是,那你没办法做,如果是,你就在窗口模式的那个控件的changed事件中,写入文件即可。
For Example:
1.txt文件内容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行内容,将#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 输入方式打开原文件 1.txt;
2 输出方式打开新文件 2.txt;
3 逐行 Line Input 从 1.txt 中读数据,Print 写入 2.txt,直至要修改的行;
4 丢弃从 1.txt中读出的要修改的行,将新内容行写入 2.txt;
5 仿照第 3 步,将其余的行从 1.txt 复制到 2.txt。
6 关闭两个文件
7 删除1.txt,将 2.txt 的文件名改为原来 1.txt 的。