Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB Durch .ini den Inhalt einer Variable bzw. ComboBox befüllen

Frage Entwicklung VB for Applications

Mitglied: TerminatorVB

TerminatorVB (Level 1) - Jetzt verbinden

02.03.2011 um 20:42 Uhr, 6403 Aufrufe, 6 Kommentare

Hallo Programmierer!

Folgendes:

Ich möchte in einer .ini Datei eine Liste von Wörtern festhalten ungefähr so:

[Gesicht]
Face_N_Gomez
Face_N_Scar

[Körper]
BodyTex_L
BodyTex_B

*usw. was auch immer*

Beim Start des Programmes soll in einer Variable oder gleich ComboBox (was auch immer) der Inhalt des dazugehörigen Teils der .ini angezeigt werden
Beispiel: Beim Start des Programms soll in ComboBox1.Text (Gesicht) der Inhalt:

Face_N_Gomez
Face_N_Scar

stehen.
Wie genau kann man das bewerkstelligen?

Liebe Grüße,

TerminatorVB!
Mitglied: Tommy70
03.03.2011 um 08:39 Uhr
Hallo,

da kommt es schon mal darauf an, welches VB du verwendest. Ist es noch VB 6 oder schon .NET?
Bitte warten ..
Mitglied: TerminatorVB
03.03.2011 um 16:57 Uhr
Ich verwende VB Express 2010!
Müsste ja irgendwie möglich sein
Bitte warten ..
Mitglied: mathe172
03.03.2011 um 17:21 Uhr
Hallo,

entweder geht das mit
01.
Dim Abschnitt as Integer 
02.
For each Zeile as String in Split(My.Computer.FileSystem.ReadAllText("File.ini"),vbnewline) 
03.
If Zeile<>"" Then 
04.
If Zeile="[Gesicht]" Then 
05.
Abschnitt=1 
06.
ElseIf Zeile="[Körper]" Then 
07.
Abschnitt=2 
08.
ElseIf Abschnitt=1 Then 
09.
ComboBox1.Items.Add(Zeile) 
10.
ElseIf Abschnitt=2 Then 
11.
ComboBox2.Items.Add(Zeile) 
12.
End If 
13.
End If 
14.
Next
Manche mögen das My aber nicht, deshalb:
01.
Dim sr as new System.IO.Streamreader("File.ini") 
02.
Dim Zeile as String 
03.
Dim Abschnitt as Integer 
04.
Do 
05.
Zeile=sr.readline() 
06.
If Zeile<>"" Then 
07.
If Zeile="[Gesicht]" Then 
08.
Abschnitt=1 
09.
ElseIf Zeile="[Körper]" Then 
10.
Abschnitt=2 
11.
ElseIf Abschnitt=1 Then 
12.
ComboBox1.Items.Add(Zeile) 
13.
ElseIf Abschnitt=2 Then 
14.
ComboBox2.Items.Add(Zeile) 
15.
End If 
16.
End If 
17.
Loop Until Zeile=""
Syntax ohne Gewähr
[Edit: Syntax korrigiert und einen Fehler behoben]
Mathe172
Bitte warten ..
Mitglied: TerminatorVB
03.03.2011 um 19:27 Uhr
Danke! Geeeenaau das was ich brauche! :D

[EDIT] Und das kann mir noch in einem anderen Zusammenhang helfen, danke du bist der Beste! :D
[EDIT2] Da gibts noch was:

Wie mach ich das wenn ich 3 Kategorien auslesen will?
Bitte warten ..
Mitglied: mathe172
03.03.2011 um 21:17 Uhr
Hallo,

Kopiere die Zeilen 6 und 7 (erstes Beispiel) bzw. 9 und 10 (zweites) und füge sie darunter ein.
Ändere die Kennung ("[Körper]") und den Abschnitt (2)
Kopiere die Zeilen 10 und 11 (erstes Beispiel) bzw. 13 und 14 (zweites) und füge sie darunter ein.
Ändere den Abschnitt(2) und den ComboBoxnamen(Combobox2)
Das könnte dann so ausschauen:
01.
Dim Abschnitt as Integer 
02.
For each Zeile as String in Split(My.Computer.FileSystem.ReadAllText("File.ini"),vbnewline) 
03.
If Zeile<>"" Then 
04.
If Zeile="[Gesicht]" Then 
05.
Abschnitt=1 
06.
ElseIf Zeile="[Körper]" Then 
07.
Abschnitt=2 
08.
ElseIf Zeile="[Hand]" Then 
09.
Abschnitt=3 
10.
ElseIf Abschnitt=1 Then 
11.
ComboBox1.Items.Add(Zeile) 
12.
ElseIf Abschnitt=2 Then 
13.
ComboBox2.Items.Add(Zeile) 
14.
ElseIf Abschnitt=3 Then 
15.
ComboBox3.Items.Add(Zeile) 
16.
End If 
17.
End If 
18.
Next
oder
01.
Dim sr as new System.IO.Streamreader("File.ini") 
02.
Dim Zeile as String 
03.
Dim Abschnitt as Integer 
04.
Do 
05.
Zeile=sr.readline() 
06.
If Zeile<>"" Then 
07.
If Zeile="[Gesicht]" Then 
08.
Abschnitt=1 
09.
ElseIf Zeile="[Körper]" Then 
10.
Abschnitt=2 
11.
ElseIf Zeile="[Hand]" Then 
12.
Abschnitt=3 
13.
ElseIf Abschnitt=1 Then 
14.
ComboBox1.Items.Add(Zeile) 
15.
ElseIf Abschnitt=2 Then 
16.
ComboBox2.Items.Add(Zeile) 
17.
ElseIf Abschnitt=3 Then 
18.
ComboBox3.Items.Add(Zeile) 
19.
End If 
20.
End If 
21.
Loop Until Zeile=""
Beidesmal wurde "Hand" als Kennung und Combobox3 alsCombobox benutzt

Mathe172
Bitte warten ..
Mitglied: TerminatorVB
03.03.2011 um 21:52 Uhr
Bitte vergessen --------Das habe ich so gemacht, allerdings ist es dann passiert, dass der Inhalt der in ComboBox1 sein soll auch da ist (ist ja gut :D), aber ComboBox2 enthielt den Inhalt von der 2 und von ComboBox3 und in der 3 war überhaupt nix. Gibts da eine Erklärung? :D ------- Bitte vergessen

Das Problem war ich hatte [Rüstungen] mit ü und das war irgendwie der Fehler
Danke für eure Hilfe!!!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Problem mit Funktion und Combobox (7)

Frage von Druide83 zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell Combobox (2)

Frage von Peterz zum Thema Batch & Shell ...

VB for Applications
VB.net Combobox databinding langsam (4)

Frage von ForgottenRealm zum Thema VB for Applications ...

Batch & Shell
gelöst Mit zusammengesetzter Variable auf andere Variable zugreifen (2)

Frage von abiber zum Thema Batch & Shell ...

Neue Wissensbeiträge
Viren und Trojaner

Neues Botnetz über IoT-Geräte

Information von certifiedit.net zum Thema Viren und Trojaner ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Externe IP von innen erreichbar machen (15)

Frage von Windows10Gegner zum Thema Router & Routing ...

Windows Installation
Windows 10 neu installieren (12)

Frage von imebro zum Thema Windows Installation ...

Windows Server
Frage zu Server Rack (11)

Frage von rainergugus zum Thema Windows Server ...