简单问题,在线等,急

angleguy 2003-08-25 03:23:37
在VB中想对顺序文件进行写的操作,但write 写进去的全被当做字符型的处理,都加了引号,怎么写才没引号啊,有什么简单的办法实现吗?请教了
...全文
31 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
angleguy 2003-08-25
  • 打赏
  • 举报
回复
我汗,还是不明白,
目标是这样子:
REGEDIT4

[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]
"IPAddress"="202.202.253.45"
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]
"ComputerName"="luod"
[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]
"Workgroup"="cquc"

却成了这样子:
"REGEDIT4"

"[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]"
"ipaddress"," =","202.202.241. 20"
"[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]"
"computername"," =","zx4101"
"[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]"
"workgroup"," =","zx41"
代码是这样的:
Private Sub Command1_Click()
Path$ = "c:\my documents"
Path$ = Path$ + "\" + Combo1.Text
MkDir Path$
For i = 1 To Val(Txtnum.Text)
If i < 10 Then
workgroup$ = Combo1.Text
computername$ = Trim(Combo1.Text) + "0" + Trim(i)
Else
workgroup$ = Combo1.Text
computername$ = Trim(Combo1.Text) + Trim(i)
End If
ip = Val(Txtdef.Text) + i - 1
ipaddress$ = Trim(Txtip) + Str(ip)
filenum = i
FileName$ = Path$ + "\" + computername$ + ".reg"
Open FileName For Output As #filenum
Write #filenum, "REGEDIT4"
Write #filenum,
Write #filenum, "[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]"
Write #filenum, "ipaddress", " =", ipaddress$
Write #filenum, "[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName]"
Write #filenum, "computername", " =", computername$
Write #filenum, "[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\VxD\VNETSUP]"
Write #filenum, "workgroup", " =", workgroup$
Close #filenum
Next i
End Sub
才学的VB,命名规则不好,可读不好,再汗,帮忙,那2进制的文件写格式点都不知道,换行,空行怎么办?能把代码帖出来吗?谢谢!!!!!
飘零风 2003-08-25
  • 打赏
  • 举报
回复
s="[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]
""IPAddress""=""202.202.253.45"""
angleguy 2003-08-25
  • 打赏
  • 举报
回复
谢谢,我对VB不清楚,要是要写这进文件语句是怎么的啊?谢谢

[HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0000]
"IPAddress"="202.202.253.45"
rainstormmaster 2003-08-25
  • 打赏
  • 举报
回复
dim s as string
s="1234567"
open "c:\123.txt" for binary as #1
put #1,,s
close #1

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧