FiveTech Software tech support forums

local cLinea:= substr(texto, 1, 50) + CRLF + substr....

Intentalo de esa manera

goosfancito wrote:Hola.
Tengo una cadena de 1024 caracteres y quiero mostrarlos en un get multiline, pero al intentar esto:

local cLinea:= substr(texto, 1, 50) + chr(10) + chr(13) + substr....

no me muestra en dos lineas. en que le estoy errando?

Just to start, try with chr(13) + chr(10).

Hola.
Tengo una cadena de 1024 caracteres y quiero mostrarlos en un get multiline, pero al intentar esto:

local cLinea:= substr(texto, 1, 50) + chr(10) + chr(13) + substr....

no me muestra en dos lineas. en que le estoy errando?

Saludos Logré resolver mediante FUNCTION MEMOREADX(cFile) LOCAL oFile,cLinea,cMemo:="" DEFAULT cFile:="DATAPRO.INI" oFile:= TTxtFile():New(cFile, 0) WHILE !oFile:Eof() cLinea:=oFile:ReadLine() cMemo :=cMemo+IF(Empty(cMemo),"",CRLF)+cLinea ...

no te funcionaría con Strtran ?

LINEA=1
cLINEA='1'

lc1:="<fields name='lxc1'>"
lc1=strtran(lc1,'x',cLINEA)
? lc1

Buenas tardes, amigos Tengo lo siguiente: nLinea:=1 cLinea:=alltrim(STR(nLinea)) lc1:="<field name='lxc1'>" Quiero sustituir el carácter x con el contenido de cLinea para que me quedara así: lc1:="<field name='l1c1'>" ...

Así lo uso sin problemas con xHarbour:

::vGet[ 01 ] := IIf( cLinea IN "HARBOUR,XHARBOUR", IIf( cLinea == "HARBOUR", 1, 2 ), 1 )
o
::vGet[ 01 ] := IIf( cLinea $ "HARBOUR,XHARBOUR", IIf( cLinea == "HARBOUR", 1, 2 ), 1 )


Joel Andujo

::vGet[ 01 ] := IIf( ( cLinea = "HARBOUR" .or. cLinea = "XHARBOUR" ), IIf( cLinea == "HARBOUR", 1, 2 ), 1 )

... { Space(81) } I made this but it make error cFile:="level1.txt" ctext:= Memoread(cFile) nLinea :=MLCOUNT(cTexto) for n=1 to nLinea cLinea:=MEMOLINE(cTexto,81,n) AADD(atest,ALLTRIM(cLinea)) next the error It make error because it count me 1998 lines but the sum of lines are 999 then ...

Te paso la version corregida y probada. Function HNetView() Local aPCs:={} Local cTexto,nLinea,cLinea,Q WAITRUN( "cmd.exe /c net view > PCs.txt" , .t.) cTexto :=MEMOREAD( "PCs.txt" ) nLinea :=MLCOUNT(cTexto) FOR Q=1 TO nLinea // Arranca de la línea ...

... #include "FiveWin.ch" #include "hbxml.ch" Function Inicio() Local vArch,ContXML,oDoc,oLinMae,oIterator,oCurrent,cLinea Private ArchXML vArch:=cGetFile32() ArchXML:=vArch ContXML:=MEMOREAD("&ArchXML") oDoc:=TXmlDocument():New(ContXML,HBXML_STYLE_NOESCAPE) ...

... yo quiero que vaya directamente a la linea de producto buscada, cuando esto pasa si pulso ESC y nuevamente F2, entonces si voy al registro deseado cLinea es una variable local, y la estoy pasando por referencia. No se si debiera utilizar una variable statica o una publica Que estoy haciendo mal ...

... := "", cChar := " ", nWidthChar := 0, aOpt := {} local xxx := 0, nVez := 0, nJust := 0, nI, lSeguir := .t., n, nFont, aText, cLinea, cIni, nIni local cTx2, cMemo := MemoRead( CFGAYUDA ), nWidth, nWidMemo local nLenFonts := Len( oGet:aFonts ), nRowStep local aFonts := Array( ...

... cName, oFontX, nColorX ) local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif := {} local xxx := 0, cLine, cLinea, nAncho, nCar, nC, cTx2, cVal := "" local nRow := 0, nRowNw := 0 local nCol := 0, nI := 0 local nWidth //, oLin := oGet:oLineInit local ...

... cName, oFontX, nColorX ) local n, nMargen := 4, nCols, nFilas, nFactor := 0.70, nFilaIni := 2, lUser := .t., aJustif := {} local xxx := 0, cLine, cLinea, nAncho, nCar, nC, cTx2, cVal := "" local nRow := 0, nRowNw := 0 local nCol := 0, nI := 0 local nWidth //, oLin := oGet:oLineInit local ...