Daten aus TextBox auslesen
 |
Betrifft: Daten aus TextBox auslesen
von: Manuel Marhold
Geschrieben am: 09.09.2004 22:26:23
Hi nochmal..
Ich schaffe das immer noch nicht..
Ich habe ien UserForm mit einer TextBox.
dort füge ich folgenden Text ein:
2516/h 2700/h 2892/h 3101/h 3305/h
Lagerkapazität: 190750
Abzüge: 0% (0/h)
Kredit Rückzahlung: 0/h
Konstruktionsstufe: 27
Rohstoff: Kristalle
1466/h 1601/h 1732/h 1877/h 2053/h
Lagerkapazität: 111250
Abzüge: 0% (0/h)
Kredit Rückzahlung: 0/h
Konstruktionsstufe: 22
Rohstoff: Frubin
1001/h 1092/h 1179/h 1278/h 1401/h
Lagerkapazität: 111250
Abzüge: 0% (0/h)
Kredit Rückzahlung: 0/h
Konstruktionsstufe: 22
Rohstoff: Orizin
828/h 913/h 1001/h 1092/h 1179/h
Lagerkapazität: 80500
Abzüge: 0% (0/h)
Kredit Rückzahlung: 0/h
Konstruktionsstufe: 20
Rohstoff: Frurozin
1117/h 1225/h 1337/h 1445/h 1567/h
Lagerkapazität: 111250
Abzüge: 0% (0/h)
Kredit Rückzahlung: 0/h
Konstruktionsstufe: 21
Rohstoff: Gold
129/h
Ich brauche die jeweils ersten zahlen vor dem "/h"
also:
2516
1466
1001
828
1117
129
wie komme ich daran?
ich kann ja das "/h" finden und die Leerstelle davor..
Nur wie kann ich den Text dazwischen auslesen?
Ich bin echt am verzweifeln..
Würde mich über Hilfe riesig freuen!!
Gruß
Manuel
 |
Betrifft: AW: Daten aus TextBox auslesen
von: RALF
Geschrieben am: 13.09.2004 09:58:18
Moin,
wenn die erste Zeile eine feste Datenstruktur hat, dann wäre es simpel, da die Daten in der Struktur 0000/h 0000/h usw. vorliegen. Dann wäre hier mit Mid(txt, Start, Anzahl) die Lösung einfach.
txt = "0000/h 0000/h 0000/h"
Var1 = Mid(txt, 1, 4)
Var2 = Mid(txt, 8,4)
Var3 = Mid(txt, 15,4)
Ansonsten muss über das suchen der Leerstellen die Startposition bestimmt werden.
Gruß RALF
Beiträge aus den Excel-Beispielen zum Thema "Daten aus TextBox auslesen"