tincho   28-06-2023, 22:02
#1
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?

1 Saludo.
vuott   28-06-2023, 23:41
#2
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

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
  
Usuarios navegando en este tema: 2 invitado(s)
Powered By MyBB, © 2002-2024 MyBB Group.
Made with by Curves UI.