Zahl aus Textdatei auslesen

Hallo,

ich bin auf der suche nach eine Simpler Lösung, um Zahlen aus der *.txt Datei auszulesen.

In der *.txt steht in der ersten Zeile "1. Override 21"

In der Logik werden die einzelne Zeilen (bis Zeile leer) eingelesen und mit dem unten stehendem Rapid verarbeitet.

Gibt es eine einfachere Lösung, wo ich die letzten 3 Zahlen (von der Zeile) auslesen kann? d.h.: Egal ob da 1,2 oder 3 Zahlen stehen.

Das müsste Theoretisch mit einer Zeile zu lösen sein

Vielen Dank im Voraus!

!-- 100%
          !-- Hier soll geprüft werden, ob eine 1 (100%) an der dritt letzte stelle steht
          !-- Wenn ja, dann bitte die Dreistellige Nummer übertragen
          IF (StrPart(strLocLesen{i},StrLen(strLocLesen{i})-2,1)="1") THEN
            IF (StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i})-2,1))>=1) RETURN 100; 
          ENDIF 
          !-- <10%
          !-- Hier soll geprüft werden, ob an der letzten stelle ein Wert vorhanden ist
          !-- Wenn ja, dann bitte die Zweistellige Nummer übertragen
          IF (StrPart(strLocLesen{i},StrLen(strLocLesen{i})-1,1)=" ") THEN 
            IF (StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i}),1))<10) RETURN StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i}),1));
          ENDIF 
          !-- >=10% & <100%
          !-- Hier soll geprüft werden, ob an der zweit letzte stelle ein Wert vorhanden ist
          !-- Wenn ja, dann bitte die Zweistellige Nummer übertragen
          IF (StrPart(strLocLesen{i},StrLen(strLocLesen{i})-1,2)<>"") THEN
            IF (StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i})-1,2))<100) RETURN StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i})-1,2));
          ENDIF

Hallo Micky,

wie meinst du es?
Ein Beispiel wäre Super...

Ich habe es jetzt etwas vereinfacht, aber noch nicht optimal

nLocMerker:=StrLen(strLocLesen{i})-12; !-- Ausgelesene Zeile aufteilen
          IF (nLocMerker>0 AND nLocMerker<=3) THEN 
            !-- Wenn der gelesener Wert <=100% ist, dann RETURN den Wert
            IF (StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i})-nLocMerker+1,nLocMerker))<=100) RETURN StrToByte(StrPart(strLocLesen{i},StrLen(strLocLesen{i})-nLocMerker+1,nLocMerker)); 
          ENDIF 
          RETURN 100; !-- Wenn nix geht, dann 100% rausgeben

Zitat von Micky

Hi,

eventuell hilft Dir das folgende Beispiel:

Code

FUNC num GetOverride()
    VAR num nLength;
    VAR num nValue;
    VAR string strLocLesen:="1. Override 80";


    !Länge der Zahl bestimmen
    nLength:=strlen(strLocLesen)-12;
    !Zahlenwert als String auslesen und direkt in eine Zahl konvertieren
    !Ist die Konvertierung erfolgreich, so wird die entsprechende Zahl zurückgemeldet
    IF StrToVal(StrPart(strLocLesen,13,nLength),nValue) RETURN nValue;
    !
    !Schlägt die Konvertierung fehl, wird 100 zurückgemeldet
    RETURN 100;
    !
  ENDFUNC

Alles anzeigen

Gruß
Micky

Alles anzeigen

Jop, es läuft und gefehlt mir besser.

Vielen Dank Micky.