VB怎么改写TXT中某段字符
已有TXT中内容11号有2块钱12号有3块钱13号有5块钱后来发现12号错了。怎么改写12号的哪行。每行之间都是Chr(13)回车。...
已有TXT中内容
11号有2块钱
12号有3块钱
13号有5块钱
后来发现12号错了。怎么改写12号的哪行。每行之间都是Chr(13) 回车。 展开
11号有2块钱
12号有3块钱
13号有5块钱
后来发现12号错了。怎么改写12号的哪行。每行之间都是Chr(13) 回车。 展开
4个回答
展开全部
“情动而辞发”——改写《赠汪伦》教学设计
作者：马建明 杨海波 发表时间：2004-8-2 阅读次数：2541
“情动而辞发”
——改写《赠汪伦》教学设计
杨海波/设计 马建明/点评
设计内容：
李白的《赠汪伦》是一首脍炙人口的赠别诗。前两句正面叙事，后两句即物起兴，变无形的情谊为生动的形象，空灵而有余味，自然而又情真。《语文课程标准》指出：习作教学要“激发学生展开想象和幻想，鼓励写想象中的事物。” 这首诗为学生想象的自由驰骋提供了依据。我们不妨指导学生把这首古诗改写成现代文，学生根据古诗的内容动用自己的生活体验，想象李白与汪伦依依惜别的场景，透过字里行间品味诗人的情感，学生写出的习作定会别有情趣。本次课外习作设计适用于小学5、6年级的学生。
导写过程：
一、进入诗境，品味诵读
1、同学们，你们一定积累了很多的古诗文，能吟诵一首你最欣赏的古诗吗？能谈谈你最崇拜的诗人吗？
2、有崇拜李白的吗？能吟诵几首他的诗吗？据说李白有一首诗是因为他爱饮酒爱游玩而被人“骗”了一次才写出来的，知道是哪首诗吗？
3、欣赏《赠汪伦》的配乐动画，教师激情旁白关于这首诗的传说。
4、欣赏了这感人的场面，聆听了这美丽的传说，你想说点什么吗？能带着这种感受诵读这首诗吗？引导学生诵读诗文，感受诗情。
二、设身处地，想象体验
1、“李白乘舟将欲行”
（1）播放《赠汪伦》配乐动画，并让画面定格。教师引导：一千二百多年前的一个春天，安徽泾县，桃花潭边，桃红柳绿，桃花渡口，桃花灼灼，诗人李白就要登上小船离开这里了。你就是李白，此时此刻，你看到了什么？想到了什么？
（2）学生可能会说到的景物有小草、桃花、潭水、鱼儿、青山等。教师通过比较学生的语言，指导学生把话说得具体些、生动些。教师相机点拨提升：看到这些，诗人触景生情，那拂堤杨柳仿佛在喃喃自语、依依不舍。这些景物在诗人的眼里带着一种怎样的情感啊！能说说吗？
（3）播放“饮酒赏月”的动画，教师深情诉说：看到这些，李白心潮澎湃，思绪万千，眼前又浮现出那一幕幕与汪伦相处的情景：
饮酒——引导学生想象两人的语言、动作、神态。教师相机介绍下面情况，以供学生展开想象：在李白的眼中，汪伦是个机智风趣、好学上进的年轻人，志趣相投、相见恨晚，两人可称忘年交；在汪伦的眼中，李白虽然诗名满天下，却从无狂妄自大之态，是一位风度翩翩、学识渊博的学者，又是一位和蔼可亲的长者。
赏月——李白对月亮极偏爱，写了许多有关月的美妙诗句，如《静夜思》、《古朗月行》、《峨眉山月歌》等。可引导学生将它们应用到这一情境中，汪伦吟诵这些诗句并表达自己的赞叹之情。
游玩、下棋、垂钓、吟诗、登山……
2、“忽闻岸上踏歌声”
（1）这时，船夫催诗人李白上船，李白会怎么说、怎么做？
（2）汪伦不见了李白，心情怎样？会怎么做？此时此刻，你就是汪伦，会唱些什么呢？能写几句歌词吗？请你用脚踏着节拍，唱一唱，唱出汪伦那盛情的挽留和美好的祝福吧！
（3）听着这动人的歌声，李白激动万分，不能自已。他跳下船头，快步迎上前去，紧紧地握住汪伦的手……他们会怎么说？怎么做？
（4）自古以来，许多文人墨客留下了许多感人肺腑的送别诗句。（出示送别诗句）在这分别的时刻，李白和汪伦也会有这样的心情吧？如果你是李白，你会怎么说？如果你是汪伦，会怎么说？
“海内存知己，天涯若比邻。”——王勃
“劝君更尽一杯酒，西出阳关无故人。”——王维
“请君试问东流水，别意与之谁短长？”——李白
“莫愁前路无知己，天下谁人不识君？”——高适
“杨柳东门树，青青夹御河。近来攀折苦，应为别离多。”——王之涣
3、“桃花潭水深千尺，不及汪伦送我情”
相见时难别亦难，送君千里，终有一别，李白上了船，船渐渐地远去了，泪水迷糊了眼睛，情不自禁地吟出了一首诗——师生齐声吟诵《赠汪伦》。
三、激发表达，改写古诗
1、同学们，今天，我们一起来到桃花潭边，一起经历那情深意切的送别场景，难道我们还能无动于衷吗？那就让我们拿起笔，把这感人的一幕写下来吧！
2、今天，我们就来改写《赠汪伦》这首诗。你打算怎么写？教师相机指导学生以哪个角度来写，采用什么样的表达方式等。
3、你打算给自己的习作拟一个什么样题目？教师相机引导学生进行点评。
4、用我手写我口，用我手写我心，把我们刚才所说的、所体验到的、所感受到的一切写下来，让这深厚的友情在我们的笔尖流淌、倾泄。有信心吗？
5、学生改写古诗，教师进行个别指导。
四、展示作品，交流评析
1、谁愿意把自己写的作文读给大家听？教师相机点评。
2、欣赏了这个同学的作文，可以说说你最欣赏或最感动的地方，也可以说说你个人的看法或建议。
3、教师总结：同学们，今天我们跨越时空的界限，与古人对话，与诗人畅谈，获得的是语言的滋养、情感的熏陶、友情的珍爱。能用一句话来谈谈你这节课感受吗？
设计点评：
我认为学生改写古诗就是一个“言意转换”的过程，我们试以本次习作设计为例加以阐述。
一、由“言”到“意”的转换
作为古诗的“言”如何转化为学生心中的“意”？我认为，教师主要引导学生穿透“两层”，即语表层与内蕴层。从操作层面来看，一是“对话”，让学生动用自己的生活体验和知识储备，与诗人进行“对话”，用想象、联想来充实古诗的“空白”，使古诗内蕴的“意”变得充实与完整。二是“体悟”，学生在与诗人对话的基础上，引导学生以自己的各种感官去“触摸”、“品味”古诗，由于学生主体的深层介入和情感的投入，从“语表层”进入“内蕴层”，从而进入古诗的“意境”。在共识的基础上共鸣，在共鸣的基础是一起心跳。这样才将古诗赋予生动的灵性，而这就是学生心中的“意”。在本课的教学设计中，教师首先引领学生“披文以入情”，通过欣赏、品味与诵读，让学生与诗人“对话”，从而明诗意、悟诗情。接着教师引领学生“设身处地、想象体验”，通过创设情境，让学生“诵诗读书，与古人居；读书诵诗，与古人谋”（孔子语），设身处地地与诗人对话、交流，通过想象体验，让学生进入“使我之心即入乎唐人之心，而又使唐人心，即为我之心”的境地，达到王国维的“以我观物，物皆著入我之色彩”的境界。学生与诗人产生情感上的共鸣，从而引发表情达意的心理冲动。具体地说，就是在文本解读活动中使学生与作者的心灵在对话情景中达到沟通与默契，搅动积淀在学生心底的生活积累，触动他们敏感多情的心弦，使他们产生写作上的冲动，从而让语言的激流宣泄出来。
二、由“意”到“言”的转换
那么，如何让学生把内化于心中的“意”转化为“言”呢？我认为，这里将经历着两个层面的过程：一是将内化于心中的“意”转化为学生的“口头语言”。学生在口头表达中，由于教师创设了一些情境，有了感兴趣的话题，还可以借助体态语，因此，学生表达起来比较容易。二是将“口头语言”转化为“书面语言”，也就是学生要以有形的文字把心中形成的“意”准确而又精细地表达出来。在本课的教学设计中，教师把学生带进“直抒胸臆，欲罢不能”的地带，“情动而辞发”。叶圣陶说：“作文的自然顺序应该是我认识事物，心中有感，感情的波澜冲击着我，我有说话的愿望，便想倾吐，于是文章就诞生了。”此时，学生心中的“意”已经到了“呼之欲出”的境地，达到叶老所说的那样：“真是个最容易的萌生的欲望，差不多同想吃想喝的欲望一样。”在这个阶段，我们作为教师要不断地启发诱导，让学生把心中的“意”说出来，“用我口说我心”，指导学生说得清楚、有序，说得具体、生动。最后，让学生“用我手写我口”，把口头语言转换为书面语言，写完后再朗读、修改，直到较为完满地表达心中之“意”为止。
总的来说，品读古诗是据“言”知“意”的转换，学生在穿透语表层进入内蕴层，不断地识“言”得“意”，通过想象、体验、感悟成为学生情感与语言的“积累”。改写古诗则是以“言”表“意”，由于学生全身心地去感悟、体验，成为一种最为深切的感受，有了一定的知、情、意的积淀，于是才能“言为心声”。我想学生改写古诗的心理历程不过如此，关键是我们教师如何促使学生去完成这个转换过程。作为教师，并不是通过讲解、分析，更不是架空、附加去强化，而只能在学生转换过程中适时、适量地加以点拨和诱导，广开生活之源，深掘精神隧道，使学生有感而发，集腋成裘，涵养精神，厚积薄发。在写作中融入自我的感受与体验，这样写出来的作文才能烙上学生情感个性的印记，涂上独特心灵的色彩。
46回答者： R权
作者：马建明 杨海波 发表时间：2004-8-2 阅读次数：2541
“情动而辞发”
——改写《赠汪伦》教学设计
杨海波/设计 马建明/点评
设计内容：
李白的《赠汪伦》是一首脍炙人口的赠别诗。前两句正面叙事，后两句即物起兴，变无形的情谊为生动的形象，空灵而有余味，自然而又情真。《语文课程标准》指出：习作教学要“激发学生展开想象和幻想，鼓励写想象中的事物。” 这首诗为学生想象的自由驰骋提供了依据。我们不妨指导学生把这首古诗改写成现代文，学生根据古诗的内容动用自己的生活体验，想象李白与汪伦依依惜别的场景，透过字里行间品味诗人的情感，学生写出的习作定会别有情趣。本次课外习作设计适用于小学5、6年级的学生。
导写过程：
一、进入诗境，品味诵读
1、同学们，你们一定积累了很多的古诗文，能吟诵一首你最欣赏的古诗吗？能谈谈你最崇拜的诗人吗？
2、有崇拜李白的吗？能吟诵几首他的诗吗？据说李白有一首诗是因为他爱饮酒爱游玩而被人“骗”了一次才写出来的，知道是哪首诗吗？
3、欣赏《赠汪伦》的配乐动画，教师激情旁白关于这首诗的传说。
4、欣赏了这感人的场面，聆听了这美丽的传说，你想说点什么吗？能带着这种感受诵读这首诗吗？引导学生诵读诗文，感受诗情。
二、设身处地，想象体验
1、“李白乘舟将欲行”
（1）播放《赠汪伦》配乐动画，并让画面定格。教师引导：一千二百多年前的一个春天，安徽泾县，桃花潭边，桃红柳绿，桃花渡口，桃花灼灼，诗人李白就要登上小船离开这里了。你就是李白，此时此刻，你看到了什么？想到了什么？
（2）学生可能会说到的景物有小草、桃花、潭水、鱼儿、青山等。教师通过比较学生的语言，指导学生把话说得具体些、生动些。教师相机点拨提升：看到这些，诗人触景生情，那拂堤杨柳仿佛在喃喃自语、依依不舍。这些景物在诗人的眼里带着一种怎样的情感啊！能说说吗？
（3）播放“饮酒赏月”的动画，教师深情诉说：看到这些，李白心潮澎湃，思绪万千，眼前又浮现出那一幕幕与汪伦相处的情景：
饮酒——引导学生想象两人的语言、动作、神态。教师相机介绍下面情况，以供学生展开想象：在李白的眼中，汪伦是个机智风趣、好学上进的年轻人，志趣相投、相见恨晚，两人可称忘年交；在汪伦的眼中，李白虽然诗名满天下，却从无狂妄自大之态，是一位风度翩翩、学识渊博的学者，又是一位和蔼可亲的长者。
赏月——李白对月亮极偏爱，写了许多有关月的美妙诗句，如《静夜思》、《古朗月行》、《峨眉山月歌》等。可引导学生将它们应用到这一情境中，汪伦吟诵这些诗句并表达自己的赞叹之情。
游玩、下棋、垂钓、吟诗、登山……
2、“忽闻岸上踏歌声”
（1）这时，船夫催诗人李白上船，李白会怎么说、怎么做？
（2）汪伦不见了李白，心情怎样？会怎么做？此时此刻，你就是汪伦，会唱些什么呢？能写几句歌词吗？请你用脚踏着节拍，唱一唱，唱出汪伦那盛情的挽留和美好的祝福吧！
（3）听着这动人的歌声，李白激动万分，不能自已。他跳下船头，快步迎上前去，紧紧地握住汪伦的手……他们会怎么说？怎么做？
（4）自古以来，许多文人墨客留下了许多感人肺腑的送别诗句。（出示送别诗句）在这分别的时刻，李白和汪伦也会有这样的心情吧？如果你是李白，你会怎么说？如果你是汪伦，会怎么说？
“海内存知己，天涯若比邻。”——王勃
“劝君更尽一杯酒，西出阳关无故人。”——王维
“请君试问东流水，别意与之谁短长？”——李白
“莫愁前路无知己，天下谁人不识君？”——高适
“杨柳东门树，青青夹御河。近来攀折苦，应为别离多。”——王之涣
3、“桃花潭水深千尺，不及汪伦送我情”
相见时难别亦难，送君千里，终有一别，李白上了船，船渐渐地远去了，泪水迷糊了眼睛，情不自禁地吟出了一首诗——师生齐声吟诵《赠汪伦》。
三、激发表达，改写古诗
1、同学们，今天，我们一起来到桃花潭边，一起经历那情深意切的送别场景，难道我们还能无动于衷吗？那就让我们拿起笔，把这感人的一幕写下来吧！
2、今天，我们就来改写《赠汪伦》这首诗。你打算怎么写？教师相机指导学生以哪个角度来写，采用什么样的表达方式等。
3、你打算给自己的习作拟一个什么样题目？教师相机引导学生进行点评。
4、用我手写我口，用我手写我心，把我们刚才所说的、所体验到的、所感受到的一切写下来，让这深厚的友情在我们的笔尖流淌、倾泄。有信心吗？
5、学生改写古诗，教师进行个别指导。
四、展示作品，交流评析
1、谁愿意把自己写的作文读给大家听？教师相机点评。
2、欣赏了这个同学的作文，可以说说你最欣赏或最感动的地方，也可以说说你个人的看法或建议。
3、教师总结：同学们，今天我们跨越时空的界限，与古人对话，与诗人畅谈，获得的是语言的滋养、情感的熏陶、友情的珍爱。能用一句话来谈谈你这节课感受吗？
设计点评：
我认为学生改写古诗就是一个“言意转换”的过程，我们试以本次习作设计为例加以阐述。
一、由“言”到“意”的转换
作为古诗的“言”如何转化为学生心中的“意”？我认为，教师主要引导学生穿透“两层”，即语表层与内蕴层。从操作层面来看，一是“对话”，让学生动用自己的生活体验和知识储备，与诗人进行“对话”，用想象、联想来充实古诗的“空白”，使古诗内蕴的“意”变得充实与完整。二是“体悟”，学生在与诗人对话的基础上，引导学生以自己的各种感官去“触摸”、“品味”古诗，由于学生主体的深层介入和情感的投入，从“语表层”进入“内蕴层”，从而进入古诗的“意境”。在共识的基础上共鸣，在共鸣的基础是一起心跳。这样才将古诗赋予生动的灵性，而这就是学生心中的“意”。在本课的教学设计中，教师首先引领学生“披文以入情”，通过欣赏、品味与诵读，让学生与诗人“对话”，从而明诗意、悟诗情。接着教师引领学生“设身处地、想象体验”，通过创设情境，让学生“诵诗读书，与古人居；读书诵诗，与古人谋”（孔子语），设身处地地与诗人对话、交流，通过想象体验，让学生进入“使我之心即入乎唐人之心，而又使唐人心，即为我之心”的境地，达到王国维的“以我观物，物皆著入我之色彩”的境界。学生与诗人产生情感上的共鸣，从而引发表情达意的心理冲动。具体地说，就是在文本解读活动中使学生与作者的心灵在对话情景中达到沟通与默契，搅动积淀在学生心底的生活积累，触动他们敏感多情的心弦，使他们产生写作上的冲动，从而让语言的激流宣泄出来。
二、由“意”到“言”的转换
那么，如何让学生把内化于心中的“意”转化为“言”呢？我认为，这里将经历着两个层面的过程：一是将内化于心中的“意”转化为学生的“口头语言”。学生在口头表达中，由于教师创设了一些情境，有了感兴趣的话题，还可以借助体态语，因此，学生表达起来比较容易。二是将“口头语言”转化为“书面语言”，也就是学生要以有形的文字把心中形成的“意”准确而又精细地表达出来。在本课的教学设计中，教师把学生带进“直抒胸臆，欲罢不能”的地带，“情动而辞发”。叶圣陶说：“作文的自然顺序应该是我认识事物，心中有感，感情的波澜冲击着我，我有说话的愿望，便想倾吐，于是文章就诞生了。”此时，学生心中的“意”已经到了“呼之欲出”的境地，达到叶老所说的那样：“真是个最容易的萌生的欲望，差不多同想吃想喝的欲望一样。”在这个阶段，我们作为教师要不断地启发诱导，让学生把心中的“意”说出来，“用我口说我心”，指导学生说得清楚、有序，说得具体、生动。最后，让学生“用我手写我口”，把口头语言转换为书面语言，写完后再朗读、修改，直到较为完满地表达心中之“意”为止。
总的来说，品读古诗是据“言”知“意”的转换，学生在穿透语表层进入内蕴层，不断地识“言”得“意”，通过想象、体验、感悟成为学生情感与语言的“积累”。改写古诗则是以“言”表“意”，由于学生全身心地去感悟、体验，成为一种最为深切的感受，有了一定的知、情、意的积淀，于是才能“言为心声”。我想学生改写古诗的心理历程不过如此，关键是我们教师如何促使学生去完成这个转换过程。作为教师，并不是通过讲解、分析，更不是架空、附加去强化，而只能在学生转换过程中适时、适量地加以点拨和诱导，广开生活之源，深掘精神隧道，使学生有感而发，集腋成裘，涵养精神，厚积薄发。在写作中融入自我的感受与体验，这样写出来的作文才能烙上学生情感个性的印记，涂上独特心灵的色彩。
46回答者： R权
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用Replace()函数，可以把指定的字符替换掉，很方便的。
用open语句载入txt文件时，用lineinput即可按照chr(13)回车换行读入，
然后在过程中用replace函数替换掉错误的数据即可。
用open语句载入txt文件时，用lineinput即可按照chr(13)回车换行读入，
然后在过程中用replace函数替换掉错误的数据即可。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
VB 中根本没有替换某行的代码，只有把整个文本全部读出来，替换某行，然后再把文件以覆盖方式全部写回去。
Public Function ReplaceLine(fName As String, LineNumber As Long, LineText As String) As Boolean
'功能: 从指定的文本文件替换指定的行的数据
'参数: fName = 完整的文本文件路径名+文件名
' LineNumber = 要替换的行数(数字)
' LineText ='要替换的字符文字
'返回: True 为正确执行, false 其它失败错误
'需要: 引用-- Microsoft Scripting Runtime
'Example: 把C目录下的MYFILE.TXT的第三行的文本替换为 Abcde
' ReplaceLine("C:\Myfile.txt", 3,"Abcde")
'作者MSDN中的ewang11
'______________________________________________________________
Dim oFSO As New FileSystemObject
Dim oFSTR As Scripting.TextStream
Dim ret As Long
Dim lCtr As Long
Dim sTemp As String, sLine As String
Dim bLineFound As Boolean
If oFSO.FileExists(fName) Then
Set oFSTR = oFSO.OpenTextFile(fName)
lCtr = 1
Do While Not oFSTR.AtEndOfStream
sLine = oFSTR.ReadLine
If lCtr <> LineNumber Then
sTemp = sTemp & sLine & vbCrLf
Else
sTemp = sTemp & LineText & vbCrLf
bLineFound = True
End If
lCtr = lCtr + 1
Loop
oFSTR.Close
Set oFSTR = oFSO.CreateTextFile(fName, True)
oFSTR.Write sTemp
ReplaceLine = bLineFound
End If
oFSTR.Close
Set oFSTR = Nothing
Set oFSO = Nothing
End Function
调用这个函数时如下面
Call ReplaceLine(CurrentProject.Path & "\Myfile.txt", 3, "abcd")
or
Dim Str As Boolean
Str = ReplaceLine(CurrentProject.Path & "\Myfile.txt", 3, "78596")
Public Function ReplaceLine(fName As String, LineNumber As Long, LineText As String) As Boolean
'功能: 从指定的文本文件替换指定的行的数据
'参数: fName = 完整的文本文件路径名+文件名
' LineNumber = 要替换的行数(数字)
' LineText ='要替换的字符文字
'返回: True 为正确执行, false 其它失败错误
'需要: 引用-- Microsoft Scripting Runtime
'Example: 把C目录下的MYFILE.TXT的第三行的文本替换为 Abcde
' ReplaceLine("C:\Myfile.txt", 3,"Abcde")
'作者MSDN中的ewang11
'______________________________________________________________
Dim oFSO As New FileSystemObject
Dim oFSTR As Scripting.TextStream
Dim ret As Long
Dim lCtr As Long
Dim sTemp As String, sLine As String
Dim bLineFound As Boolean
If oFSO.FileExists(fName) Then
Set oFSTR = oFSO.OpenTextFile(fName)
lCtr = 1
Do While Not oFSTR.AtEndOfStream
sLine = oFSTR.ReadLine
If lCtr <> LineNumber Then
sTemp = sTemp & sLine & vbCrLf
Else
sTemp = sTemp & LineText & vbCrLf
bLineFound = True
End If
lCtr = lCtr + 1
Loop
oFSTR.Close
Set oFSTR = oFSO.CreateTextFile(fName, True)
oFSTR.Write sTemp
ReplaceLine = bLineFound
End If
oFSTR.Close
Set oFSTR = Nothing
Set oFSO = Nothing
End Function
调用这个函数时如下面
Call ReplaceLine(CurrentProject.Path & "\Myfile.txt", 3, "abcd")
or
Dim Str As Boolean
Str = ReplaceLine(CurrentProject.Path & "\Myfile.txt", 3, "78596")
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不知道你是什么意思？但是可以用下if条件+mid(,,,)函数去一下看行不行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
