VB.net写txt
2009-08-24 13:05:17| 分类:
.NET/C#
| 标签:
|举报
|字号大中小 订阅
Dim fPath As String = ""
Dim frmOut As New SaveFileDialog
frmOut.Title = "输出到TXT..."
frmOut.Filter = "txt文件(*.txt)|*.txt"
If frmOut.ShowDialog() = Windows.Forms.DialogResult.OK Then
fPath = frmOut.FileName
Me.Cursor = Cursors.WaitCursor
Dim stW As StreamWriter, FS As FileStream
FS = New FileStream(fPath, FileMode.Create)
stW = New StreamWriter(FS)
For i As Integer = 1 To Grid1.Rows - 1
stW.WriteLine(Grid1.Cell(i, 4).Text.Trim() + " " + Grid1.Cell(i, 3).Text.Trim())
Next
MessageBox.Show("输出成功!")
stW.Close()
Me.Cursor = Cursors.Default
End If
评论这张
转发至微博
转发至微博
评论