Removing Text From A List

[Snarg]

This is what I have. I am opening the file in notepad. Does AutoIt care about the square thingys? If not, then it's not big deal and it's working great. I just don't know if they mess up the line count or not.

expandcollapse popup

Func DelName ()

  Local $A, $I, $File, $Line

    $NumberOfNames = IniRead ($SettingsFile, 'Settings', 'NumberOfNames', "ERROR")
    $RemName = InputBox ("Delete Name", "Enter the name to be deleted:", "")

      $Count = 0

        $FileHandle = FileOpen ("NameList.txt", 0)

          If $File = -1 Then
            MsgBox (0, "Error", "Unable to open file.")
            Exit
          EndIf

        $File2 = FileOpen ("TempNameList.txt", 2)

          If $File2 = -1 Then
           MsgBox (0, "Error", "Unable to open file.")
           Exit
        EndIf

  While 1

    $SearchLine = FileReadLine ($FileHandle)

      If @error = -1 Then ExitLoop
        If $SearchLine <> "" Then
          If $SearchLine <> $RemName Then
            If $count = 0 Then 
              FileWrite ($File2, $SearchLine)

            Else
              FileWrite ($File2, @CRLF&$SearchLine)
            EndIf

     $Count = $Count + 1
          Else
            $Out = MsgBox (4, $SearchLine &" found","Delete?")
              If $out=7 Then

                If $Count = 0 Then 
                  FileWrite ($File2, $SearchLine)
                Else
                  FileWrite ($File2, @CRLF & $SearchLine)
                EndIf

     $Count = $Count + 1

              EndIf
          EndIf
       EndIf

   Wend

FileClose ($FileHandle)
FileClose ($File2)
FileCopy ("TempNameList.txt", "NameUpList.txt", 1)
FileDelete ("TempNameList.txt")

$NumberOfNames = $Count
IniWrite ($SettingsFile, 'Settings', 'NumberOfNames', $NumberOfNames)

EndFunc

[scriptkitty]

Yes, the boxes matter, but...

This script will remove any extra returns, and if you were useing @lf, then AutoIt would read it as a line(or @cr or @CRLF), and if empty, it would remove it, if not, it would count it, so I guess the answer is it doesn't matter.

If you are getting other boxes (any ASC code that doesn't display), then there might be a problem.

Later on, if you wish to use part of a name (say you wanted to do this with Email addresses and are a bit lazy, change the if statement, as in a partial match. Ex:

If StringInStr(" " & $SearchLine,$RemName)=0 Then

This basically will find part of the Name. It will still ask you to confirm delete each time it finds a partial match.

edit... if it doesn't find any Part of the string, It returns 0.

Edited February 24, 2004 by scriptkitty

[Snarg]

Got it working perfectly now!

Thank you very much to all those who helped.

[redndahead]

Just for learnings sake here is my code Broken Down with comments added.

I really don't know what this does but you have it so I kept it =)

Local $File

This gets the name from the input box and then checks if the user hits cancel if they do then it returns back to the part in the script where the function was ran and returns the value zero.

So if you did

$CheckValue = DelName()

CheckValue would be 1 if it worked correctly and 0 if it didn't.

$RemName = InputBox ("Delete Name", "Enter the name to be deleted:", "")
   If @Error Then Return(0)

@Comspec is the dos prompt.

/c is to close the dos prompt after it is finished.

find is a dos command that seraches through a file.

/V is to show all values not containing a string

/I is for case insensitive search

"$Remname" is to search for the name from the input box

"$File" is the file to search

> @Tempdir.... is where to output the file

@SW_HIDE is to not show the dos box

RunWait(@Comspec & ' /c find /V /I "' & $RemName '" ' & $File & ' > ' & @Tempdir & '\TempOutput.txt',"",@SW_Hide)

Same as above but.

/C is to get the number of lines with a certain text.

I just switched from /I to /V this should help it now will search for all the lines not containing "ajdjakflj" which should be all of them. Unless your people have very strange names.

RunWait(@Comspec & ' /c find /C /V "ajdjakflj" ' & @Temp & '\TempOutput.txt > ' & @Temp & 'TempOutput2.txt',"",@SW_Hide)

Opens the file with the number of lines and then reads line 2 then closes it and deletes it.

$FileHandle = FileOpen(@Temp & '\TempOutput2.txt',0)

   $ReadLine = FileReadLine($FileHandle,2)

   FileClose($FileHandle)

   FileDelete(@Temp & '\TempOutput2.txt')

This will take the line read and splits it up into an array with the colon.

So the line read looks like

---------------Test.txt: 54

So $SplitValue[1] will equal ------------Test.txt and

$SplitValue[2] will equal 54

$SplitValue = StringSplit($Readline,":")

It then chages the 54 from a string to a number and assigns that to the variable $NumberOfNames

$NumberOfNames = Number($SplitValue[2])

It now moves or cuts the output file that I had when outputting all the names except the one you wanted to remove and pastes it over the old file with the list of names.

FileMove(@Temp & '\TempOutput.txt',$File,1)

Writes the number to your ini file

IniWrite ($SettingsFile, 'Settings', 'NumberOfNames', $NumberOfNames)

Then returns 1 for success

Return(1)

Hope this is helpful

red

[Snarg]

redndahead, thank you very much for breaking it down for me.

I have so much yet to learn...

[trids]

How do you tell what version you have?

You can write a scriptlet that says Msgbox(4096,"",@AutoItVersion)

.. or you can RightClick on your Aut2exe.exe and check out the version in the Properties dialog.

[scriptkitty]

here is an interesting way to see all the secondary command interpreter's command lines

run(@comspec & ' /c ' & @comspec & ' /? > c:\comspec.txt')

I thought it just looks funny. And it might surprise you that this will output 170+ lines.

I unfortunatly need to look at DOS help files to remember all thier command line options. I had way too many versions of DOS, DrDos, 4Dos, MsDos, IBMDos, OS2 command lines, Unix commandline, etc... besides the old apple, commador and other old OSs. ahh memories