如何將頭添加到文件中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

回答

相關問題