 |
AutoHotkey Community
Wir helfen uns gegenseitig aus der Patsche
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
garry
Anmeldedatum: 25.10.2005
Beiträge: 396
Wohnort: switzerland
|
 Verfasst am: Fr Jan 27, 2006 11:15 am Titel: Listview Example (Mini-Excel) |
 |
|
MODIFIED = 20080426 Neues Beispiel mit Kontenplannummer
Listview example saldo12.ahk
-Neu dazu
-Editieren
-Löschen
-Kontenplannummer anzeigen
| Code: |
MODIFIED=20080426
/*
name =saldo12.ahk
create =20060113
saldo with dropdownlist
kontenplannummer
*/
#NoTrayIcon
autotrim,off
transform,S,chr,32
S1=%S% %S%
setworkingdir, %A_scriptdir%
F1=SALDO12.TXT
setformat,float,0.2
;--------- definition income / outcome ------
;--------- KontenPlanNummer -----------------
VARN00=%S%
;--- INCOME --------
VARN01=01-LOHN1
VARN02=02-LOHN2
;--- OUTCOME --------
VARN11=11-DRINK
VARN12=12-Electronic
VARN13=13-Book
;---------------------------------------------
Gui, Color, 000000
Gui, Font, S10 CDefault , FixedSys
;------ these lines for test ------------------
ifnotexist,%F1%
{
fileappend,2006-01-10;%VARN01%;Lohn;200.50;;`r`n,%F1%
fileappend,2006-01-11;%VARN11%;remarkB;;20.50;`r`n,%F1%
fileappend,2006-01-11;%VARN11%;remarkC;;12.50;`r`n,%F1%
fileappend,2006-01-12;%VARN12%;remarkD;;22.00;`r`n,%F1%
fileappend,2006-01-12;%VARN12%;remarkE;;11.00;`r`n,%F1%
fileappend,2006-01-12;%VARN12%;remarkF;;17.00;`r`n,%F1%
fileappend,2006-01-12;%VARN13%;remarkG;;24.50;`r`n,%F1%
}
;----------- test end --------------------------
T1=100 ; DATE
T2=100 ; KNR
T3=150 ; PRODUCT
T4=70 ; EIN
T5=70 ; AUS
T6=70 ; SALDO
T5A:=T1+T2+T3+T4+T5+T6+20 ;listview width
T5B:=T5A+30 ;guishow width
T5C:=T5A-60 ;Position Button Delete
T5D:=T5A-150 ;Position Button AddNew
T5E:=T5A-240 ;Position Button Insert missing
T5F:=T5A-320 ;Position Button Edit
Gui,1:Add, ListView,grid r20 w%T5A% +hscroll altsubmit vMLV1 gMLV2, DATE|KNR|PRODUCT|EIN|AUS|SALDO
Gui,1:Font, S8 cwhite, Verdana
Gui,1:Add, Edit, x12 y355 w%T5A% h20 ReadOnly vC,
Gui,1:Add, Edit, cBlue x12 y380 w200 h20 vSEARCH1 gSEARCH1,
Gui,1:Add,Button, x%T5C% y378 w70 h20,Delete
Gui,1:Add,Button, x%T5D% y378 w70 h20,AddNew
Gui,1:Add,Button, x%T5F% y378 w70 h20,Edit
Gui,1:Add,Button, x10 y410 w90 h20 g101e,%VARN01%
Gui,1:Add,Button, x110 y410 w90 h20 g102e,%VARN02%
Gui,1:Add,Button, x10 y440 w90 h20 g111e,%VARN11%
Gui,1:Add,Button, x110 y440 w90 h20 g112e,%VARN12%
Gui,1:Add,Button, x210 y440 w90 h20 g113e,%VARN13%
Gui,1:Add,Button, x10 y465 w90 h20 gALLE,SHOWALL
LB:
Gui,1:submit,nohide
GuiControl,1:Enable,AddNew
GuiControl,1:Enable,Edit
GuiControl,1:Enable,Delete
LV_ModifyCol(1,T1)
LV_ModifyCol(2,T2)
LV_ModifyCol(3,T3)
LV_ModifyCol(4,T4)
LV_ModifyCol(5,T5)
LV_ModifyCol(6,T6)
LV_ModifyCol(4,"Integer")
LV_ModifyCol(5,"Integer")
LV_ModifyCol(6,"Integer")
Z3:=0
Z4:=0
Z5:=0
Y1:=0
LV_Delete()
loop,read,%F1%
{
C1:=0
C2:=0
C3:=0
C4:=0
C5:=0
C6:=0
stringsplit,C,A_LoopReadLine,`;,
if C4 =
C4 :=0
if C5 =
C5 :=0
Z4:=(C4+Z4)
Z5:=(C5+Z5)
Z6:=(Z4-Z5)
C4 +=0.00
C5 +=0.00
Z4 +=0.00
Z5 +=0.00
Z6 +=0.00
if C4=0.00
C4=
if C5=0.00
C5=
if Z6=0.00
Z6=
;----- count total KNR ----------
if C2=%VARN01%
VART01:=(VART01+(C4))
if C2=%VARN02%
VART02:=(VART02+(C4))
if C2=%VARN11%
VART11:=(VART11+(C4))
if C2=%VARN12%
VART12:=(VART12+(C4))
if C2=%VARN13%
VART13:=(VART13+(C4))
LV_Add("",C1,C2,C3,C4,C5,Z6)
}
LV_ModifyCol(1, "Logical SortAsc")
LV_Modify(LV_GetCount(), "Vis")
stringlen,L1,Z4
stringlen,L2,Z5
stringlen,L3,Z6
LM1:=(100-L1)
LM2:=(15-L2)
LM3:=(13-L3)
stringmid,P1,S1,1,LM1
stringmid,P2,S1,1,LM2
stringmid,P3,S1,1,LM3
GuiControl,1:,C,%P1%%Z4%%P2%%Z5%%P3%%Z6%
Gui,1:Show, x2 y0 w%T5B% h500,MATHE
return
;=============================================
ALLE:
VARX=
gosub,lb
return
101E:
Gui,1:submit,nohide
VARX=%VARN01%
gosub,100e
return
102E:
Gui,1:submit,nohide
VARX=%VARN02%
gosub,100e
return
111E:
Gui,1:submit,nohide
VARX=%VARN11%
gosub,100e
return
112E:
Gui,1:submit,nohide
VARX=%VARN12%
gosub,100e
return
113E:
Gui,1:submit,nohide
VARX=%VARN13%
gosub,100e
return
100E:
Z4:=0
Z5:=0
Z6:=0
Y1:=0
Z4 +=0.00
Z5 +=0.00
Z6 +=0.00
LV_Delete()
loop,read,%F1%
{
C1:=0
C2:=0
C3:=0
C4:=0
C5:=0
C6:=0
stringsplit,C,A_LoopReadLine,`;,
if C4 =
C4 :=0
if C5 =
C5 :=0
if C2=%VARX%
{
Z4:=(C4+Z4)
Z5:=(C5+Z5)
Z6:=(Z4-Z5)
C4 +=0.00
C5 +=0.00
Z4 +=0.00
Z5 +=0.00
Z6 +=0.00
if C4=0.00
C4=
if C5=0.00
C5=
if Z6=0.00
Z6=
;---- KONTENPLANNUMMER --------
if VARX=%VARN01%
{
if C2=%VARN01%
VART01:=(VART01+(C4))
}
if VARX=%VARN02%
{
if C2=%VARN02%
VART02:=(VART02+(C4))
}
if VARX=%VARN11%
{
if C2=%VARN11%
VART11:=(VART11+(C4))
}
if VARX=%VARN12%
{
if C2=%VARN12%
VART12:=(VART12+(C4))
}
if VARX=%VARN13%
{
if C2=%VARN13%
VART13:=(VART13+(C4))
}
LV_Add("",C1,C2,C3,C4,C5,Z6)
}
}
LV_ModifyCol(1, "Logical SortAsc")
LV_Modify(LV_GetCount(), "Vis")
stringlen,L1,Z4
stringlen,L2,Z5
stringlen,L3,Z6
LM1:=(100-L1)
LM2:=(15-L2)
LM3:=(13-L3)
stringmid,P1,S1,1,LM1
stringmid,P2,S1,1,LM2
stringmid,P3,S1,1,LM3
GuiControl,,C,%P1%%Z4%%P2%%Z5%%P3%%Z6%
return
;=============================================
;------------------------- SEARCH ---------------------------------
SEARCH1:
Gui,1:submit,nohide
gosub,lb
GuiControl,1:Disable,AddNew
GuiControl,1:Disable,Edit
GuiControl,1:Disable,Delete
GuiControl,1:Text,Edit1,%NOTHING%
VARSRC=%SEARCH1%
if VARSRC=
goto,lb
Z4 :=0
Z5 :=0
Z6 :=0
LV_Delete()
I=0
loop,read,%F1%
{
LR=%A_loopReadLine%
C1 :=0
C2 =
C3 =
C4 :=0
C5 :=0
C6 :=0
if VARSRC<>
{
if LR contains %SEARCH1%
{
stringsplit,C,A_LoopReadLine,`;,
I++
if C4 =
C4 :=0
if C5 =
C5 :=0
if C6 =
C6 :=0
C4 +=0.00
C5 +=0.00
C6 +=0.00
C6:=(Z6+(C4-C5))
Z6:=(C6)
Z6+=0.00
Z4 :=(Z4+C4) ;Total IN
Z4+=0.00
Z5 :=(Z5+C5) ;Total OUT
Z5+=0.00
if C4=0.00
C4=
if C5=0.00
C5=
if C6=0.00
C6=
LV_Add("",C1,C2,C3,C4,C5,Z6)
}
}
else
continue
}
LV_Modify(LV_GetCount(), "Vis") ;scrollt nach unten
GuiControl,1:,C,%P1%%Z4%%P2%%Z5%%P3%%Z6%
return
;-----------------------------------------------------------
;--------- DELETE MULTIPLELINES ----------------------------
ButtonDelete:
C1 =
RF = 0 ;First line
RFL =
Loop
{
RF:=LV_GetNext(RF)
if RF=0
{
;msgbox,Select a row
break
}
RFL = %RF%|%RFL%
LV_GetText(C1_Temp, RF, 1)
C1 = %C1%`n%C1_Temp%
}
if C1 !=
{
MsgBox, 4, ,Want you really delete %C1% ?
IfMsgBox,No
Return
Else
{
Loop, parse, RFL, |
{
LV_Delete(A_LoopField)
}
filedelete,%F1%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
BX5=
BX6=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
LV_GetText(BX5,A_INDEX,5)
LV_GetText(BX6,A_INDEX,6)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%;%BX5%`r`n,%F1%
}
}
C1=
C2=
C3=
C4=
C5=
C6=
}
Goto,LB
;--------------------------------------------
;---------------------------------------------
ButtonEdit:
if RN=0
{
C1=
C2=
C3=
C4=
C5=
}
Gui,6:Font, S10 CDefault , FixedSys
Gui,6:Add,Text, x1 y5 w80 h20,DATE
Gui,6:Add,Edit, x80 y5 w420 h20 vA61,%C1%
Gui,6:Add,DropDownList,x80 y35 w420 r20 vA62, %VARN01%|%VARN02%|%VARN11%|%VARN12%|%VARN13%
Gui,6:Add,Text, x1 y65 w80 h20,PRODUCT
Gui,6:Add,Edit, x80 y65 w420 h20 vA63,%C3%
Gui,6:Add,Text, x1 y95 w80 h20,IN
Gui,6:Add,Edit, x80 y95 w420 h20 vA64,%C4%
Gui,6:Add,Text, x1 y125 w80 h20,OUT
Gui,6:Add,Edit, x80 y125 w420 h20 vA65,%C5%
Gui,6:Add, Button, x550 y150 w40 h25, OK
GuiControl,6:Choose,A62,%C2%
Gui,6:Show, x2 y410 w600 h180,Edit
return
;-----------
6GuiClose:
6GuiEscape:
Gui,6:Destroy
Gui,1:Default
return
;-----------
6ButtonOK:
Gui,6:submit,nohide
if A62=
A62=%C2%
if A64<>
A64 +=0.00
if A65<>
A65 +=0.00
FileRead,AA,%F1%
FileDelete,%F1%
StringReplace,BB,AA,%C1%;%C2%;%C3%;%C4%;%C5%,%A61%;%A62%;%A63%;%A64%;%A65%
FileAppend,%BB%,%F1%
Gui,6:Destroy
Gui,1:Default
goto,LB
;-------------------------------------------------
;-------------------------------------------------
ButtonAddNew:
{
C1=
C2=
C3=
C4=
C5=
}
Gui,4:Font, S10 CDefault , FixedSys
Gui,4:Add,DateTime,x80 y5 w180 h20 vTB ,%A41%
Gui,4:Add,DropDownList,x80 y35 w420 vA42, %VARN01%|%VARN02%|%VARN11%|%VARN12%|%VARN13%
Gui,4:Add,Text, x1 y65 w80 h20,PRODUCT
Gui,4:Add,Edit, x80 y65 w420 h20 vA43,%C3%
Gui,4:Add,Text, x1 y95 w80 h20,IN
Gui,4:Add,Edit, x80 y95 w420 h20 vA44,%C4%
Gui,4:Add,Text, x1 y125 w80 h20,OUT
Gui,4:Add,Edit, x80 y125 w420 h20 vA45,%C5%
Gui,4:Add, Button, x550 y150 w40 h25, OK
Gui,4:Show, x2 y410 w600 h180,AddNew
return
;-----------------------------------------------
;-----------
4GuiClose:
4GuiEscape:
Gui,4:Destroy
Gui,1:Default
return
;-----------
4ButtonOK:
Gui,4:submit
stringmid,YR4,TB,1,4
stringmid,MN2,TB,5,2
stringmid,DY2,TB,7,2
TDS=%YR4%-%MN2%-%DY2%
if (A44="" AND A45="")
{
Gui,4:Destroy
Gui,1:Default
return
}
A44+=0.00
A45+=0.00
if A44=0.00
A44=
if A45=0.00
A45=
FileAppend,%TDS%;%A42%;%A43%;%A44%;%A45%;`r`n,%F1%
Gui,4:Destroy
Gui,1:Default
A41=
Goto,LB
;------------------------------
;=========================================================
MLV2:
GuiControlGet,MLV2
Gui,1:Submit,nohide
if A_GuiEvent = Normal
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
LV_GetText(C5,A_EventInfo,5)
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
}
if A_GuiEvent = DoubleClick
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
LV_GetText(C5,A_EventInfo,5)
LV_GetText(C6,A_EventInfo,6)
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
msgbox,%C1%`r`n%C2%`r`n%C3%`r`n%C4%`r`n%C5%`r`n%C6%
return
}
return
;---------
GuiClose:
ExitApp
;==============================================================
|
Hier ein Beispiel mit eurer Hilfe erstellt
(ein unnötiger mini-excel)
Beispiel mit Listview, row:
-Vorwärts/rückwärts verschieben
-Editieren (korrigieren)
-Neu dazu
-Einfügen
-Löschen
| Code: | ;--- mathe01.ahk 2006-01-13 garry
#NoTrayIcon
autotrim,off
transform,S,chr,32
F1=MATHE.TXT
setformat,float,0.2
Gui, Color, 000000
Gui, Font, S10 CDefault , FixedSys
;------ these lines for test ------------------
RM1=%A_scriptDir%\%F1%
ifnotexist,%RM1%
{
fileappend,2006-01-11;productA;60.50;;`r`n,%RM1%
fileappend,2006-01-10;productB;60.00;;`r`n,%RM1%
fileappend,2006-01-09;productC;10.00;;`r`n,%RM1%
fileappend,2006-01-08;productD;30.00;;`r`n,%RM1%
fileappend,2006-01-07;productE;;50.70;`r`n,%RM1%
fileappend,2006-01-06;productF;;40.00;`r`n,%RM1%
fileappend,2006-01-05;productG;;60.00;`r`n,%RM1%
fileappend,2006-01-04;productH;10.00;;`r`n,%RM1%
}
;----------- test end --------------------------
T1=100 ;column1 width
T2=150 ;column2 width
T3=100 ;column3 width
T4=100 ;column4 width
T5=100 ;column5 width
T5A:=T1+T2+T3+T4+T5+20 ;listview width
T5B:=T5A+30 ;guishow width
T5C:=T5A-60 ;Position Button Delete
T5D:=T5A-150 ;Position Button AddNew
T5E:=T5A-240 ;Position Button Insert
T5F:=T5A-330 ;Position Button Edit
Gui,1:Add, ListView,grid r20 w%T5A% +hscroll altsubmit vMLV1 gMLV2, DATE|PRODUCT|IN|OUT|TOTAL
Gui,1:Font, S8 cwhite, Verdana
Gui,1:Add, Edit, x12 y355 w%T5A% h20 ReadOnly vC,
Gui,1:Add,Button, x%T5C% y378 w70 h20,Delete
Gui,1:Add,Button, x%T5D% y378 w70 h20,AddNew
Gui,1:Add,Button, x%T5E% y378 w70 h20,Insert
Gui,1:Add,Button, x%T5F% y378 w70 h20,Edit
Gui,1:Add,Button, x10 y378 w70 h20,<
Gui,1:Add,Button, x100 y378 w70 h20,>
LB:
Gui,1:submit,nohide
LV_ModifyCol(1,T1)
LV_ModifyCol(2,T2)
LV_ModifyCol(3,T3)
LV_ModifyCol(4,T4)
LV_ModifyCol(5,T5)
LV_ModifyCol(3,"Integer")
LV_ModifyCol(4,"Integer")
LV_ModifyCol(5,"Integer")
Z3:=0
Z4:=0
Z5:=0
LV_Delete()
loop,read,%F1%
{
C1:=0
C2:=0
C3:=0
C4:=0
C5:=0
stringsplit,C,A_LoopReadLine,`;,
if C3=
C3:=0
if C4=
C4:=0
if C5=
C5:=0
C3+=0.00
C4+=0.00
C5:=(Z5+(C3-C4))
Z5:=(C5) ;Total Column5
Z5+=0.00
Z3:=(Z3+C3) ;Total IN
Z3+=0.00
Z4:=(Z4+C4) ;Total OUT
Z4+=0.00
if C3=0.00
C3=
if C4=0.00
C4=
LV_Add("",C1,C2,C3,C4,Z5)
}
if FOWD=1
LV_Modify(RowNumber+1, "+Select")
if BACK=1
LV_Modify(RowNumber-1, "+Select")
S1=%S% %S%
stringlen,L1,Z3
stringlen,L2,Z4
stringlen,L3,Z5
LM1:=(82-L1)
LM2:=(22-L2)
LM3:=(21-L3)
stringmid,P1,S1,1,LM1
stringmid,P2,S1,1,LM2
stringmid,P3,S1,1,LM3
GuiControl,,C,%P1%%Z3%%P2%%Z4%%P3%%Z5%
Gui,1:Show, x2 y0 w%T5B% h400,MATHE
BACK=
FOWD=
return
;=============================================
;---------------------------------------------
Button<:
BACK=1
RowNumber:=LV_GetNext()
If (RowNumber >1)
{
;get data of old row
Loop, % LV_GetCount("Column")
LV_GetText(Col%A_Index%, RowNumber , A_Index)
;delete old row
LV_Delete(RowNumber)
;insert as new row
LV_Insert(RowNumber-1, "" . RowChecked,Col1,Col2,Col3,Col4,Col5)
filedelete,%F1%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
BX5=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
LV_GetText(BX5,A_INDEX,5)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%`r`n,%F1%
}
}
If (RowNumber=1)
BACK=
Goto,LB
;--------------
Button>:
FOWD=1
RowNumber:=LV_GetNext()
If (RowNumber >0)
{
Loop, % LV_GetCount("Column")
LV_GetText(Col%A_Index%, RowNumber , A_Index)
LV_Delete(RowNumber)
LV_Insert(RowNumber+1, "" . RowChecked,Col1,Col2,Col3,Col4,Col5)
filedelete,%F1%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
BX5=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
LV_GetText(BX5,A_INDEX,5)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%`r`n,%F1%
}
}
If (RowNumber=0)
FOWD=
Goto,LB
;--------------
ButtonDelete:
;RN:=LV_GetNext("C") ;2 selected checked
;RF:=LV_GetNext("F") ;2 selected focused
;GC:=LV_GetCount() ;4 total
MsgBox,4,,Want you %C2% really delete ?
IfMsgBox,No
Return
Else
LV_Delete(RN)
filedelete,%F1%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
BX5=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
LV_GetText(BX5,A_INDEX,5)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%`r`n,%F1%
}
Goto,LB
;---------------------------------------------
ButtonEdit:
if RN=0
{
C1=
C2=
C3=
C4=
}
Gui,6:Font, S10 CDefault , FixedSys
Gui,6:Add,Text, x1 y5 w80 h20,DATE
Gui,6:Add,Edit, x80 y5 w420 h20 vA61,%C1%
Gui,6:Add,Text, x1 y35 w80 h20,Product
Gui,6:Add,Edit, x80 y35 w420 h20 vA62,%C2%
Gui,6:Add,Text, x1 y65 w80 h20,IN
Gui,6:Add,Edit, x80 y65 w420 h20 vA63,%C3%
Gui,6:Add,Text, x1 y95 w80 h20,OUT
Gui,6:Add,Edit, x80 y95 w420 h20 vA64,%C4%
Gui,6:Add, Button, x550 y150 w40 h25, OK
Gui,6:Show, x2 y410 w600 h180,Edit
return
;-----------
6GuiClose:
6GuiEscape:
Gui,6:Destroy
Gui,1:Default
return
;-----------
6ButtonOK:
Gui,6:submit
FileRead,AA,%F1%
FileDelete,%F1%
StringReplace,BB,AA,%C1%;%C2%;%C3%;%C4%,%A61%;%A62%;%A63%;%A64%
FileAppend,%BB%,%F1%
Gui,6:Destroy
Gui,1:Default
goto,LB
;---------------------------------------------------
ButtonInsert:
Gui,5:Font, S10 CDefault , FixedSys
Gui,5:Add,Text, x1 y5 w80 h20,DATE
Gui,5:Add,Edit, x80 y5 w420 h20 vA51,%C1%
Gui,5:Add,Text, x1 y35 w80 h20,Product
Gui,5:Add,Edit, x80 y35 w420 h20 vA52,%C2%
Gui,5:Add,Text, x1 y65 w80 h20,IN
Gui,5:Add,Edit, x80 y65 w420 h20 vA53,%C3%
Gui,5:Add,Text, x1 y95 w80 h20,OUT
Gui,5:Add,Edit, x80 y95 w420 h20 vA54,%C4%
Gui,5:Add, Button, x550 y150 w40 h25, OK
Gui,5:Show, x2 y410 w600 h180,AddNew
return
;-----------
5GuiClose:
5GuiEscape:
Gui,5:Destroy
Gui,1:Default
return
;-----------
5ButtonOK:
Gui,5:submit
A53+=0.00
A54+=0.00
if A53=0.00
A53=
if A54=0.00
A54=
Gui,5:Destroy
Gui,1:Default
LV_Insert(RF,"",A51,A52,A53,A54)
Filedelete,%F1%
Loop % LV_GetCount()
{
BX1=
BX2=
BX3=
BX4=
BX5=
LV_GetText(BX1,A_INDEX,1)
LV_GetText(BX2,A_INDEX,2)
LV_GetText(BX3,A_INDEX,3)
LV_GetText(BX4,A_INDEX,4)
LV_GetText(BX5,A_INDEX,5)
Fileappend,%BX1%;%BX2%;%BX3%;%BX4%`r`n,%F1%
}
Goto,LB
;-------------------------------------------------
ButtonAddNew:
{
C1=
C2=
C3=
C4=
}
Gui,4:Font, S10 CDefault , FixedSys
Gui,4:Add,Text, x1 y5 w80 h20,DATE
Gui,4:Add,Edit, x80 y5 w420 h20 vA41,%C1%
Gui,4:Add,Text, x1 y35 w80 h20,Product
Gui,4:Add,Edit, x80 y35 w420 h20 vA42,%C2%
Gui,4:Add,Text, x1 y65 w80 h20,IN
Gui,4:Add,Edit, x80 y65 w420 h20 vA43,%C3%
Gui,4:Add,Text, x1 y95 w80 h20,OUT
Gui,4:Add,Edit, x80 y95 w420 h20 vA44,%C4%
Gui,4:Add, Button, x550 y150 w40 h25, OK
Gui,4:Show, x2 y410 w600 h180,AddNew
return
;-----------
4GuiClose:
4GuiEscape:
Gui,4:Destroy
Gui,1:Default
return
;-----------
4ButtonOK:
Gui,4:submit
A43+=0.00
A44+=0.00
if A43=0.00
A43=
if A44=0.00
A44=
FileAppend,%A41%;%A42%;%A43%;%A44%;`r`n,%F1%
Gui,4:Destroy
Gui,1:Default
Goto,LB
;------------------------------
MLV2:
GuiControlGet,MLV2
Gui, Submit,nohide
if A_GuiEvent = Normal
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
}
if A_GuiEvent = DoubleClick
{
LV_GetText(C1,A_EventInfo,1)
LV_GetText(C2,A_EventInfo,2)
LV_GetText(C3,A_EventInfo,3)
LV_GetText(C4,A_EventInfo,4)
LV_GetText(C5,A_EventInfo,5)
RN:=LV_GetNext("C")
RF:=LV_GetNext("F")
GC:=LV_GetCount()
msgbox,%C1%`r`n%C2%`r`n%C3%`r`n%C4%`r`n%C5%
return
}
return
;---------
GuiClose:
ExitApp
|
Zuletzt bearbeitet von garry am Sa Apr 26, 2008 8:39 pm, insgesamt 2-mal bearbeitet |
|
| Nach oben |
|
 |
BoBo
Gast
|
| Verfasst am: Fr Jan 27, 2006 4:28 pm Titel: |
|
|
Also das Zeilen einrücken üben wir noch !  | Code: | Kommando
{
Kommando
} |
| Code: | Kommando
{
Kommando
} |
| Code: | Kommando
{
Kommando
{
Kommando
}
} |
| Code: | Kommando
{
Kommando
{
Kommando
}
} |
Neuerdings möglich in AHK! | Code: | Kommando {
Kommando
} |
 |
|
| Nach oben |
|
|
AGU
Gast
|
| Verfasst am: Fr Jan 27, 2006 5:09 pm Titel: |
|
|
Also ich bin ja eher Verfechter der Methode
| Code: | Kommando
{
Kommando
}
|
Gruß
AGU |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 396
Wohnort: switzerland
|
| Verfasst am: Fr Jan 27, 2006 7:43 pm Titel: |
|
|
Hallo BoBo, AGU
habe Zeilen einrücken geübt (obigen script ersetzt) |
|
| Nach oben |
|
|
AGU
Gast
|
| Verfasst am: Fr Jan 27, 2006 9:23 pm Titel: |
|
|
Schon mal ein guter Anfang. Allerdings hast du vergessen die Befehle innerhalb der Klammer auch einzurücken. Also
| Code: | ifnotexist,%RM1%
{
fileappend,2006-01-11;productA;60.50;;`r`n,%RM1%
fileappend,2006-01-10;productB;60.00;;`r`n,%RM1%
fileappend,2006-01-09;productC;10.00;;`r`n,%RM1%
fileappend,2006-01-08;productD;30.00;;`r`n,%RM1%
fileappend,2006-01-07;productE;;50.70;`r`n,%RM1%
fileappend,2006-01-06;productF;;40.00;`r`n,%RM1%
fileappend,2006-01-05;productG;;60.00;`r`n,%RM1%
fileappend,2006-01-04;productH;10.00;;`r`n,%RM1%
} |
wird zu
| Code: | ifnotexist,%RM1%
{
fileappend,2006-01-11;productA;60.50;;`r`n,%RM1%
fileappend,2006-01-10;productB;60.00;;`r`n,%RM1%
fileappend,2006-01-09;productC;10.00;;`r`n,%RM1%
fileappend,2006-01-08;productD;30.00;;`r`n,%RM1%
fileappend,2006-01-07;productE;;50.70;`r`n,%RM1%
fileappend,2006-01-06;productF;;40.00;`r`n,%RM1%
fileappend,2006-01-05;productG;;60.00;`r`n,%RM1%
fileappend,2006-01-04;productH;10.00;;`r`n,%RM1%
} |
weil wir grad dabei sind. Toralf hat dieses SyntaxTidy Skript geschrieben, das solche Einrückungen nachträglich in dein Skript einfügt. Einfach mal anschauen, wenn du willst. 
http://www.autohotkey.com/forum/viewtopic.php?t=2528
Gruß
AGU |
|
| Nach oben |
|
|
garry
Anmeldedatum: 25.10.2005
Beiträge: 396
Wohnort: switzerland
|
| Verfasst am: Fr Jan 27, 2006 9:51 pm Titel: |
|
|
vielen Dank für eure Mühe
werde das tool gerne einsetzen
bis später... wünsche Euch ein schönes Wochenende |
|
| Nach oben |
|
|
|
|
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
|
Powered by phpBB © 2001, 2005 phpBB Group
Deutsche Übersetzung von phpBB.de |
FAQ
Suchen
Mitgliederliste
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
