datei schreiben

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Modder.

    datei schreiben

    hallo,
    ich suche ein möglichkeit wie man eine datei auf linux schreibt oder hochlät.

    ich habe ein programm gebaut (chatmaster.tk -> codeascript.de/index.php?page=ChatMaster_TK)
    und wie geschrieben bin ich bei die 1.0.1 zu entwikeln und nicht zu übersehen ist die serverlist.

    Zur function:

    die server senden alle 3 min ein html code zum server mit ip name usw, das list programm soll das samelt und läht/schreibt die liste als html ihn website ordner


    Probel:
    das listprogramm soll auf linux sever laufen.

    Fortschrit:
    es läuft min mono einanfrei bis auf die sache das die datei nicht geschrieben wir :(


    Frage:

    ich brauche eine code den mono unterstützt der ihn entefeckt die datei schreibt.

    VB.NET-Quellcode

    1. Module Module1
    3. Dim liss As New Net.Sockets.TcpListener(9985)
    4. Dim cli As New Net.Sockets.TcpClient
    5. Public beenden As Boolean = False
    6. Dim mes As String
    7. Dim liste As String = ""
    8. WithEvents Timer1 As New Timers.Timer
    9. WithEvents Timer2 As New Timers.Timer
    11. Sub Main()
    12. Console.WriteLine("wilkommen")
    13. Dim list As New Threading.Thread(New Threading.ThreadStart(AddressOf listi))
    14. list.Start()
    16. Timer1.Start()
    17. Timer1.Interval = 1
    19. Timer2.Start()
    20. Timer2.Interval = 180000
    22. Do While beenden <> True
    23. scheck()
    24. Loop
    26. End Sub
    27. Public Sub scheck()
    29. End Sub
    31. Public Sub Timer1_Tick() Handles Timer1.Elapsed
    33. If liss.Pending = True Then
    34. mes = ""
    35. cli = liss.AcceptTcpClient
    37. Dim readerb As New IO.StreamReader(cli.GetStream)
    38. While readerb.Peek > -1
    39. mes = mes + Convert.ToChar(readerb.Read()).ToString
    40. End While
    43. liste = liste & mes
    44. Console.WriteLine("Es wurde ein sigal entpfangen: " & mes)
    45. Else : End If
    48. End Sub
    49. Public Sub Timer2_Tick() Handles Timer2.Elapsed
    51. Console.WriteLine(liste)
    57. 'hier soll der code zum schreiben rein
    63. Console.WriteLine("write liste.html")
    64. liste = ""
    67. End Sub
    69. Public Sub listi()
    70. liss.Start()
    71. End Sub
    72. End Module


    hier

    da dein StreamReder oben funktioniert verwende enfach den StreamWriter zum schreiben

    VB.NET-Quellcode

    1. Using sw As StreamWriter = New StreamWriter("c:\lulu\deinedatei.txt")
    2. sw.WriteLine("Zeile 1")
    3. sw.WriteLine("Zeile 2")
    4. End Using


    Du musst System.IO halt noch importieren (ganz oben reinschreiben)

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

Facebook
Telefonspende