Insert text at the of a text file line

Posted on 2006-10-27
Medium Priority
Last Modified: 2013-12-25
Hi experts,

I have a text file with thousands of lines. Some lines are shorter than others. To accomplish what i want i need all lines to be the same lenght which is (601 characters). The code below reads each line and subtracts the difference from the goal of 601. The next step is to fill out with spaces (hence my character variable) the missing characters.
The program adds spaces to the text file but it adds at the bottom after the last line instead of adding it to the right side or end of each line.

Does anyone have any sugestions?


Dim filename As String
Dim rowlenght As Long
Dim stringlenght As Integer
Dim i As Integer
Dim character As String

character = Chr$(13)

rowlenght = 10

filename = txtFilename.Text

Dim Line As String
Open filename For Append As #1
Open filename For Input As #1
Do While Not EOF(1)
  Line Input #1, Line
  stringlenght = rowlenght - Val(Len(Line))
  Close (1)
  Open filename For Append As #1
  For i = 0 To stringlenght
  'Line  #1, character
  Write #1, character
  'MsgBox ("Lenght :" & stringlenght & " Text: " & Line)
Question by:virgilar
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions

Expert Comment

ID: 17822461
I would create a loop and use line input instead. Measure the length of the line and add the needed number of spaces to it. Then write that line out to a different file. It would be easier I think. That is going to be one monster file if you have thousands of lines and 601 chars per line. Good luck.


Assisted Solution

taycuong76 earned 1000 total points
ID: 17825131
This program assume that you want to change the length of all line in a file to 10
You create a file on c:\ and named as "test.txt" with the content not equal, ex:

Create a new VB project and add the code:
Private Sub Form_Load()
Dim filename As String
Dim i As Integer
Const rowlenght = 10

filename = "c:\test.txt"
filename2 = "c:\temp$$$.Txt"

Dim Line As String
Open filename For Input As #1
Open filename2 For Output As #2
Do While Not EOF(1)
Line Input #1, Linex
    If Len(Trim(Linex)) < 10 Then
    trang = 10 - Len(Linex)
    Linex = Linex & Space(trang)
'   MsgBox Len(Linex) & "-" & (10 - Len(Linex)) & "-" & Linex
    End If
Print #2, Linex
Close (1)
Close (2)
Kill filename
Name filename2 As filename
Msgbox "Done !"
End Sub

This will create a temp file, ajust the line thength (add space (" ") to the line which have length less than 10) then kill old file and named temp file back to original file.

Note: Make a copy of your file before test.
Hope this help, tested on VB 6 - XP sp2

Expert Comment

ID: 17825135
Change the Const rowlenght = 10 to Const rowlenght = 610 to do with your data file (Make a copy of your file first.)

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!


Expert Comment

ID: 17825153
There is a situation: if your one of your lines longer than 10?????

In this case, you have to add some code like that:
  If Len(Trim(Linex)) > 10 Then
   'Only select 10 char from original line
    Linex = left(Linex,10)
  End If

But in fact, this is funny, because your data will be truncated to 10 and you'll lost the rest of your data !
LVL 19

Accepted Solution

BrianGEFF719 earned 1000 total points
ID: 17827289
This should do it for you:

Dim strLine As String
Dim strBuffer As String
Dim strInputFile As String
Dim strTempFile As String

strInputFile = "c:\test.txt"
strTempFile = "c:\test.tmp"

Open strInputFile For Input As #1
    Open strTempFile For Output As #2
     While Not EOF(1)
      Line Input #1, strLine
      strBuffer = Space(601 - Len(strLine))
      Print #2, strLine & strBuffer
    Close #2
Close #1

Kill strInputFile
FileCopy strTempFile, strInputFile
Kill strTempFile

Expert Comment

ID: 17828094
BrianGEFF719, just the same mine. Nothing special.
LVL 19

Expert Comment

ID: 17829366
I like to think mine is a little more organized.

Expert Comment

ID: 17830990
You 'd better find a new way and solution to help peoples.
LVL 14

Expert Comment

by:Shiju Sasidharan
ID: 17832134
or try this

Private Sub Command1_Click()
Dim oFso, oText
Dim sFile, sContent As String
    Set oFso = CreateObject("Scripting.FileSystemObject")
    sFile = "C:\Your_file.txt"
    If Not oFso.FileExists(sFile) Then
        MsgBox "File does not exist"
        Exit Sub
    End If
    Set oText = oFso.OpenTextFile(sFile)
    sContent = oText.ReadAll
    'Filling spaces
    sContent = FillSpaces(sContent, 601)
    'Writing new data
    sFile = "C:\Your_New_file.txt"
    Set oText = oFso.OpenTextFile(sFile, ForWriting, True)
    oText.Write sContent
    MsgBox "Done"
End Sub

Private Function FillSpaces(ByVal Content As String, ByVal Length As Integer) As String
Dim oReg
Dim oMat
Dim oMCol
    Set oReg = CreateObject("VBScript.RegExp")
    With oReg
        .IgnoreCase = True
        .Global = True
        .Pattern = "(.{1," & Length & "})\r\n"
    End With
    Content = Content & vbCrLf 'Adding new line to get last line
    Set oMCol = oReg.Execute(Content)
    For Each oMat In oMCol
        Content = Replace(Content, oMat.Value, oReg.Replace(oMat.Value, "$1" & Space(Length - Len(oMat.Value) + 2) & vbCrLf))
    FillSpaces = Left(Content, Len(Content) - 2) 'Removing last new line
End Function

Expert Comment

ID: 17832383
Good training job using FileSystemObject.

Author Comment

ID: 17833522
taycuong76 and BrianGEFF719 and everybody else,

Thaks a lot for your inputs, i was able to accomplish exactly what i wanted.

I will split the point between taycuong76 and BrianGEFF719  since their answers helped me directly with my needs.

Thanks guys,


Featured Post

[Webinar] Lessons on Recovering from Petya

Skyport is working hard to help customers recover from recent attacks, like the Petya worm. This work has brought to light some important lessons. New malware attacks like this can take down your entire environment. Learn from others mistakes on how to prevent Petya like worms.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…
Suggested Courses
Course of the Month9 days, 11 hours left to enroll

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question