Hallo Leute,
wollte mich mal auf eine neue Sache stürzen habe aber keine passende Anleitung im Internet gefunden darum frage ich mal hier:
Und zwar möchte ich in meinen Comboboxen Sachen auswählen, diese mit einer Text Datei vergleichen (In der Textdatei soll eine Liste stehen womit das verglichen wird) und dann am Ende, wenn eine gleiche Auswahl in der Textdatei steht die in der Liste eingetragenen Werte wiedergeben. Vom Sinn her weiß ich wie ich das machen will aber die Ausführung weiß ich nicht. Ich habe sowas auch noch nicht gemacht und wollte es halt mal Lernen.
Vielleicht weiß jemand eine Seite wo sowas beschrieben ist oder kann mir das so ein bisschen erklären.
Hier mal mein Script
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Abstimmtool", 323, 499, 192, 124)
$Group1 = GUICtrlCreateGroup("Setup", 8, 24, 305, 225)
$Label1 = GUICtrlCreateLabel("Motorblock", 16, 48, 71, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Zylinder", 16, 72, 52, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Auspuffanlage", 16, 96, 90, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Vergaser", 16, 120, 60, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Luftfilter", 16, 144, 48, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Variator", 16, 168, 51, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Riemenscheibe", 16, 192, 99, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("Kupplung", 16, 216, 60, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("", 160, 48, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Peugeot Horizontal LC|", "Peugeot Horizontal LC")
$Combo2 = GUICtrlCreateCombo("", 160, 72, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original/Ersatz|Airsal Alu Sport 50|Polini Sport 50|Malossi MHR Replica|MVT Alu 50|Polini Evolution II 50|Malossi 70 Sport|Airsal Alu Sport 70|Airsal Racing T6|Polini Alu 70|Malossi MHR Racing 70", "Original/Ersatz")
$Combo3 = GUICtrlCreateCombo("", 160, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|Stage6 Street|Gianelli Go|Tecnigas Silent Pro|Naraku Traffic|LeoVince ZX|LeoVince ZX-R|LeoVinde TT|Stage6 PRO Replica|Tecnigas Next-R|Tecnigas Trek|Tecnigas Triops|Tecnigas Q-Tre Sport|Tecnigas RS II|Yasuni R|Laser XPro|Doppler RR-7|Doppler S3r|Gianelli Extra|Gianelli Rekord|Roost P70H|LeoVince GP", "Original")
$Combo4 = GUICtrlCreateCombo("", 160, 120, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|17,5mm|19mm|21mm|24mm|28mm|30mm|32mm", "Original")
$Combo5 = GUICtrlCreateCombo("", 160, 144, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|Sport/Racing", "Original")
$Combo7 = GUICtrlCreateCombo("", 160, 192, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|Stage6", "Original")
$Combo8 = GUICtrlCreateCombo("", 160, 216, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|Sport/Racing", "Original")
$Combo6 = GUICtrlCreateCombo("", 160, 168, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1,"Original|Motorforce Racing|Stage6 Sport Pro|Naraku Sport|Toxik Ultimate|Polini Hi-Speed|Malossi Multivar|Pamakit Sport|Hebo Next Generation|Polini SpeedControl", "Original")
$Button1 = GUICtrlCreateButton("Abstimmen", 16, 256, 169, 49)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Beenden", 240, 256, 65, 57)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Group2 = GUICtrlCreateGroup("Abstimmung", 8, 328, 305, 105)
$Label9 = GUICtrlCreateLabel("Hauptdüse", 16, 352, 70, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Variomatikgewichte", 16, 376, 121, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("Kupplungsfedern", 16, 400, 105, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("", 192, 352, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("", 192, 376, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("", 192, 400, 108, 20)
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW, $Form1)
While 1
$msg = GUIGetMsg()
Select
Case $Button1
EndSelect
WEnd
Also noch mal zur Erklärung:
1. Ich öffne mein Programm und wähle irgendwelche Sachen in den Comboboxen aus.
2. Ich drücke auf "Abstimmen".
3. Das Programm soll in einer Textdatei nach der ausgewählten Variante in den Comboboxen suchen.
4. Ist diese Variante vorhanden, soll in den 3 Labeln unten Zahlen (die in der Liste in der Textdatei stehen) eingefügt werden.
Ich hoffe ich konnte es verständlich erklären ![]()
Für Hilfe oder Erklärung wäre ich sehr Dankbar ![]()
EDIT
So sollte die txt Datei aufgebaut sein:
Spoiler anzeigen
Motorblock Zylinder Auspuffanlage Vergaser Luftfilter Variator Riemenscheibe Kupplung
Peugeot Horizontal LC Original/Ersatz Original Original Original Original Original Original
Airsal Alu Sport 50 Stage6 Street 17,5mm Sport/Racing Motoforce Racing Stage6 Sport/Racing
Polini Sport 50 Gianelli Go 19mm Stage6 Sport Pro
Malossi MHR Replica Tecnigas SilentPro 21mm Naraku Sport
MVT Alu 50 Naraku Traffic 24mm Toxik Ultimate
Polini Evolution II 50 LeoVince ZX 28mm Polini Hi-Speed
Malossi 70 Sport LeoVince ZX-R 30mm Malossi Multivar
Airsal Alu Sport 70 LeoVince TT 32mm Parmakit Sport
Airsal Racing T6 Stage6 PRO Replica Hebo Next Generation
Polini Alu 70 Tecnigas Next-R Polini SpeedControl
Malossi MHR Racing 70 Tecnigas Trek
Tecnigas Triops
Tecnigas Q-Tre Sport
Tecnigas RS II
Yasuni R
Laser XPro
Doppler RR-7
Doppler S3r
Gianelli Extra
Gianelli Rekord Roost P70H
LeoVince GP
Alles anzeigen
Liste 2
Spoiler anzeigen
SetupNr HD Gewichte Kullus
1 54/55 8 Originale Federn
2 58 7 Stage6 Orange
3 60 3,6 Hebo Rot
4 80 6,6 Hebo Rot
5 60 5,6 Stage6 Rot
6 60 5,8 Malossi Schwarz
7 98-102 5,6 Stage6 Rot
8 98-102 5,6 Stage6 Rot
9 60 5,5 Malossi Schwarz
10 60 5,5 Malossi Schwarz
11 58 7 Mitgelieferten
12 58 6,25 Malossi Schwarz/Rot
13 58 5,8 Malossi Gelb
14 69/71 6,25 Malossi Schwarz/Rot
15 58 7,25 Stage6 Orange
16 60 4,9 Polini Gelb/Blau
17 60 6,5 Naruku Rot
18 58 6,2 Stage6 Orange
19 58 5,6 Stage6 Orange
20 60 4,8 Malossi Schwarz
21 -/- 7 Naruku Rot
22 60 5,5 Stage6 Rot
23 62 6 Stage6 Orange
24 60 5,5 Polini Gelb
25 60 6,75 Stage6 Rot
26 65 8,5 BMG Blau
27 58 5,8 Malossi Gelb
28 60 4,9 Polini Gelb/Blau
29 58 6,5 Polini Blau
30 60 6,5 Naruku Rot
31 60 5,5 Malossi Schwarz
32 60/62 5,5 Malossi Schwarz
Alles anzeigen
Liste 3
Spoiler anzeigen
Motorblock|Zylinder|Auspuff|Vergaser|Luftfilter|Variomatik|Kupplung|SetupNR
Peugeot Horizontal LC|Original/Ersatz|Original|Original|Original|Original|Original|1
Peugeot Horizontal LC|Original/Ersatz|Laser XPro|Original|Original|Original|Original|2
Peugeot Horizontal LC|Original/Ersatz|Stage6 PRO Replica|Original|Original|Hebo Next Generation|Original|3
Peugeot Horizontal LC|Airsal Racing T6|Stage6 PRO Replica|21mm|Sport/Racing|Hebo Next Generation|Sport/Racing|4
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Original|Original|5
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Polini SpeedControl|Original|6
Peugeot Horizontal LC|Airsal Racing T6|Yasuni R|Original|Sport/Racing|Polini|SpeedControl|Sport/Racing|7
Peugeot Horizontal LC|Airsal Racing T6|Yasuni R|17,5mm|Sport/Racing|Polini SpeedControl|Sport/Racing|8
Peugeot Horizontal LC|Original/Ersatz|Tecnigas Next-R|Original|Original|Original|Original|9
Peugeot Horizontal LC|Original/Ersatz|Yasuni R|Original|Original|Original|Original|10
Peugeot Horizontal LC|Original/Ersatz|LeoVince ZX|Original|Original|Malossi Multivar|Original|11
Peugeot Horizontal LC|Original/Ersatz|LeoVince ZX|Original|Original|Original|Original|12
Peugeot Horizontal LC|Original/Ersatz|LeoVince ZX|Original|Original|Polini SpeedControl|Original|13
Peugeot Horizontal LC|Original/Ersatz|LeoVince ZX|Original|Sport/Racing|Original|Original|14
Peugeot Horizontal LC|Original/Ersatz|Laser XPro|Original|Original|Malossi Multivar|Original|15
Peugeot Horizontal LC|Original/Ersatz|Yasuni R|Original|Original|Polini SpeedControl|Original|16
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Malossi Multivar|Original|17
Peugeot Horizontal LC|Original/Ersatz|LeoVince GP|Original|Original|Original|Original|18
Peugeot Horizontal LC|Original/Ersatz|LeoVince GP|Original|Original|Polini SpeedControl|Original|19
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Hebo Next Generation|Original|20
Peugeot Horizontal LC|Malossi 70 Sport|Tecnigas Trek|Original|Original|Original|Original|21
Peugeot Horizontal LC|Original/Ersatz|Tecnigas Next-R|Original|Original|Polini SpeedControl|Original|22
Peugeot Horizontal LC|Original/Ersatz|Doppler RR-7|Original|Original|Original|Original|23
Peugeot Horizontal LC|Original/Ersatz|Yasuni R|Original|Original|Malossi Multivar|Original|24
Peugeot Horizontal LC|Original/Ersatz|Stage6 PRO Replica|Original|Original|Stage6 Sport Pro|Original|25
Peugeot Horizontal LC|Malossi 70 Sport|Tecnigas RS II|17,5mm|Original|Malossi Multivar|Original|26
Peugeot Horizontal LC|Original/Ersatz|LeoVince ZX|Original|Original|Polini SpeedControl|Original|27
Peugeot Horizontal LC|Original/Ersatz|Yasuni R|Original|Original|Polini SpeedControl|Original|28
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Stage6 Sport Pro|Original|29
Peugeot Horizontal LC|Original/Ersatz|Tecnigas RS II|Original|Original|Malossi Multivar|Original|30
Peugeot Horizontal LC|Original/Ersatz|Tecnigas Next-R|Original|Original|Original|Original|31
Peugeot Horizontal LC|Original/Ersatz|Tecnigas Triops|Original|Original|Original|Original|32
Alles anzeigen