先在外面定义一个全局变量dim isWindows as int16=0
创新互联是一家专注于网站设计制作、成都做网站与策划设计,宾阳网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:宾阳等地区。宾阳做网站价格咨询:18980820575
以下是你按下窗口模式的按钮代码:
if isWindows=0 then
isWindows=1
else
isWindows=0
end if
Dim sw As StreamWriter = New StreamWriter("你的txt文件路径", True)
sw.WriteLine(isWindows)
sw.Close()
软糖来告诉你吧。
VB点虐 中读写文件主要使用System.IO命名空间。
① 使用 File.ReadAllText 读取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 读取,注意编码格式和写入的编码保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
③ 使用 File.WriteAllText 写入,会覆盖同名的文件。
Dim 要写的内容 As String = ""
File.WriteAllText(文件路径, 要写的内容, System.Text.Encoding.UTF8)
④ 使用 StreamWriter 写入。
Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)
sw.WriteLine(TextTB.Text)
sw.Close()
⑤ 使用 StreamWriter 追加写入。
将上面代码的第二个参数False改为True。
◆ 满意请采纳,谢谢 ◆
.or 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 的。
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款