file delete line?

[B3TA_SCR1PT3R]

yeah so i got a really big .txt file and i only wont the word "Directory" deleted from it how would i go about doing this..it has about 200-300 lines and the words appears about every 20-30 lines.? ..so?

[SupraNatural]

Why don't you just open it up and do a replace all of "directory" with "" ?

[GaryFrost]

probably the best way is to filereadtoarray then stringreplace for each line in the array then write the file back out.

[B3TA_SCR1PT3R]

#include <GuiConstants.au3>
#include <file.au3>
#include <Process.au3>
GLOBAL $aRecords
GuiCreate("*Insert Flashy Title Here*",700,400)
$tree = GuiCtrlCreateTreeView(25,50,500,200)
$BTN_1 = GuiCtrlCreateButton("List Files",100,300,75,35)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
        Select
        Case $msg = $BTN_1 
            _RunDOS("dir /s >> C:\~~Files.txt")
            _FileReadToArray("C:\~~Files.txt",$aRecords)
                If @error = 1 Then MsgBox(4096 + 16,"Error"," Error reading file to Array")
            For $x = 1 to $aRecords[0]
                GuiCtrlCreateTreeViewItem($aRecords[$x],$tree)
            Next
        EndSelect
WEnd

should i even attempt to clean out all the crap in that file? look how many stringreplace or watever id have to do?

[GaryFrost]

Wanting to delete the line or just the word?

Example of removing the line:

#include <GuiConstants.au3>
#include <file.au3>
#include <Process.au3>
#include <Array.au3>

GLOBAL $aRecords
GuiCreate("*Insert Flashy Title Here*",700,400)
$tree = GuiCtrlCreateTreeView(25,50,500,200)
$BTN_1 = GuiCtrlCreateButton("List Files",100,300,75,35)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
        Select
        Case $msg = $BTN_1 
            _RunDOS("dir /s > C:\~~Files.txt")
            _FileReadToArray("C:\~~Files.txt",$aRecords)
                If @error = 1 Then MsgBox(4096 + 16,"Error"," Error reading file to Array")
                _CleanUp($aRecords, "Directory of")
            For $x = 1 to $aRecords[0]
                GuiCtrlCreateTreeViewItem($aRecords[$x],$tree)
            Next
        EndSelect
WEnd

Func _CleanUp(ByRef $aRecords, $s_remove)
    For $x = 1 To $aRecords[0]
        If StringInStr($aRecords[$x],$s_remove) Then
            _ArrayDelete($aRecords, $x)
            $aRecords[0] = $aRecords[0] - 1
        EndIf
    Next
EndFunc

Edited August 23, 2005 by gafrost

[B3TA_SCR1PT3R]

Wanting to delete the line or just the word?

Example of removing the line:

#include <GuiConstants.au3>
#include <file.au3>
#include <Process.au3>
#include <Array.au3>

GLOBAL $aRecords
GuiCreate("*Insert Flashy Title Here*",700,400)
$tree = GuiCtrlCreateTreeView(25,50,500,200)
$BTN_1 = GuiCtrlCreateButton("List Files",100,300,75,35)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
        Select
        Case $msg = $BTN_1 
            _RunDOS("dir /s > C:\~~Files.txt")
            _FileReadToArray("C:\~~Files.txt",$aRecords)
                If @error = 1 Then MsgBox(4096 + 16,"Error"," Error reading file to Array")
                _CleanUp($aRecords, "Directory of")
            For $x = 1 to $aRecords[0]
                GuiCtrlCreateTreeViewItem($aRecords[$x],$tree)
            Next
        EndSelect
WEnd

Func _CleanUp(ByRef $aRecords, $s_remove)
    For $x = 1 To $aRecords
        If StringInStr($aRecords[$x],$s_remove) Then
            _ArrayDelete($aRecords, $x)
            $aRecords[0] = $aRecords[0] - 1
        EndIf
    Next
EndFunc

<{POST_SNAPBACK}>

hey thanks alot man this is exactly wat i needed .....but it only removes the first "Directory of"

im thinkin a Do...Until (array = 0) but i dont know how to word that..or anything else would be fine to

[GaryFrost]

Noticed that also, fixed it:

expandcollapse popup

#include <GuiConstants.au3>
#include <file.au3>
#include <Process.au3>
#include <Array.au3>

GLOBAL $aRecords
GuiCreate("*Insert Flashy Title Here*",700,400)
$tree = GuiCtrlCreateTreeView(25,50,500,200)
$BTN_1 = GuiCtrlCreateButton("List Files",100,300,75,35)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
        Select
        Case $msg = $BTN_1 
            _RunDOS("dir /s > C:\~~Files.txt")
            _FileReadToArray("C:\~~Files.txt",$aRecords)
                If @error = 1 Then MsgBox(4096 + 16,"Error"," Error reading file to Array")
                _CleanUp($aRecords, "Directory of")
            For $x = 1 to $aRecords[0]
                GuiCtrlCreateTreeViewItem($aRecords[$x],$tree)
            Next
        EndSelect
WEnd

Func _CleanUp(ByRef $aRecords, $s_remove)
    $x = 1
    do
            $aRecords[$x] = StringStripCR($aRecords[$x])
            If Stringlen($aRecords[$x]) = 0 Then
                _ArrayDelete($aRecords, $x)
                $aRecords[0] = $aRecords[0] - 1
            ElseIf StringInStr($aRecords[$x],$s_remove) Then
                _ArrayDelete($aRecords, $x)
                $aRecords[0] = $aRecords[0] - 1
            Else
                $x = $x + 1
            EndIf
    Until $x = $aRecords[0]
EndFunc

[B3TA_SCR1PT3R]

hey how many files do you have in your tree list thing

mynes 6000+

[GaryFrost]

ouch, 2000+ but i have a fileserver so this one doesn't get cluttered.

[B3TA_SCR1PT3R]

ouch, 2000+ but i have a fileserver so this one doesn't get cluttered.

<{POST_SNAPBACK}>

ah so..

..now comes the hardest task.........making treeitems for each directory <<thats how i feel combined for >>

hey theres something to brag about to the ladies...(6000+ files)

Edited August 23, 2005 by B3TA_SCR1PT3R

[LxP]

2,000? 6,000?

I reformatted this computer a mere week ago and my system drive contains 20,516 files without any personal files stored on it.

[B3TA_SCR1PT3R]

2,000? 6,000?

I reformatted this computer a mere week ago and my system drive contains 20,516 files without any personal files stored on it.

<{POST_SNAPBACK}>

...wat are you running ALL windows versions?

[LxP]

Nope, just one fresh install of XP Pro SP2. The Windows folder itself has 11,500 files in it though.