FiveTech Software tech support forums

GetTextWidth( 0, cTexto, oFont:hFont ) --> nPixels

Mi estimado Fer, lo resolvi de esta manera: cTexto := Memoread( "c:\printouts" + cUltimo + "" + aXMLNom[ I ] ) nPos := AT("<NODECLIENTE>",cTexto) cNumCliente := substr( ctexto, nPos + 13, 6 ) cNumCliente := DejaNumeros( cNumCliente ...

... texto plano y como tal solo tienes que localizar la cadena que quieras y extraer los caracteres que te interesen a partir de esa cadena. Ejemplo: cTexto=memoread( "fichero.xml" ) // nHandle:=FOpen("fichero.xml", FO_READWRITE + FO_SHARED) // nPos=AT("<NODECLIENTE>",cTexto) // FSeek(nHandle,nPos+13) ...

Antonio:

Muhas gracias por tu ayuda.

Saludos,
Antonio

Antonio Linares wrote:cTexto = MemoRead( "fichero.txt" )

cTexto = MemoRead( "fichero.txt" )

Añade esta función tambien:

function OemToAnsi( cTexto )

return cTexto

... // STATIC oWnd // FUNCION MAIN ///////////////////////////////////////////////////////////////////// Function Main() Local oBmp,oCursor1,oBar, cTexto ,oDbf Local Datos:="\\PIII\C\WPSDatos\" LandScape() HB_LANGSELECT("ESWIN") SET DELETED ON SET DATE TO FREN *SET SOFTSEEK ON SET CENTURY ON SET ...

... // STATIC oWnd // FUNCION MAIN ///////////////////////////////////////////////////////////////////// Function Main() Local oBmp,oCursor1,oBar, cTexto ,oDbf Local Datos:="\\PIII\C\WPSDatos\" LandScape() HB_LANGSELECT("ESWIN") SET DELETED ON SET DATE TO FREN *SET SOFTSEEK ON SET CENTURY ON SET ...

Donde pone el tabulador ?

No se ve en el código que has puesto. Márcalo de alguna forma para que se vea, gracias

Has probado a hacer StrTran( cTexto, Chr( 9 ), "" ) ?

... FUNCTION SMSSock() PARAM cCliente,cPassword,cTelefono,cMensaje cDominio:='www.jikama.com' oSMS := TWebClient():New(6207) Cargo := .f. cTexto:='' oSMS:bOnConnect := {|oWClient| Cargo := .t.} oSMS:bOnRead := {|cData| if(valtype(cData) == "C", cTexto := cTexto+cData, )} oSMSSock:=oSMS:oSocket ...

Cambia esta línea así: MsgInfo( MemoLine( cTexto,, n ) ) Para añadir líneas posteriormente, puedes usar: MemoWrit( CurDir() + "\nombre.txt", MemoRead( CurDir() + "\nombre.txt" ) + CRLF + "Nueva linea" ) ó usar las funciones típicas de Clipper: ...

Elías,

oBrowse:aHeaders[ n ] = cTexto
oBrowse:Refresh()

y en cTexto usa algún caracter que lo indique (*,+,#,etc.)

... ) if (cConexion==-1) MsgStop('No hay conexion con la impresora',vTitulo) else WriteByte( cConexion,Chr(27)+"C*") for n = 1 to Len( cTexto ) WriteByte( cConexion, Asc( SubStr( cTexto, n, 1 ) ) ) next CloseHandle( cConexion ) ¿Está bien?¿Debería funcionar? Gracias Un Saludo.

... via bluetooth y la cuestion es que el bluetooth de la PDA se desconecta cuando lleva un tiempo, el codigo que uso es: static function ImprimeLinea(cTexto) local n local cConexion := CreateFile( "COM8:",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) cText:=cTexto+chr(10)+chr(13)+chr(12) ...

Kleyber,

oCheckBox:SetText( cTexto ) debe funcionar