¿Como agregar una linea de texto en un archivo sin shell?

¿Como agregar una linea de texto en un archivo sin shell? - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: ¿Como agregar una linea de texto en un archivo sin shell? (/thread-1426.html)

¿Como agregar una linea de texto en un archivo sin shell? - tincho - 28-06-2023

Hola crustáceos.
Uso esta función para agregar texto a un archivo. Es un registro rudimentario que cumple con los requerimientos.

Código:
Private Sub Nolog(sMsg As String)

  Shell "echo \"" & sMsg & "\" >> /tmp/icons.log"

End

¿Como se hace esto pero sin Shell?

RE: ¿Como agregar una linea de texto en un archivo sin shell? - vuott - 28-06-2023

1) usando las palabras-llave " Write Append" con "Open".

Código:
Public Sub Main()

  Dim fl As File

  Dim sMsg As String = "Arma virumque cano"

  fl = Open "/tmp/icons.log" For Write Append 

  Write #fl, sMsg

  fl.Close

End

2) usando los Metodos ".Load()" y ".Save()" de la Clase "File":

Código:
Public Sub Main()

  Dim sMsg As String = "Arma virumque cano"

  File.Save("/tmp/icons.log", File.Load("/tmp/icons.log") & sMsg)

End