Menu
Ask a question Report

Creating a batch/vbs file to append start and end of paragraph [Closed]

BrianGreen 982 Posts Saturday January 17, 2015Registration dateModeratorStatus October 28, 2018 Last seen - Nov 20, 2016 at 09:47 AM - Latest reply: yg_be 6781 Posts Sunday June 8, 2008Registration dateContributorStatus November 2, 2018 Last seen
- Jan 2, 2017 at 10:12 AM
Webmastering Ask a question Report
Hi All,

Anyone want a free virtual beer before the Christmas season starts?

I cant believe how hard I am finding this. What I want to do is (in essence) create a web page from a text file that someone at work has written. At this stage all I want to do is add <p> and </p> to the start and end of every paragraph and for this to be separated with a blank line. So what I want to do is convert this 
Text 1
Text 2
Text 3

into 
<p>Text 1</p>

<p>Text 2</p>

<p>Text 3</p>


Simple? I failed dismally, but have a bit of success with this in the following batch file, but its not quite what I want - I would need to edit this a bit to get it to look nice and to remove the first </p> and add a final </p>: 
@ECHO OFF

rem **************************
rem **    Set Variables     **
rem **************************

SET origfile="C:\Users\Brian\Desktop\Untitled 1.txt"
SET tempfile="C:\Users\Brian\Desktop\Untitled 1 copy.txt"
SET insertbefore=""

rem **************************
rem ** Find number of lines **
rem **************************

FOR /F %%C IN ('FIND /C /V "" ^<%origfile%') DO SET totallines=%%C

rem **************************
rem * Print the new text and save the new file *
rem **************************

<%origfile% (FOR /L %%i IN (1,1,%totallines%) DO (
  SETLOCAL EnableDelayedExpansion
  SET /P L="</p><p>"
  IF %%i==%insertbefore% ECHO(
  ECHO(!L!
  ENDLOCAL
)
) >%tempfile%


What this produces is 
</p><p>Text 1
</p><p>Text 2
</p><p>Text 3


I hope you can help a weary old men and I will let all contributers all into my virtual pub for beers and a mince pie (it is nearly Christmas!).

I really appreciate thank you messages as a payment for solving issues   :o)
See more 

1 reply

Report Respond to yg_be
yg_be 6781 Posts Sunday June 8, 2008Registration dateContributorStatus November 2, 2018 Last seen - Jan 2, 2017 at 10:12 AM
0
Thank you
Hi, I am proposing this vbs: 
Dim textline, fso, f1, F2, aline
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.OpenTextFile("C:\data\temp\ccm\input.txt", 1, True)
Set F2 = fso.CreateTextFile("C:\data\temp\ccm\output.txt")
While f1.AtEndOfStream <> True
        aline = f1.Readline        'read in the row
       
        F2.WriteLine "<p>" & aline & "</p>"
        F2.WriteLine ""
Wend
f1.Close 'close the input file
F2.Close
Ask a question