LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #5   Report Post  
Posted to microsoft.public.excel.programming,microsoft.public.scripting.vbscript,microsoft.public.scripting.wsh
external usenet poster
 
Posts: 8
Default How to delete rows in a csv file?

I got it working using Crash's approach. Thanks!

""Crash" Dummy" wrote in message
...
I have a vbscript that appends data to a csv file on a daily basis. When
new
data gets appended to the bottom rows of the file, I'd like the oldest
data
in the top rows to be deleted. Does anyone know how I can delete the top
3
rows every time the file gets appended? Here's what I've got so far:


Unfortunately, you can not read/write with random access to a file from
VBScript. You can, however, edit the contents of one file while copying it
to a
second file, or while the complete file is in memory. As usual, there are
several ways to do it.How exactly you do it depends on how big the file is
and
on personal preference. Here is how I might do it, using the example code
you
posted:

'your code
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fsoOut = CreateObject("scripting.filesystemobject")
Set outFile = fsoOut.OpenTextFile("MyFile.csv", ForAppending, True)
outFile.writeline (Now & "," & DataValue)
outFile.close

'added code
Set inFile= fsoOut.OpenTextFile("MyFile.csv", ForReading, True)
Set tempFile=fso.CreateTextFile("MyFile.tmp")

for n=0 to 2:inFile.skipLine:next

do until inFile.AtEndOfStream
line=inFile.readLine
tempFile.writeLine line
loop

inFile.close
tempFile.close

fsoOut.deleteFile "MyFile.csv"
fsoOut.moveFile "MyFile.tmp", "MyFile.csv"
--
Crash







 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Trying to delete blank rows after file save pm Excel Discussion (Misc queries) 2 April 15th 10 11:58 PM
How to delete alternating BLANK rows in .xls file all @ once? Desperate Excel Discussion (Misc queries) 3 October 27th 09 08:34 PM
How delete to end of file; comp keeps adding rows; over 3000! whalesong Excel Worksheet Functions 1 September 8th 08 11:30 PM
Delete some rows at the end of the file Dan Excel Programming 1 September 20th 04 01:21 PM
Delete rows in Excel file with macros Krassimir Excel Programming 0 October 1st 03 01:04 PM


All times are GMT +1. The time now is 08:08 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"