FiveTech Software tech support forums

... 1) Grabar la cadena en un fichero txt con memowrit() y añadir los registro con APPEND FROM indicando el delimitador. 2) Con un bucle usando strtoken() para determinar los parámetros de inicio y fin de cada regstro y SUBSTR(). *---------------------------------------------------------------- ...

... 1) Grabar la cadena en un fichero txt con memowrit() y añadir los registro con APPEND FROM indicando el delimitador. 2) Con un bucle usando strtoken() para determinar los parámetros de inicio y fin de cada regstro y SUBSTR(). *---------------------------------------------------------------- ...

Se me ocurren dos posibles soluciones:

1) Grabar la cadena en un fichero txt con memowrit() y añadir los registro con APPEND FROM indicando el delimitador.

2) Con un bucle usando strtoken() para determinar los parámetros de inicio y fin de cada regstro y SUBSTR().

... Local nPos, nArrLen, nTime xPacket := oSocket:GetData() // chr(1)|IPNum|Username|Message|Command|chr(3) xDelim := "|" i := 0 nTime := 0 if StrToken(xPacket, 1, xDelim ) = chr(1) .and. Substr(xpacket,2,1) = "|" // ok to proceed else return .f. endif // LogFile( "server.txt", { xPacket } ...

... local cData := oSocket:GetData() local cToken LogFile( "sockserv.txt", { Len( cData ), cData } ) do case case oSocket:Cargo == ST_COMMAND cToken = StrToken( cData, 1 ) do case case cToken == "SENDFILE" oSocket:Cargo = ST_SENDFILE oSocket:hFile = fcreate( StrToken( cData, 2 ) ) case cToken == "MSG" ...

Uwe, As Otto has pointed, StrToken() is highly optimized as it is entirely based in C language so its speed is excellent. Here you have a working example: #include "FiveWin.ch" function Main() local cText := "C813354668;1063567698;0160 ...

Hi Uwe

StrToken() is probably the most flexible approach but if you are after a quick and dirty no programming type solution you could use

Code: Select all  Expand view

APPEND FROM <text-file> DELIMITED WITH ";"

Regards
xProgrammer

Hello Uwe, I use STRTOKEN. Regards, Otto cToken := StrToken( cText,2,';' ) // <cText> The text from where we want to extract a token. // <nOcurrence> The numeric ocurrence of the token inside <cText>. // <cSepChar> ...

... hDC ) return nil FUNCTION weihu1701(cvar1,odb1,obrow) local ccol local array1:={} cvar1:=ALLTRIM(cvar1) cvar1:=STRTRAN(cvar1," ",",") ccol:=StrToken( cvar1, 1, "," ) AADD(array1,ccol) nfor:=1 while .t. cCol := StrToken( cvar1, nFor + 1, "," ) if EMPTY(ccol) exit end AADD(array1,ccol) nfor ...

... FOR I:= 1 TO MlCount( cAllEntries ) cName := MemoLine( cAllEntries,,I) cEntry := GetProfString( "Devices",cName,"") J := 2 WHILE ! EMPTY(cPort := StrToken(cEntry,J++,",")) // AADD(aDevices,TRIM(cName)) AADD(aDevices,TRIM(cName) + "," + CENTRY ) // CHIDIAK ENDDO NEXT RETURN aDevices

... FOR I:= 1 TO MlCount( cAllEntries ) cName := MemoLine( cAllEntries,,I) cEntry := GetProfString( "Devices",cName,"") J := 2 WHILE ! EMPTY(cPort := StrToken(cEntry,J++,",")) // AADD(aDevices,TRIM(cName)) AADD(aDevices,TRIM(cName) + "," + CENTRY) // CHIDIAK ENDDO NEXT RETURN aDevices HTH Richard[code][/code]

... local cData := oSocket:GetData() local cToken LogFile( "sockserv.txt", { Len( cData ), cData } ) do case case oSocket:Cargo == ST_COMMAND cToken = StrToken( cData, 1 ) do case case cToken == "SENDFILE" oSocket:Cargo = ST_SENDFILE oSocket:hFile = fcreate( StrToken( cData, 2 ) ) case cToken == "MSG" ...

... local cData := oSocket:GetData() local cToken LogFile( "sockserv.txt", { Len( cData ), cData } ) do case case oSocket:Cargo == ST_COMMAND cToken = StrToken( cData, 1 ) do case case cToken == "SENDFILE" oSocket:Cargo = ST_SENDFILE oSocket:hFile = fcreate( StrToken( cData, 2 ) ) case cToken == "MSG" ...

... oRemoteShell:=nil // En el fichero dir.txt tienes todo return nil El fichero DIR.TXT lo tratas con StrToken y separas las columnas. El fichero DIR.TXT tiene algo asi: drwxr-xr-x 14 0 0 4096 May 2 04:41 . drwxr-xr-x 14 0 0 4096 May 2 04:41 ...

... ) If Len( cDrive ) == 1 cDrive += ":" Endif If Len( cDrive ) > 2 cDrive = SubStr( cDrive, 1, 2 ) Endif For each oJob in oJobs If cDrive == StrToken( oJob:Dependent, 2, '"' ) cDriveNumber = SubStr( StrToken( StrToken( oJob:Antecedent, 2, '"' ), 1, "," ), 7 ) return GetSerial( oSrv, cDriveNumber ...