问题描述
Btnsaveas_Click事件:Me.SaveFileDialog1.ShowDialog()FileOpen(1,SaveFileDialog1.FileName,OpenMode.Append)'这里开始搞不清楚了,为了能在另存为的时候实现回车换行表示,‘直接保存为TXT格式的时候回车号直接成一小黑块了,'所以想用lineput分别截取每行的字符串分别printline’求助DimaAsStringDimlengthAsInteger'字符串a装入文本a=Me.RichTextBox1.Textlength=Len(a)-1Dimhang,i,jAsIntegerDimb()AsIntegerhang=1'有几个换行符就表示有几行Fori=1TolengthIfMid(a,i,1)=Chr(10)Thenhang+=1EndIfNextFileClose(1)
解决方案
解决方案二:
你想什么效果?
解决方案三:
目的就是要在把一个文本文档另存为的时候在目标文件不会自动将回车符号转换成ASCII码_一个小黑块而实现回车+换行
解决方案四:
haoxia01:以下代码看看能不能帮到你PrivateConstENTERAsString=vbCrLfDimstrAsString=""(该变量为文件里的字符串)str.Replace(ENTER,"")(把enter替换成空)
解决方案五:
writeline就可以了一行一行写,回车自动会添加的
时间: 2024-09-16 20:19:48