Hallo Zusammen !
In VFP gibt es für Zeichenketten die Funktionen GetWordCount und GetWordNum für den Zugriff auf Zeichenketten die mittels eine Separators getrennt sind.
GetWordCount(cString[, cDelimiters]): Zählt die Anzahl der Wörter in einer Zeichenfolge.
GetWordNum(cString, nIndex[, cDelimiters]): Gibt ein angegebenes Wort aus einer Zeichenfolge zurück.
Dies beiden Funktionen setze ich exzessiv für Messdaten in einer Textdatei ein. Die Daten (Feldnamen, Einheiten, Messwerte) sind dabei mittels TAB getrennt.
Mit cFieldNames als erste Zeile aus der Messwertdatei bestimme ich mit
GetWordCount( cFieldNames, CHR( 9 ) )
die Anzahl der Felder und mit
GetWordNum( cFieldNames, nFieldNo, CHR( 9 ) )
bestimme ich den jeweiligen Feldname.
Welche Funktion gibt es dafür in Xbase?
GetWordCount/GetWordNum => Xbase
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12911
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: GetWordCount/GetWordNum => Xbase
beide Functionen gibt es "so" nicht aber du kann es dir selbst zusammenbauenHaPe hat geschrieben:GetWordCount(cString[, cDelimiters]): Zählt die Anzahl der Wörter in einer Zeichenfolge.
GetWordNum(cString, nIndex[, cDelimiters]): Gibt ein angegebenes Wort aus einer Zeichenfolge zurück.
Code: Alles auswählen
FUNCTION GetWordCount( cText, cDelimiters )
LOCAL nPos := 1
LOCAL nIst := 0
LOCAL aRet := {}
DEFAULT cDelimiters TO " "
DO WHILE .T.
nPos := AT( cDelimiters, cText )
IF nPos > 0
nIst ++
AADD( aRet, SUBSTR( cText, 1, ( nPos - 1 ) ) )
cText := SUBSTR( cText, ( nPos + 1 ), LEN( cText ) - nPos )
ELSE
AADD( aRet, cText )
EXIT
ENDIF
ENDDO
RETURN aRet
auch dafür kann du den Code verwenden da er ja den String "zerlegt" und die einzelnen Worte in ein Array speichert und der Index wäre das Array Element.GetWordNum(cString, nIndex[, cDelimiters])
gruss by OHR
Jimmy
Jimmy
- HaPe
- 1000 working lines a day
- Beiträge: 996
- Registriert: So, 15. Nov 2015 17:44
- Wohnort: 71665 Vaihingen-Enz
- Hat sich bedankt: 17 Mal
- Danksagung erhalten: 15 Mal
Re: GetWordCount/GetWordNum => Xbase
Hallo Jimmy !
Vielen Dank für diese Info und deinen Code
beide Functionen gibt es "so" nicht aber du kann es dir selbst zusammenbauen
Code: Alles auswählen
FUNCTION GetWordCount( cText, cDelimiters )
--
Hans-Peter
Hans-Peter