我的是vb2008写的如何写60行了,写2行空的啊

代码之城 2014-01-17 10:39:28
我的是循环写txt文本,现在想每隔60行写2行空行,如何改啊,谢谢



'循环写入TXT

With ListBox1

For i = 0 To ListBox1.Items.Count - 1

MyOutput = ListBox1.Items(i)
myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))


Next i
End With

...全文
206 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
myStreamWriter.WriteLine(Environment.NewLine &Environment.NewLine); 或 myStreamWriter.WriteLine(vbCrLf &vbCrLf)
蝶恋花雨 2014-01-17
  • 打赏
  • 举报
回复
If i Mod 60 = 0 Then
                   System.Envirement.NewLine 新行
                   System.Envirement.NewLine 
                End If
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))
蝶恋花雨 2014-01-17
  • 打赏
  • 举报
回复
不好意思。你实现的就是换行。 http://www.cnblogs.com/LCX/archive/2010/12/22/1913394.html回车/换行组合符(VB.NET)
蝶恋花雨 2014-01-17
  • 打赏
  • 举报
回复
基本的就这样的。可以写成换行。容易区别。
代码之城 2014-01-17
  • 打赏
  • 举报
回复
还有其他方法吗?写出来 我给分,要不我自己不可以给自己分啊,只要写 就给分,速度啊
代码之城 2014-01-17
  • 打赏
  • 举报
回复
我自己解决了
 With ListBox1

            For i = 0 To ListBox1.Items.Count - 1
                If i Mod 60 = 0 Then

                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))
                    myStreamWriter.WriteLine(Chr(10))

                End If
                MyOutput = ListBox1.Items(i)
                myStreamWriter.WriteLine(Replace(MyOutput & ",", ",,", ","))


            Next i
        End With
还是要谢谢大家

16,722

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧