AutoHotkey Community

DELETEGUI_Ok:
  IF $DM_Temp1 =
  {
    Notify($DelGuiName " - ERROR", "No Movie has been Selected!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
    RETURN
  } ELSE {
    IF LB_GETCOUNT = 0
    {
      ;RESERVED
    } ELSE {
      FileRead $FileReadOutput, % $MovieList
      StringTrimRight, $DMF, $DMF, 1
      Loop Parse, $DMF, |
      {
        StringReplace $AppendOutput4, $FileReadOutput, %A_LoopField%, , All
        StringReplace $AppendOutput4, $AppendOutput4, `r`n`r`n, `r`n, All
      }   
      IF Errorlevel = 0
      {
        FileDelete % $MovieList
        FileAppend % $AppendOutput4, % $MovieList
        Gui %$MainGui%: Default
        RowNumber = 0
        While RowNumber := LV_GetNext(RowNumber - 1)
          LV_Delete(RowNumber)   
        Notify($DelGuiName " - INFO","All [ " . LB_GETCOUNT . " ] entries have been Deleted Successfully!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
        MovieCount()
      }   
      ELSE IF Errorlevel = 1
        Notify($DelGuiName " - ERROR","There was an Error with Deleting!", "5", "GC=White TC=Black MC=Black IN=13", $ResDLL)
      Gui %$DelGui%: Submit
      IF $MovieCount = 0
        GuiControl %$MainGui%: Text, $MOVIESEARCH,
    }
  }
  Loop 6
    $DM_Temp%A_Index% := ""
  IL_Destroy(hIL)
  Gui %$MainGui%: -Disabled
  Gui %$MainGui%: Default
  WinActivate ahk_id %MLWIN_ID%
RETURN

FileRead, mveFile, c:\SomeFolder\MovieList.txt
newFile =

Loop, Parse, mveFile, `n
  IfNotInString, a_loopfield, Some Text
    newFile := newFile a_loopfield `n

FileDelete, c:\SomeFolder\MovieList.txt
FileAppend, newFile, c:\SomeFolder\MovieList.txt

;------- create a test-file ----
F1=%A_scriptdir%\test55.txt
Gui,1:default
Gui,1:Font,S10 cDefault, Verdana

EF=`r
ifnotexist,%F1%
{
AA=
(
Line3A;3AA;3AAA;3AAAA%EF%
Line1A;1BB;1CCC;1DDDD%EF%
Line5A;5BB;5CCC;5DDDD%EF%
Line2A;2BB;2CCC;2DDDD%EF%
Line4A;4BB;4CCC;4DDDD%EF%
)
Fileappend,%AA%`n,%F1%
}


T1=200       ;column1 width
T2=100       ;column2 width
T3=100       ;column3 width
T4=100       ;column4 width
LSW:=(T1+T2+T3+T4+20)    ;Listview width
GSW:=(LSW+30)            ;GUI      width
Gui,1:Add, ListView,x10 y10 h280 w%LSW%   grid +hscroll nosorthdr altsubmit vMLV1A gMLV1B, AA|BB|CC|DD
  LV_ModifyCol(1,T1)
  LV_ModifyCol(2,T2)
  LV_ModifyCol(3,T3)
  LV_ModifyCol(4,T4)
gosub,SB
Gui,1:Show, x2 y0 w%GSW% h610,TEST FILEREAD
return
;-------------------------------

Guiclose:
exitapp

SB:
Gui,1:ListView,MLV1A
LV_Delete()
  loop,read,%F1%
  {
  stringsplit,C,A_LoopReadLine,`;,
  LV_Add("",C1,C2,C3,C4)
  }

GC:=LV_GetCount()
LV_Modify(LV_GetCount(), "Vis")    ;jumps to last row
;GuiControl,1:Text,TOT1,%GC%
LV_Modify(GC, "+Select +Focus")    ;focus last row
return

;=================================================

;---------------------------------


;-----------------------------------------------
MLV1B:
Gui,1:Submit,nohide
Gui,1:ListView,MLV1A
    RN:=LV_GetNext("C")
    RF:=LV_GetNext("F")
    GC:=LV_GetCount()

if A_GuiEvent=normal
    return


;--------- DELETE multiple rows in text-file -----------
if A_GuiEvent = RightClick
{
CLL=
RF= 0
RFL=
Loop
   {
   RF:=LV_GetNext(RF)
     if (RF="" OR RF=0)
         break
   RFL = %RF%|%RFL%      ;yyy
   LV_GetText(CLL_Temp,RF,1)
   CLL = %CLL%`n%CLL_Temp%
   }

if CLL !=
 {
   msgbox, 262452, DELETE,Want you delete lines in %F1%`n%CLL%?
   IfMsgBox,No
      Return
   Else
   {
      Loop, parse, RFL, |      ;yyy
          LV_Delete(A_LoopField)

    filedelete,%F1%
    RFL=
    CLL=
    Loop % LV_GetCount()
      {
      BX1=
      BX2=
      BX3=
      BX4=
      LV_GetText(BX1,A_INDEX,1)
      LV_GetText(BX2,A_INDEX,2)
      LV_GetText(BX3,A_INDEX,3)
      LV_GetText(BX4,A_INDEX,4)
      e4=%e4%%BX1%`;%BX2%`;%BX3%`;%BX4%`r`n
      }
   Fileappend,%E4%,%F1%
   e4=
   }
 }
Gosub,SB
return
}
return

;-------- removexxx somelines in textfile which contains zzzz -----
F1=test1.txt
;ifexist,%f1%
;  filedelete,%f1%

a4=
(
aaaa
bbbbzzzzccc
dddd
eeee
zzzz
ggggrrrr
)

stringreplace,a4,a4,`r,`r`n
ifnotexist,%f1%
  Fileappend,%a4%,%f1%

S1=zzzz
FileRead, mveFile,%f1%
newFile =

Loop, Parse, mveFile, `n
  {
  IfNotInString, a_loopfield, %s1%
    new1=%new1%%a_loopfield%
  }
FileDelete, %f1%
FileAppend,%new1%,%f1%
run,%f1%
return