社区
VB基础类
帖子详情
简单问题,在线等,急
angleguy
2003-08-25 03:23:37
在VB中想对顺序文件进行写的操作,但write 写进去的全被当做字符型的处理,都加了引号,怎么写才没引号啊,有什么简单的办法实现吗?请教了
...全文
31
4
打赏
收藏
简单问题,在线等,急
在VB中想对顺序文件进行写的操作,但write 写进去的全被当做字符型的处理,都加了引号,怎么写才没引号啊,有什么简单的办法实现吗?请教了
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
keil的Option optimization 等级优化
问题
KEIL出现的等级优化
问题
优化等级: 0级优化: 1、 常数折叠:只要有可能,编译器就执行将表达式化为常数数字的计算,其中包括运行地址的计算。 2、
简单
访问优化:对8051系统的内部数据和位地址进行访问优化。 3...
Python 输入一个数字判断成绩分数等级
成绩分数等级为:100-90 A90-80 B80-70 C70-60 D60以下 F实现判断分数等级是一个很
简单
的数学
问题
,只要你输入的这个数字介于两个数字之间既可以判断出这个分数的等级。代码如下:a=eval(input())if a>=...
网络安全等级保护制度介绍
等级保护的
简单
介绍(最
简单
的:防火墙) 包含有信息系统,安全产品,安全事件。分等级来保护,监控系统网络安全 信息资产重要程度越高,保护的等级也就越高 等保发展历程(等保1.0) 1994—2003:政府环境营造...
【软件质量】-01-缺陷严重等级定义
言于头:缺陷严重等级是指缺陷引起的故障对产品的影响程度;缺陷严重等级是根据其表现出的现象及影响面进行评估而定义的,等级可分为... 4、严重的计算错误、内部设计逻辑、核心功能设计死循环等
问题
; 严重 系统的.
到底如何看出一篇论文的期刊或会议等级?如何评价论文影响力?(你不会看到比此篇讲得更透彻的)
该
问题
最
简单
,直接看论文的封面就可解决95%的该
问题
。如下图: 你可以在论文封面的上面,下面,左边,右边看到这样的东西。上图便是一篇会议论文,会议名为加蓝区域。如下图便是一篇期刊上论文
VB基础类
7,759
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章