作者Marty (DNA探针)
看板CodeJob
标题Re: [讨论] 修改CSV格式 请问这样值多少钱?
时间Fri Dec 2 09:47:41 2011
'--------VB.net的版本-----------------
Dim sr As New System.IO.StreamReader("C:\data.txt")
Dim sw As New System.IO.StreamWriter("C:\data_out.txt")
Dim data() As String = Split(sr.ReadToEnd(), " ")
sr.Close()
For Each s As String In data
If IsNumeric(s) Then
sw.WriteLine(s)
sw.Flush()
End If
Next
sw.Close()
MsgBox("OK~")
'-------简单的Case用简单的方式写-------:D
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.251.170.34
1F：→ waterdisney:.Net真是方便 等等会有人用C#也来一篇吗?? 12/02 14:56
2F：→ brucetu:.net应该用 sr.ReadToEnd().split(" ") 12/02 16:22