豆丁微信公众号
君，已阅读到文档的结尾了呢~~
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
VB编程实现文件属性修改
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='http://www.docin.com/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口vb中如何直接更改文本文件中指定一行的内容？求高人帮忙修改一下代码，谢谢_百度知道
vb中如何直接更改文本文件中指定一行的内容？求高人帮忙修改一下代码，谢谢
txt文档内容如下:finish/clear/filname,menjiashiyan/title,menjiashiyan
y=-500f=-50000/prep7et,1,shell63r,1,6mp,ex,1,2.1e5......要修改第六行的内容为
——————————————————————————————
一种情况：...
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
定义一个变量记录读到了第几行。Dim&txt&As&String,&i&As&LongOpen&&C:\a1.txt&&For&Input&As&#1Open&&C:\a2.txt&&For&Output&As&#2Do&While&Not&EOF(1)&&Line&Input&#1,&txt&&i&=&i&+&1&&If&i&=&6&Then&txt&=&&f=4888&&&Print&#2,&txtLoopClose
采纳率：74%
来自团队：
为您推荐：
其他类似问题
文本文件的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。&>&VB修改TXT指定行的内容
VB修改TXT指定行的内容
上传大小：7KB
Visual Basic关于txt文本文件指定行修改的一段代码。对于处理txt文本文档进行简化，可直接修改指定行。
综合评分：4
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有9条
比想要的要麻烦，谢谢分享
可以作为参考用，需要修改后才可以达到我想要的要求。
不错,做为新手,有帮助^
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
VB修改TXT指定行的内容
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*投诉人姓名：
*投诉人联系方式：
*版权证明：
*详细原因：
VB修改TXT指定行的内容vb读取编辑txt文件并保存_百度知道
vb读取编辑txt文件并保存
3个文本，分别点击读取，在text1输入内容，点击保存 还是保存相应的文件名嫁入点击读取1.txt 内容显示在text1中，里面修改，点击保存，还是保存为1.txt的文件。
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Public&x&'定义全局变量&Private&Sub&Command1_Click()'保存按钮Open&&&&&&x&&&&.txt&&For&Output&As&#1Print&#1,&Text1.TextCloseEnd&Sub&Private&Sub&Command2_Click()'读取1.txt&，并在Text1.Text显示x&=&1Text1.Text&=&&&Open&&1.txt&&For&Input&As&#1Do&Until&EOF(1)Line&Input&#1,&aText1.Text&=&Text1.Text&&&aLoopCloseEnd&Sub&Private&Sub&Command3_Click()&'读取2.txt，并在Text1.Text显示x&=&2Text1.Text&=&&&Open&&2.txt&&For&Input&As&#1Do&Until&EOF(1)Line&Input&#1,&aText1.Text&=&Text1.Text&&&aLoopCloseEnd&Sub
给你一个建简易的记事本吧，稍微修改一下就行了
为您推荐：
其他类似问题
txt文件的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。VB 怎么读取和修改TXT文本文件的内容？_百度知道
VB 怎么读取和修改TXT文本文件的内容？
VB 怎么读取和修改TXT文本文件的内容？
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
1.读取某个指定字节Private Sub Command1_Click()Dim a() As Byte, b As Byte, i As Integer, j, S As String'S = App.Path & &\1.txt& '请修改为实际文件名S = &C:\Documents and Settings\Administrator\桌面\1.txt&ReDim a(FileLen(S))Open S For Binary As #1 '打开文件'下面演示指针的移动Seek #1, 10 '指针移到第10个字节Get #1, , bMsgBox &第10个字节:& & bSeek #1, 23 '指针移到第23个字节Get #1, , bMsgBox &第23个字节:& & b'下面演示始一个一个地读出文件Seek #1, 1 '指针返回到文件首For i = 1 To FileLen(S)Get #1, , b '读取1个字节a(i - 1) = b '存入数组NextClose #1 '关闭文件S = StrConv(a, vbUnicode)MsgBox SEnd Sub2读取某行Function
lines(txtpath
文件的从startline
String(FileLen(txtpath),
Split(filetxt,
ubound(x)+1
Function.网上的代码,这类型的很多,不外乎就是设定读取路径再Open S For Binary As #1找开(注意OPEN的参数有几种类型)再GET
采纳率：35%
读取：Open &我的文件.txt& For Input As #1
'用Input #1,变量表 来输入变量的值
'也可以用Line Input #1,temp输入一行到temp中
'文件不存在或者拒绝访问的时候会产生错误Close #1写入（覆盖性）：Open &我的文件.txt& For Output As #1
'用Print #1,参量表 来输出
'文件不存在的时候自动创建，拒绝访问的时候会产生错误Close #1追加：Open &我的文件.txt& For Append As #1
'用Print #1,参量表 来输出到文件末尾
'文件不存在的时候自动创建，拒绝访问的时候会产生错误Close #1二进制改写：Open &我的文件.txt& For Binary As #1
'用Get #1, k, temp 读取第k字节的数值到temp，注意：1&=k&=文件长度
'用Put #1, k, temp 保存第k字节的数值为temp，注意：1&=k&=文件长度
'另外，这样定义temp： Dim temp As Byte
'有的时候会产生错误（例如:拒绝访问）Close #1
楼上说的已经很详细了
Private Type aatypea As String * 2b As String * 2c As String * 2d As String * 2End TypeDim aa As aatypeDim bb As IntegerPrivate Sub Command1_Click()On Error Resume Next ' Resume重新开始; (经打断后)再继续bb = InputBox(&输入记录号&, &插入数据&)If bb = 0 Then Exit SubOpen &d:\aa.txt& For Random As #1 Len = Len(aa)tt = LOF(1) / Len(aa)Text5 = ttFor i = tt To bb Step -1Get #1, i, aaPut #1, i + 1, aaNextaa.a = Text1.Textaa.b = Text2.Textaa.c = Text3.Textaa.d = Text4.TextPut #1, bb, aaClose #1End SubPrivate Sub Command2_Click()On Error Resume Next ' Resume重新开始; (经打断后)再继续bb = InputBox(&输入记录号&, &删除数据&)If bb = 0 Then Exit SubOpen &d:\aa.txt& For Random As #1 Len = Len(aa)tt = LOF(1) / Len(aa)For i = bb To ttGet #1, i + 1, aaPut #1, i, aaNextClose #1End SubPrivate Sub Command3_Click()On Error Resume Next ' Resume重新开始; (经打断后)再继续bb = InputBox(&输入记录号&, &读取数据&)If bb = 0 Then Exit SubOpen &d:\aa.txt& For Random As #1 Len = Len(aa)tt = LOF(1) / Len(aa)Get #1, bb, aa Text1 = aa.a Text2 = aa.b Text3 = aa.c Text4 = aa.dClose #1End SubPrivate Sub Command4_Click()On Error Resume Next ' Resume重新开始; (经打断后)再继续bb = InputBox(&输入记录号&, &修改数据&)Open &d:\aa.txt& For Random As #1 Len = Len(aa)aa.a = Text1.Textaa.b = Text2.Textaa.c = Text3.Textaa.d = Text4.TextPut #1, lastrecord + bb, aaClose #1End SubPrivate Sub Command5_Click()Open &d:\aa.txt& For Random As #1 Len = Len(aa)tt = LOF(1) / Len(aa)aa.a = Text1.Textaa.b = Text2.Textaa.c = Text3.Textaa.d = Text4.TextPut #1, tt + 1, aaClose #1End SubPrivate Sub Form_Load()Text1 = &&Text2 = &&Text3 = &&Text4 = &&End Sub我也是仿别人的做的.
其他1条回答
为您推荐：
其他类似问题
文本文件的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。