UC知道VB replace操作文件末尾的方法(高手进 方法对 追加)
来源：百度知道 编辑：UC知道 时间：2024/06/03 23:59:52
文件的格式如下
643251 说 237 在无是声拉它如通大他
331251 后 236 对当深让并在可用面客
412512 就 235 必倾很显可我能非已会
312154 我 229 了更能游花制编所过起
143123 来 229 我一计看了写抽描讲说
121325 都 227 必归类属具能有隶采隐
112jjj 于 226 成使抽方问这强特目类
154121 到 219 违使多本我的一对计反
911134 溱 218 阴阴阴
354354 多 211 但长个线行利处么项形
322511 但 210 无却特也要它只可在几
73511j 阴 210 蒂溱阴阴
442513 快 204 些车花新感点形地的和
734jjj 队 203 以伍文建现啊
一共是6242行这里就打这几行 大家都看到了 文件的格式不是固定的 我现在想把 第四列不全的汉字补全,规定是10个汉字 有的是3个有的是5个有的是6个,但是补全也不是随便补的 我新建一个text文本 我在text1.text中输入汉字 然后判断这个汉字是不是我想要的 举例说明一下 假设 我在text1.text中输入阴然后在输入你那么你就+在阴的那行的蒂溱阴阴后面 变成蒂溱阴阴你 就是这么个形式 我说名一下我是怎么做的 但是有bug
public re as integer re全局静态变量 控制text1.text中取的字符
Private Sub Form_Load()
re = 1
End Sub
re = re + 1
tmp12 = Mid(Text1.Text, re - 2, 1)
tmp13 = Mid(Text1.Text, re - 1, 1)
Call f(tmp12, tmp13) 其中 tmp12是 文本框中的第1个汉字tnp13是第2个汉字 然后我用第2个汉字也就是tmp13来替换 tmp12这个汉字所在的行中最后的字 我现在只能想到用replace方法来往文件中写字符 有谁知道往文件中写字的好的方法 f过程的代码就不都写了 就写一个核心的
rad(i
643251 说 237 在无是声拉它如通大他
331251 后 236 对当深让并在可用面客
412512 就 235 必倾很显可我能非已会
312154 我 229 了更能游花制编所过起
143123 来 229 我一计看了写抽描讲说
121325 都 227 必归类属具能有隶采隐
112jjj 于 226 成使抽方问这强特目类
154121 到 219 违使多本我的一对计反
911134 溱 218 阴阴阴
354354 多 211 但长个线行利处么项形
322511 但 210 无却特也要它只可在几
73511j 阴 210 蒂溱阴阴
442513 快 204 些车花新感点形地的和
734jjj 队 203 以伍文建现啊
一共是6242行这里就打这几行 大家都看到了 文件的格式不是固定的 我现在想把 第四列不全的汉字补全,规定是10个汉字 有的是3个有的是5个有的是6个,但是补全也不是随便补的 我新建一个text文本 我在text1.text中输入汉字 然后判断这个汉字是不是我想要的 举例说明一下 假设 我在text1.text中输入阴然后在输入你那么你就+在阴的那行的蒂溱阴阴后面 变成蒂溱阴阴你 就是这么个形式 我说名一下我是怎么做的 但是有bug
public re as integer re全局静态变量 控制text1.text中取的字符
Private Sub Form_Load()
re = 1
End Sub
re = re + 1
tmp12 = Mid(Text1.Text, re - 2, 1)
tmp13 = Mid(Text1.Text, re - 1, 1)
Call f(tmp12, tmp13) 其中 tmp12是 文本框中的第1个汉字tnp13是第2个汉字 然后我用第2个汉字也就是tmp13来替换 tmp12这个汉字所在的行中最后的字 我现在只能想到用replace方法来往文件中写字符 有谁知道往文件中写字的好的方法 f过程的代码就不都写了 就写一个核心的
rad(i
花了好长时间才看完你的题目。
我觉得要在某行末尾追加汉字，不能用replace，因为用它后，所有出现此特征的地方都会被替换，显然不是你想要的。
我解决上述问题的思路如下，仅供参考。
一、把文件以回车符为界，读入数组中；
二、当你在text1中输入文本后，按替换按钮时，就可以根据输入的文字特征，在数组中进行查找，找到则在其后面直接追加。
这样做的好处是：减少频繁读取文件而浪费的时间，速度快，效率高。
我没怎么仔细看你的题目 太多了 没时间都看完
不过我觉得没必要这么麻烦
你可以读这个txt文件 readline 然后看每行的字数
如果不够就append
其实很简单,VB2005的代码要不要!语句有点出入,跟6.0不兼容!
楼主要不要?
错误