如何将头添加到文件中visual basic

我有以下代码，需要在头文件中写入头文件。我不知道我如何去添加代码，以便我可以写一个头文件。如何将头添加到文件中visual basic

我的代码如下： -

Private Enum eCommaSemiColon 
    Comma = 0 
    Semicolon = 1 
    End Enum 

    Dim lFile As Long 
    Dim lRow As Long 
    Dim s As String 
    Dim lCounter As Long 

    If Me.CurrentInterval = 1 And Me.CurrentTrial = 1 Then 
    lFile = FreeFile 
     Open Me.FileName.Value For Output As #lFile 
     For lRow = 0 To Me.FileContents.Count - 1 
     Select Case Me.CommaOrSemiColon.Value 
      Case eCommaSemicolon.Comma 
       For lCounter = 0 To Me.NoOfColumns.Value - 1 
        If lCounter = 0 Then 
         s = Me.FileContents.Get(lRow, 0) 
        Else 
         s = s & "," & Me.FileContents.Get(lRow, lCounter) 
        End If 
       Next 
       Print #lFile, s 

    Case eCommaSemicolon.Semicolon 
       For lCounter = 0 To Me.NoOfColumns.Value - 1 
        If lCounter = 0 Then 
          s = Replace(CStr(Me.FileContents.Get(lRow, 0)), ".", ",") 
          Else 
          s = s & ";" & Replace(CStr(Me.FileContents.Get(lRow, lCounter)), ".", ",") 
        End If 
        Next 
        Print #lFile, s 
       Case Else 
      End Select 
     Next 
    Close #lFile 
    Else 
    End If

来源

2014-09-24 user491119

这不是VBA，或者它是不完整的代码。 “我”是什么？什么是'eCommaSemicolon'对象等？此外，请描述您所需的输出**和**当前输出如何不令人满意。什么是“标题”？你想要什么，如何格式化等等？ – 2014-09-24 16:39:36

它的VB代码非常感谢你，是的，有一点遗漏了私人枚举ecommaSemicolon这与你没有得到的位有关。也许在投票前要求进一步澄清，我想要了解的是在写出输出之前，我该如何将头文件写入文件。 – user491119 2014-09-24 17:44:21

除非你提供更多的信息，特别是什么是Me和它的子对象（'.FileContents'等），eCommaSemiColon对象是什么，否则这个代码不会在**任何其他人的计算机上编译。 – 2014-09-24 17:46:30

在某些时候你打印到文件之前，你可以简单的有前缀的头部字符串到s变量。然后打印文件。它是那么容易

假设它的制表符分隔（修改如果需要的话），这样的事情会创建一个标题字符串：

Dim header as String 
header = "Time" & vbTab & "Number1" & vbTab & "Number2" & vbTab & ...

然后，您打印到文件之前，可以在前面的头部字符串到s（其中包含完整的文件文本），以换行分隔：

s = header & vbCRLF & s

现在，s变量应包含的头部字符串和文件文本的其余部分，这样你就可以使用正常的I/O输出语句写这个fule。

来源

2014-09-29 14:33:02

如何将头添加到文件中visual basic

回答

相关问题