nHandleHandle válido de FOpen/FCreate; cero también es válido.
Guía AdvPLFReadStr( nHandle, nQtdBytes ) --> cRetLee hasta límite de bytes y devuelve texto.
FReadStr devuelve string, distinta del conteo FRead. Puede parar en Chr(0), fin o error; no sustituye lectura binaria que preserve nulos. GitHub usa apertura grabable; adaptación solo lectura y captura diagnóstico antes de cerrar. Longitud depende de archivo/posición y no equivale a caracteres Unicode. (TOTVS, s.f., ref. 1)
FReadStr( nHandle, nQtdBytes ) --> cRetnHandleHandle válido de FOpen/FCreate; cero también es válido.
nQtdBytesLímite de bytes solicitado.
Texto leído hasta límite, nulo o fin.
#Include "Protheus.ch"
#Include "Fileio.ch"
User Function Ed394()
Local nHandle := -1
Local nError := 0
Local cTexto
// Archivo ficticio existente en contexto de prueba; lectura compartida.
nHandle := FOpen("editorial-test.txt", FO_READ + FO_SHARED)
If nHandle < 0
nError := FError()
ConOut(cValToChar(nError))
Else
cTexto := FReadStr(nHandle, 64)
nError := FError()
// Informar tamano sin exponer contenido.
ConOut(cValToChar(Len(cTexto)))
If nError <> 0
ConOut(cValToChar(nError))
EndIf
If !FClose(nHandle)
ConOut(cValToChar(FError()))
EndIf
EndIf
Return NilLongitud hasta 64 bytes o diagnóstico; no muestra contenido. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Desarrollado con Usina Docs · Alpha
© 2026 Usina.BR. Todos los derechos reservados. TOTVS, Protheus, Microsiga y sus respectivos logotipos son marcas de sus titulares. Guía AdvPL es independiente y utiliza citas limitadas, atribuidas y justificadas por fines educativos. Consulta los Términos de Uso. Términos de Uso
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.