!!! Bitte Thema verschieben, wenn im falschem Bereich gepostet !!!
Hallo.
Ich möchte endlich Array lernen, damit ich auch BugFix und die anderen Array User verstehe. Zur Hilfe nehme ich mir: BugFix Array Hilfe
Habe nun erst einmal folgendes geschrieben:
Spoiler anzeigen
Dim $arTest[50] ; Array hat 50 Werte
Dim $arTest[0] ; Array's kleinster Wert = 0, also $arTest[0]
Dim $arJahr[20] ; Array hat 20 Werte
Dim $arJahr[0] ; Array's kleinster Wert = 0; also $arJahr[0]
; hier die 50 Array-Werte
$arTest[0] = '001' ; 01.01. // 01. Januar
$arTest[1] = '002' ; 02.02. // 02. Januar
$arTest[2] = '003'
$arTest[3] = '004'
$arTest[4] = '005'
$arTest[5] = '006'
$arTest[6] = '007'
$arTest[7] = '008'
$arTest[8] = '009'
$arTest[9] = '010'
$arTest[10] = '011'
$arTest[11] = '012'
$arTest[12] = '013'
$arTest[13] = '014'
$arTest[14] = '015'
$arTest[15] = '016'
$arTest[16] = '017'
$arTest[17] = '018'
$arTest[18] = '019'
$arTest[19] = '020'
$arTest[20] = '021'
$arTest[21] = '022'
$arTest[22] = '023'
$arTest[23] = '024'
$arTest[24] = '025'
$arTest[25] = '026'
$arTest[26] = '027'
$arTest[27] = '028'
$arTest[28] = '029'
$arTest[29] = '030'
$arTest[30] = '031'
$arTest[31] = '032'
$arTest[32] = '033'
$arTest[33] = '034'
$arTest[34] = '035'
$arTest[35] = '036'
$arTest[36] = '037'
$arTest[37] = '038'
$arTest[38] = '039'
$arTest[39] = '040'
$arTest[40] = '041'
$arTest[41] = '042'
$arTest[42] = '043'
$arTest[43] = '044'
$arTest[44] = '045'
$arTest[45] = '046'
$arTest[46] = '047'
$arTest[47] = '048'
$arTest[48] = '049'
$arTest[49] = '050'
Dim $arJahr[0] = '001' ; 1990
Dim $arJahr[1] = '002' ; 1991
Dim $arJahr[2] = '003' ; 1992
Dim $arJahr[3] = '004' ; 1993
Dim $arJahr[4] = '005' ; 1994
Dim $arJahr[5] = '006' ; 1995
Dim $arJahr[6] = '007' ; 1996
Dim $arJahr[7] = '008' ; 1997
Dim $arJahr[8] = '009' ; 1998
Dim $arJahr[9] = '010' ; 1999
Dim $arJahr[10] = '011' ; 2000
Dim $arJahr[11] = '012' ; 2001
Dim $arJahr[12] = '013' ; 2002
Dim $arJahr[13] = '014' ; 2003
Dim $arJahr[14] = '015' ; 2004
Dim $arJahr[15] = '016' ; 2005
Dim $arJahr[16] = '017' ; 2006
Dim $arJahr[17] = '018' ; 2007
Dim $arJahr[18] = '019' ; 2008
Dim $arJahr[19] = '020' ; 2009
Dim $arJahr[20] = '021' ; 2010
So, nun habe ich die kleinsten Werte, die größten Werte und alle möglichen Werte aufgelistet. Einen Arrayblock für die Tage, einen Arrayblock für die Jahre.
Was muß ich nun machen?
Ich möchte dazu ein Gui haben, wo ich z. B. eingebe "21.01.1997". Das ist der 21 Tage des Jahres 1997.
So sollte er mir durch die Array ($arTest[20] & $arJahr[7]), in die Datei (test.ini) schreiben:
[dat]
00001 = 021008 ; laufende Nummer 00001 mit dem eingegebenen Datum auf julianisch 021008
Mein gedachtes Gui:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <Date.au3>
Dim $arTest[50] ; Array hat 50 Werte
Dim $arTest[0] ; Array's kleinster Wert = 0, also $arTest[0]
Dim $arJahr[20] ; Array hat 20 Werte
Dim $arJahr[0] ; Array's kleinster Wert = 0; also $arJahr[0]
; hier die 50 Array-Werte
$arTest[0] = '001' ; 01.01. // 01. Januar
$arTest[1] = '002' ; 02.02. // 02. Januar
$arTest[2] = '003'
$arTest[3] = '004'
$arTest[4] = '005'
$arTest[5] = '006'
$arTest[6] = '007'
$arTest[7] = '008'
$arTest[8] = '009'
$arTest[9] = '010'
$arTest[10] = '011'
$arTest[11] = '012'
$arTest[12] = '013'
$arTest[13] = '014'
$arTest[14] = '015'
$arTest[15] = '016'
$arTest[16] = '017'
$arTest[17] = '018'
$arTest[18] = '019'
$arTest[19] = '020'
$arTest[20] = '021'
$arTest[21] = '022'
$arTest[22] = '023'
$arTest[23] = '024'
$arTest[24] = '025'
$arTest[25] = '026'
$arTest[26] = '027'
$arTest[27] = '028'
$arTest[28] = '029'
$arTest[29] = '030'
$arTest[30] = '031'
$arTest[31] = '032'
$arTest[32] = '033'
$arTest[33] = '034'
$arTest[34] = '035'
$arTest[35] = '036'
$arTest[36] = '037'
$arTest[37] = '038'
$arTest[38] = '039'
$arTest[39] = '040'
$arTest[40] = '041'
$arTest[41] = '042'
$arTest[42] = '043'
$arTest[43] = '044'
$arTest[44] = '045'
$arTest[45] = '046'
$arTest[46] = '047'
$arTest[47] = '048'
$arTest[48] = '049'
$arTest[49] = '050'
Dim $arJahr[0] = '001' ; 1990
Dim $arJahr[1] = '002' ; 1991
Dim $arJahr[2] = '003' ; 1992
Dim $arJahr[3] = '004' ; 1993
Dim $arJahr[4] = '005' ; 1994
Dim $arJahr[5] = '006' ; 1995
Dim $arJahr[6] = '007' ; 1996
Dim $arJahr[7] = '008' ; 1997
Dim $arJahr[8] = '009' ; 1998
Dim $arJahr[9] = '010' ; 1999
Dim $arJahr[10] = '011' ; 2000
Dim $arJahr[11] = '012' ; 2001
Dim $arJahr[12] = '013' ; 2002
Dim $arJahr[13] = '014' ; 2003
Dim $arJahr[14] = '015' ; 2004
Dim $arJahr[15] = '016' ; 2005
Dim $arJahr[16] = '017' ; 2006
Dim $arJahr[17] = '018' ; 2007
Dim $arJahr[18] = '019' ; 2008
Dim $arJahr[19] = '020' ; 2009
Dim $arJahr[20] = '021' ; 2010
GUICreate("Datum Eingabe", 100,50, 100, 45, -1, 0x00000018); WS_EX_ACCEPTFILES
$file = GUICtrlCreateInput ( "", 10, 5, 80, 20)
$ok = GUICtrlCreateButton ("Ok", 20, 25, 60, 20)
GUISetState ()
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $ok
; ?????????????
EndSelect
Wend
; Funktion julianisches Datum von: Xenobiologist
Func _alinaDatum($year, $month, $day)
Return StringFormat('%0.3d', $year - 1989) & StringFormat('%0.3d', _dayOfyear($year, $month, $day))
EndFunc ;==>_alinaDatum
Func _dayOfyear($year, $month, $day)
Return _DateDiff('d', $year & '/01/01', $year & '/' & $month & '/' & $day) + 1
EndFunc ;==>_dayOfyear
; Funktionsende
Wie setze ich das ganze nun richtig um. Er muß ja irgendwie durch die Eingabe erst einmal die beiden Array ansprechen und dann richtig verarbeiten. Da habe ich jedoch Verständnisprobleme. Sorry, wenn ich das so kompliziert dargestellt habe, aber ich würde mich freuen,
wenn mir dabei jemand hilft und ich so lerne mit Array's zu arbeiten.
Halt direkt an einem Beispiel lernen und andere damit zeigen, wie mal sich mit Array von klein auf beschäftigen kann und dann sich hoch arbeitet und irgendwann mal so weit kommt, wie die "Array Kings and User".
LG und DANKE.
Lina
