How do you copy and paste file to file using arrays?

Author

Message

Explosm69

15

Years of Service

User Offline

Joined: 22nd Jul 2010

Location:

Posted: 26th May 2012 23:28 Edited at: 26th May 2012 23:29

Link

Hello, I'm trying to do a html template like in Dreamweaver, but when I copy the text from the template file using an array and make that array into a file, it comes out all screwed up.
The concept was that in the dba it would search for the key word: ; copies everything between that key word and another which is: ; But unfortunately it gets cut off, although i think the spacing may have something to do with it, I was unable to figure it out.
The Original html file:

+ Code Snippet

<! DOCTYPE HTML>

<Html>

<!-- BeginUpdate /-->
<Head>
	<Title>Page Title</Title>
	<Link Rel="stylesheet" Type="text/css" Href="css/layout.css">
<!-- EndUpdate /-->

<!-- BeginUpdate /-->
</Head>

<Body Link="#095960" VLink="#6f2593">
<Div id="container">
	
	<Div id="header">
		
		<Div id="login">
			
		</Div>

		<Div id="logo">
			<A Name="top"></A>
		</Div>

	</Div>

	<Div id="nav">
		
	</Div>
<!-- EndUpdate /-->

	<Div id="content">
		
<!-- BeginUpdate /-->
		<Div id="sidebar">
			
		</Div>
<!-- EndUpdate /-->

		<Div id="main-cont">
			
		</Div>

	</Div>

<!-- BeginUpdate /-->
	<Div id="footer">
		Copyright Info<Br>
		<A Href="index.html">Home</A>
		<Br><A Href="#top">Back to Top</A>
	</Div>
<!-- EndUpdate /-->

</Div>
</Body>

</Html>

<!-- End of Webpage /-->

The Copied and Pasted File:

+ Code Snippet


<Head>
	<Title>Page Title</Title>
	<Link Rel="stylesheet" Type="text/css" Href="css/layout.css">
</Head>
		<Div id="sidebar">
	<Div id="footer">

The dba file coding:

+ Code Snippet

Open to Read 1, "index.html"
Repeat
	Dim CopyTemp$(c)
	Read String 1, Copy$
	If Lower$(Copy$)= "</html>"
		Print "Out"
		StopCopy= -1
	Else
		If Right$(Copy$,  21)= "<!-- BeginUpdate -->"
			Print "In"
			Repeat
				Dim CopyTemp$(c, c+100)
				Read String 1, Copy$
				If Right$(Copy$, 19)= "<!-- EndUpdate -->"
					StopCopy= 1
				Else
					CopyTemp$(c)= ""+Copy$
					inc c
				EndIf
			Until StopCopy= 1
		EndIf
		
		Rem For the Npp Bug
		If Right$(Copy$,  21)= "<!-- BeginUpdate /-->"
			Print "In"
			Repeat
				Dim CopyTemp$(c, c+100)
				Read String 1, Copy$
				If Right$(Copy$, 19)= "<!-- EndUpdate /-->"
					StopCopy= 2
				Else
					CopyTemp$(c)= ""+Copy$
					inc c
				EndIf
			Until StopCopy= 2
		EndIf
			
	EndIf
Until StopCopy= -1
File$= "File.txt"
If File Exist(File$)= 1 then Delete File File$
Save Array File$, CopyTemp$()
UnDim CopyTemp$()

Close File 1

Wait Key

I'm Running Vanilla, no plugins if that helps a little...
Can anyone help my predicament?

Cyanide & Happiness 4 Ever

Back to top

Profile PM Email

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 27th May 2012 04:11

Link

Interesti.g

Dont mind me just tailing along for now...

Back to top

Profile PM

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 30th May 2012 22:35

Link

@Explosm69
I knocked together together a simple method similar to your code. But if my goal was only to copy the file, I wouldn't use an intermittent array. I would read in the data/line, parse it, then write it out to a second file directly. However, if I needed to do further editing on the data before writing it to a new file, then using an array for temp storage would be more useful.

I took the approach of using an array. Also, the code isn't written to handle anomalies. By that I mean if the input file had non standard formatting, or there were extra spaces, or it wasn't left justified for the headers, my example code doesn't check for this. Also it doesn't check for nested update tags.

But I think this code generally does what you want:

sync on

rem store the file name in a variable - allows flexibility depending
rem on how we obtain the file name
fname$="index.html"

rem does the file exist?
if file exist(fname$)
   rem true so we continue
   rem Assuming this file is a text file where each line is
   rem a string ending with chr$(13)+chr$(10) (carriage return+linefeed )
   rem if it's not, you have to write custom code to determine the grouping
   rem of data.  The custom routine is beyond the scope of this example.

rem let's get the number of lines in the file first so we can dimension
   rem our arrays once

rem check file number.  If it is already open, choose another
   fn=1
   while file open(fn)
      inc fn
   endwhile

rem open the file and get a count of the lines
   open to read fn,fname$
      rem loop through file until it's finished
      linecount=0
      while file end(fn) <> 1
         read string fn,a$
         inc linecount
      endwhile
   close file fn

rem we have the line count for our array so dimension it
   dim CopyTemp$(linecount)

rem now reopen the file and parse it into the array
   newcount=0
   open to read fn,fname$
      while file end(fn) <> 1
         rem read in each line
         read string fn,Copy$

remstart
            If the file isn't formatted neatly, headers and
            footers might be contained in a single line with
            the data in between.  In this case, you'd have to
            search within that line and you may need a function like
            instr(). I'm not going to do that here but only treat
            your file as in the example you posted.
         remend

rem check for header
         if lower$(Copy$) = ""
            temp$=Copy$
            rem loop again until endupdate is found
            while lower$(temp$) <> "" and file end(fn) <> 1
               read string fn,temp$
               rem there's a chance that there isn't anything in between the update tags
               if lower$(temp$)="" then exit

inc newcount
               CopyTemp$(newcount) = temp$
            endwhile
         endif

rem loop around until next beginupdae is found
      endwhile

close file fn

endif

rem it's likely that the array is smaller because of the omission
rem of the headers and footers so let's make a new one sized down
dim out$(newcount)
for n=1 to newcount
   out$(n)=CopyTemp$(n)
next n
undim CopyTemp$(linecount)

File$= "htmlFile.txt"
If File Exist(File$)= 1 then Delete File File$
Save Array File$, out$(newcount)
UnDim out$(newcount)

sync

+ Code Snippet

sync on

rem store the file name in a variable - allows flexibility depending
rem on how we obtain the file name
fname$="index.html"

rem does the file exist?
if file exist(fname$)
   rem true so we continue
   rem Assuming this file is a text file where each line is
   rem a string ending with chr$(13)+chr$(10) (carriage return+linefeed )
   rem if it's not, you have to write custom code to determine the grouping
   rem of data.  The custom routine is beyond the scope of this example.

   rem let's get the number of lines in the file first so we can dimension
   rem our arrays once

   rem check file number.  If it is already open, choose another
   fn=1
   while file open(fn)
      inc fn
   endwhile

   rem open the file and get a count of the lines
   open to read fn,fname$
      rem loop through file until it's finished
      linecount=0
      while file end(fn) <> 1
         read string fn,a$
         inc linecount
      endwhile
   close file fn

   rem we have the line count for our array so dimension it
   dim CopyTemp$(linecount)

   rem now reopen the file and parse it into the array
   newcount=0
   open to read fn,fname$
      while file end(fn) <> 1
         rem read in each line
         read string fn,Copy$

         remstart
            If the file isn't formatted neatly, headers and
            footers might be contained in a single line with
            the data in between.  In this case, you'd have to
            search within that line and you may need a function like
            instr(). I'm not going to do that here but only treat
            your file as in the example you posted.
         remend

         rem check for header
         if lower$(Copy$) = "<!-- beginupdate /-->"
            temp$=Copy$
            rem loop again until endupdate is found
            while lower$(temp$) <> "<!-- endupdate /-->" and file end(fn) <> 1
               read string fn,temp$
               rem there's a chance that there isn't anything in between the update tags
               if lower$(temp$)="<!-- endupdate /-->" then exit

               inc newcount
               CopyTemp$(newcount) = temp$
            endwhile
         endif

         rem loop around until next beginupdae is found
      endwhile

   close file fn

endif

rem it's likely that the array is smaller because of the omission
rem of the headers and footers so let's make a new one sized down
dim out$(newcount)
for n=1 to newcount
   out$(n)=CopyTemp$(n)
next n
undim CopyTemp$(linecount)

File$= "htmlFile.txt"
If File Exist(File$)= 1 then Delete File File$
Save Array File$, out$(newcount)
UnDim out$(newcount)

sync

Enjoy your day.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / How do you copy and paste file to file using arrays?