采用增加的方式打开文件: Open str_file For Append As #filewrite
然后有一些数据分批按顺充写入文件,具体程序为:function append_file(str as string)
filewrite = freefile()
open str_file for append as #filewrite
print #filewrite,str
close #filewrite
end if
其中文件为.txt文件,当每次调用这个函数时,写入之后就会自动加上一个换行符。如:
str1 = "aaaaaaaaaabbbbbbbbbb"
append_file mid(str1,1,10)
append_file mid(str1,11,10)则在文件中显示出来的是
aaaaaaaaaa
bbbbbbbbbb
我想把它们中间的这个换行符去掉有什么办法?我这的要求是:
1、不可能作一次性写入
2、每次写入的字符串中可能本身就包括有换行符,如:str1="aaa"+vbcrlf+"aaaaaaabbb"+vbcrlf+"bbbbbbb"
当我调用append_file mid(str1,1,12)
append_file mid(str1,13,12)
我想在文件中得到的是:
aaa
aaaaaaabbb
bbbbbbb
而上面的函数得到的是
aaa
aaaaaaa
bbb
bbbbbbb
然后有一些数据分批按顺充写入文件,具体程序为:function append_file(str as string)
filewrite = freefile()
open str_file for append as #filewrite
print #filewrite,str
close #filewrite
end if
其中文件为.txt文件,当每次调用这个函数时,写入之后就会自动加上一个换行符。如:
str1 = "aaaaaaaaaabbbbbbbbbb"
append_file mid(str1,1,10)
append_file mid(str1,11,10)则在文件中显示出来的是
aaaaaaaaaa
bbbbbbbbbb
我想把它们中间的这个换行符去掉有什么办法?我这的要求是:
1、不可能作一次性写入
2、每次写入的字符串中可能本身就包括有换行符,如:str1="aaa"+vbcrlf+"aaaaaaabbb"+vbcrlf+"bbbbbbb"
当我调用append_file mid(str1,1,12)
append_file mid(str1,13,12)
我想在文件中得到的是:
aaa
aaaaaaabbb
bbbbbbb
而上面的函数得到的是
aaa
aaaaaaa
bbb
bbbbbbb
解决方案 »
- 有没有什么vb打印方面的书比较好的有没有什么电子书下载的??
- 关于内存无法读取~~
- lv1(天下)老大,你又进来下噻.救我命啊
- 几个关于文件夹中搜索文件的问题
- 关于VB6窗体的问题
- 如何才能找到这个API涵数的声明?(function InternetReadHTML Lib "Wininet.dll")
- 生成应用程序后的安装问题
- 出错提示 Adodc1 对像关闭时,不允许操作
- 真正XP风格菜单,不用任何自定义控件和API函数,大家开来看,莫失良机!
- 一道难题阿!!!!!算法想起来很苦难阿!!!!
- 今天怎么尽是碰上一些怪问题啦。请大家帮忙看看。
- 请问!!哪儿有员工考勤管理系统,如果是WEB版的话,更好。谢谢
或者该函数还有参数你没用到
append_file是你自己写的函数
那么往文件里写你用的是Print
还有没有其他