FiveTech Software tech support forums

A mi me ha funcionado poniendo así:

vconcepto:=strtran(alltrim(oHoja:Cells( nrow, 5 ):Value),chr(10),CRLF)

Espero que le sirva a quien lo necesite.

Un saludo

... RTrim( AI_FORM.cPrompt.Value ),;   CALLBACK( { | cStr | AI_FORM.cAnswer.SetFocus ,;                        IF(cStr=CHR(10),cStr:=CRLF,cStr) ,;                        AI_FORM.cAnswer.Value := AI_FORM.cAnswer.Value + cStr } )  )  i do replace ...

Hi, In the document, I select a line consisting of 2 parts separated by the characters CRLF or chr(10) and copy it to the clipboard. Next, I want to paste the information from the clipboard into a one-line TGet. However, only the first part of the phrase (before CRLF) ...

Marco Augusto wrote:Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

Can you provide a working sample?

Quiza con la funcion AT

cCAD="abcdfe"+crlf+"12345"

cCAD2=SUBSTRING(cCAD,1,AT(CHR(10),cCAD)-1)

Hi, In the document, I select a line consisting of 2 parts separated by the characters CRLF or chr(10) and copy it to the clipboard. Next, I want to paste the information from the clipboard into a one-line TGet. However, only the first part of the phrase (before CRLF) ...

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?

Agosto, Septiembre, Octubre 2023 ================================ * Fubción WebPageContents() en imgtxtio.prg: En caso de URLs inexistentes devuelve NIL, mientras que se espera que el valor de retorno sea siempre un valor de carácter. Ahora se ha corregido para que devuelva "" en lugar de ...

... the text we print is stored in wide format. If we printed "Name", it is stored as AnsiToWide( "Name" ), i.e., "N" + Chr(0) + "a" + Chr(0) + "m" + Chr( 0 ) + "e" + Chr( 0 ). In other words the text is encoded in UTF16LE format. So, if ...

... at the beginning of my application, when I press "Ğ" in the GET field, it looks correct, but the unicode comes to the variable as CHR(196)+CHR(158). This doesn't work for me. After each Get field, I have to deal with thousands of GET fields to convert from Unicode to Ansi.

Very Good. This is what I was suspecting. 286 (0x011E) is the UTF16LE value of Turkish Chr(208). Please help us by a little more testing Instead of ? nKey, nFlags, FW_SetUnicode() please test ? nKey, FW_SetUnicode(), ::lIsWideChar, IsWindowUnicode( ...

August, September, October 2023 =============================== * function WebPageContents() in imgtxtio.prg: In case of non-existent URLs this function is returning NIL, where as return value is expected to be always a character value. Now fixed to return "" in such cases instead of nil T...

He realizado esta prueba en modo consola y si ubica el archivo dentro de la carpeta de samples #include "fileio.ch" #define CRLF Chr(13)+Chr(10) FUNCTION Main() LOCAL cDir := "C:\Program Files" IF HB_DirExists(cDir) ?cDir + CRLF + CRLF + If(IsDirWritable(cDir), "You ...

... la separación de línea y el mensaje se ve así: http://www.datanet.space/fw/MENSAJE.jpg ¿habrá manera de hacerlo? intenté con chr(13) y con CRLF pero no funciona.