AutoHotkey Community

MODIFIED=20100210
;-- LV_Modify(RFB, "Vis")   ; scrollto row visible aera
;-- see last selected file (doubleclick saves to inifile)


setworkingdir,%A_scriptdir%
R3C=%A_scriptdir%\CSVFILES
 ifnotexist,%R3C%
    {
    FileCreateDir,%R3C%
    Fileappend,test1_aaa1`;aaa1`r`n,%R3C%\test1.csv
    Fileappend,test1_aaa2`;aaa2`r`n,%R3C%\test1.csv
    Fileappend,test2_bbb1`;bbb1`r`n,%R3C%\test2.csv
    Fileappend,test2_bbb2`;bbb2`r`n,%R3C%\test2.csv
    Fileappend,test3_ccc1`;ccc1`r`n,%R3C%\test3.csv
    Fileappend,test3_ccc2`;ccc2`r`n,%R3C%\test3.csv
    }

RSSINI=%A_scriptdir%\RSSINI.txt
gosub,iniread11
Gui,2:Add, ListView,    backgroundGray  cWhite grid x5   y0  h250 w300 +hscroll altsubmit vLB1 gLB , CSV1
Gui,2:Add, ListView,    backgroundTeal  cWhite grid x310 y0  h250 w300 +hscroll altsubmit vA1  gLW2, A|B
gosub,FilllistviewB1
gosub,FilllistviewA1
Gui,2:Show,x0 y0 w620 h300,TEST33
return
;-------------------------------------------------------------------

;==================== INIREAD LASTSELECTED ========================
INIREAD11:
IniRead, R3BB      , %rssini%  ,LASTSELECTEDXX  , KEY4
SplitPath,R3BB, namex, dir, ext, name_no_ext, drive
return
;-------------------------------------------------------------------

;====================  LV_LEFT show *.csv and mark the file lastselected.csv  ===================
FillListViewB1:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,LB1

LV_Delete()
LV_ModifyCol(1,280)
loop,%R3C%\*.csv
  {
   FX=%A_LoopFileName%
   stringlen,L1,FX
   stringmid,FA,FX,1,L1-4
   LV_Add("",FA)
  }

LV_ModifyCol(1, "Sort")
searchedfile=%name_no_ext%
LV_Modify(RFB, "-Select -Focus")
RFB:=0
  loop, % LV_GetCount()
      {
      RFB:=(RFB+1)
      LV_GetText(CKL,RFB,1)
      ifinstring,CKL,%searchedfile%
          {
          LV_Modify(RFB, "+Select +Focus")
          break
          }
      }
LV_Modify(RFB, "Vis")   ; scrollto row visible aera
R3X=%R3C%\%CKL%.csv
return
;--------------------

FilllistviewA1:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,A1

LV_Delete()
LV_ModifyCol(1,140)
LV_ModifyCol(2,140)

loop,read,%R3X%
  {
  I++
  BX1=
  BX2=
  stringsplit,BX,A_LoopReadLine,`;,
  LV_Add("",BX1,BX2)
  }
LV_ModifyCol(1, "Sort")
return



;--------------------
2GuiClose:
exitapp
;--------------------

;---- LV_LEFT-------
LB:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,LB1

  RNB:=LV_GetNext("C")  ;2  selected checked
  RFB:=LV_GetNext("F")  ;2  selected focused
  GCB:=LV_GetCount()    ;4  total

if A_GuiEvent=normal
  {
  LV_GetText(C1,A_eventinfo,1)
  R3X=%R3C%\%C1%.csv
  gosub,FilllistviewA1
  return
  }

if A_GuiEvent=doubleclick
  {
  LV_GetText(C1,A_eventinfo,1)
  R3X=%R3C%\%C1%.csv
  IniWrite,%r3x%     , %rssini%  ,LASTSELECTEDXX          , KEY4
  run,%r3x%
  }

return
;===============================================================

LW2:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,A1

 if A_GuiEvent = Normal
  {
  C1=
  C2=
  LV_GetText(C1,A_EventInfo,1)
  LV_GetText(C2,A_EventInfo,2)
  msgbox,C1=%c1%`nC2=%c2%
  }
return
;===============================================================

IniRead, LastFile, %DrvLtr%:\Portable\FileDirCfg.ini, LastFile, Viewing , 0

Loop, %DrvLtr%:\Portable\*.*
   {
   LV_Add("", A_LoopFileName)
   if (LastFile = A_LoopFileName)
      {
      SelectRow := A_Index
      TrayTip, File Directory, Last File was %LastMovie%`nfound at Row #%SelectRow%
      }
   }
   

WinActivate, Video Directory
LV_Modify(%SelectRow%, "+Select +Focus") ; select

MODIFIED=20100210
;-- LV_Modify(RFB, "Vis")   ; scrollto row visible aera

DrvLtr=E   ;searches in (E)  %DrvLtr%:\Portable\*.*

setworkingdir,%A_scriptdir%
RSSINI=%A_scriptdir%\RSSINI.txt
gosub,iniread11

Gui,2:Add, ListView,    backgroundTeal  cWhite grid x10 y0  h250 w300 +hscroll altsubmit vA1  gLW2, A|B
gosub,FilllistviewA1
Gui,2:Show,x0 y0 w320 h300,TEST33
return
;-------------------------------------------------------------------
;==================== INIREAD LASTSELECTED ========================
INIREAD11:
IniRead, R3X     , %rssini%  ,LASTSELECTEDXX  , KEY4
SplitPath,R3X, namex, dir, ext, name_no_ext, drive
return
;-------------------------------------------------------------------


FilllistviewA1:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,A1

LV_Delete()
LV_ModifyCol(1,280)
LV_ModifyCol(2,0)

Loop, %DrvLtr%:\Portable\*.*
   LV_Add("", A_LoopFileName,A_LoopFileFullPath)
LV_ModifyCol(1, "Sort")

searchedfile=%R3X%
LV_Modify(RFB, "-Select -Focus")
RFB:=0
  loop, % LV_GetCount()
      {
      RFB:=(RFB+1)
      LV_GetText(CKL,RFB,1)
      ifinstring,CKL,%searchedfile%
          {
          LV_Modify(RFB, "+Select +Focus")
          break
          }
      }
;LV_ModifyCol(1, "Sort")
;LV_Modify(LV_GetCount(), "Vis")         ;scroll to last position lastline
LV_Modify(RFB, "Vis")   ; scrollto row visible aera
return



;--------------------
2GuiClose:
exitapp
;--------------------

LW2:
Gui,2:Submit,nohide
Gui,2:Default
Gui,2:Listview,A1

 if A_GuiEvent = Normal
  LV_GetText(C1,A_EventInfo,1)

if A_GuiEvent=doubleclick
  {
  LV_GetText(C1,A_eventinfo,1)
  LV_GetText(C2,A_eventinfo,2)
  IniWrite,%C1%     , %rssini%  ,LASTSELECTEDXX          , KEY4
  run,%C2%
  }
return
;==========================================================

.....
LV_ModifyCol(1, "Sort")
LV_Modify(LV_GetCount(), "vis")         ;scroll to last position lastline
return

searchedfile=%R3X%
LV_Modify(RFB, "-Select -Focus")
RFB:=0
  loop, % LV_GetCount()
      {
      RFB:=(RFB+1)
      LV_GetText(CKL,RFB,1)
      ifinstring,CKL,%searchedfile%
          {
          LV_Modify(RFB, "+Select +Focus")
          break
          }
      }
LV_ModifyCol(1, "Sort")
LV_Modify(RFB, "Vis")         ;Use last RFB increment
return

....
;Loop, %DrvLtr%:\M_VIDEO\*.*,0,1
Loop, %DrvLtr%:\portable\*.*
   LV_Add("", A_LoopFileName,A_LoopFileFullPath)
LV_ModifyCol(1, "Sort")

searchedfile=%R3X%
LV_Modify(RFB, "-Select -Focus")
RFB:=0
  loop, % LV_GetCount()
      {
      RFB:=(RFB+1)
      LV_GetText(CKL,RFB,1)
      ifinstring,CKL,%searchedfile%
          {
          LV_Modify(RFB, "+Select +Focus")
          ;LV_Modify(RFB, "Vis")
          break
          }
      }
;LV_ModifyCol(1, "Sort")
;LV_Modify(LV_GetCount(), "vis")         ;scroll to last position lastline
LV_Modify(RFB, "Vis")
return