社区
VB基础类
帖子详情
简单问题,在线等,急
angleguy
2003-08-25 03:23:37
在VB中想对顺序文件进行写的操作,但write 写进去的全被当做字符型的处理,都加了引号,怎么写才没引号啊,有什么简单的办法实现吗?请教了
...全文
35
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
青少年c++等级考试一级
青少年等级考试,英文名称(Youth Level Test)以下简称等级考试。等级考试是中国电子学会服务于国家教育改革和全民科学素质提升的需要,以提升我国青少年整体信息素养和创新能力为目标,于2011年起面向全国青少年开展的信息技术能力素质 的评价项目。本课程以青少年等级考试大纲为依据,讲解考试的知识点并结合考试试题,分析解题思路,提升学员的编程能力以及逻辑思维能力。
keil的Option optimization 等级优化
问题
KEIL出现的等级优化
问题
优化等级: 0级优化: 1、 常数折叠:只要有可能,编译器就执行将表达式化为常数数字的计算,其中包括运行地址的计算。 2、
简单
访问优化:对8051系统的内部数据和位地址进行访问优化。 3、 跳转优化:编译器总是将跳转延至最终目标上,因此跳转到跳转之间的命令被删除。 1级优化: 1、 死码消除:无用的代码段被消除。 2、 跳转否决:根据一个测试回溯,条件跳转被仔细检查,以决定是否能够简化或删除。 2级优化:
Python 输入一个数字判断成绩分数等级
成绩分数等级为:100-90 A90-80 B80-70 C70-60 D60以下 F实现判断分数等级是一个很
简单
的数学
问题
,只要你输入的这个数字介于两个数字之间既可以判断出这个分数的等级。代码如下:a=eval(input())if a>=90: print("A")elif 90>a>=80: print("B")e...
网络安全等级保护制度介绍
注:此文章仅用于交流学习目的,资料来源于凯力安全本人做的一些零散的笔记,如有错误也欢迎指出。 蓝方:保护网络安全。红方:模拟恶意攻击者,发起“攻击”是为了找出
问题
两方侧重点不同,但都是通过渗透测试来找出网络薄弱处 等级保护的
简单
介绍(最
简单
的:防火墙) 包含有信息系统,安全产品,安全事件。分等级来保护,监控系统网络安全 信息资产重要程度越高,保护的等级也就越高 等保发展历程(等保1.0) 1994—2003:政府环境营造 2004—2006:工作开展准备 200...
【软件质量】-01-缺陷严重等级定义
言于头:缺陷严重等级是指缺陷引起的故障对产品的影响程度;缺陷严重等级是根据其表现出的现象及影响面进行评估而定义的,等级可分为致命、严重、中等、轻微。 缺陷严重等级 定义等级 影响示例 致命 系统瘫痪或者资源严重不足,系统核心重要功能无法正常使用。 1、由于程序引起的系统死机、非法退出、系统无法正常运作等;2、因错误操作导致客户端/服务端崩溃、程序僵死等;3、数据库发生死锁或与数据库连接等错误系统无法正常运行; 4、严重的计算错误、内部设计逻辑、核心功能设计死循环等
问题
; 严重 系统的.
VB基础类
7,764
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章