vb.net – 相当于“打开文件名输出为#1”VB6到.NET

发布时间：2020-12-17 07:15:55 所属栏目：百科来源：网络整理

导读：另一个移民问题, 我有另一块VB6代码,似乎需要.NET的一些解决方法.对于缩短版本,这就是它所做的一切： Open sFileName For Output As #1Print #1,Print #1,"Facility:" vbTab Replace(Frame1.Caption,"," ")Print #1,"Address:" vbTab Replace(Me.lblAddr1.Ca

另一个移民问题,

我有另一块VB6代码,似乎需要.NET的一些解决方法.对于缩短版本,这就是它所做的一切：

Open sFileName For Output As #1
Print #1,Print #1,"Facility:" & vbTab & Replace(Frame1.Caption,"," ")
Print #1,"Address:" & vbTab & Replace(Me.lblAddr1.Caption,"City/State:" & vbTab & Replace(Me.lblAddr2.Caption," ")

等等等等.你可以看到它不断重复创建新的线条.问题是,我如何在.NET中实现相同的功能？感谢所有帮助人员.

洛根

解决方法

Imports System
 Imports System.IO
 Imports System.Text
 Imports System.Collections.Generic

 Class Program

    Public Shared Sub Main(ByVal args As String())

    Dim mydocpath As String = _
    Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
    Dim sb As New StringBuilder()

    For Each txtName As String _
        In Directory.EnumerateFiles(mydocpath,"*.txt")
        Using sr As New StreamReader(txtName)
            sb.AppendLine(txtName.ToString())
            sb.AppendLine("= = = = = =")
            sb.Append(sr.ReadToEnd())
            sb.AppendLine()
            sb.AppendLine()

        End Using
    Next

    Using outfile As New StreamWriter(mydocpath & "AllTxtFiles.txt",Encoding.Default)
        outfile.Write(sb.ToString())
    End Using
    End Sub
 End Class

http://msdn.microsoft.com/en-us/library/6ka1wd3w.aspx#Y0

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!