Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Ryzen Threadripper 9980X e 9970X alla prova: AMD Zen 5 al massimo livello
Ryzen Threadripper 9980X e 9970X alla prova: AMD Zen 5 al massimo livello
AMD ha aggiornato l'offerta di CPU HEDT con i Ryzen Threadripper 9000 basati su architettura Zen 5. In questo articolo vediamo come si comportano i modelli con 64 e 32 core 9980X e 9970X. Venduti allo stesso prezzo dei predecessori e compatibili con il medesimo socket, le nuove proposte si candidano a essere ottimi compagni per chi è in cerca di potenza dei calcolo e tante linee PCI Express per workstation grafiche e destinate all'AI.
Acer TravelMate P4 14: tanta sostanza per l'utente aziendale
Acer TravelMate P4 14: tanta sostanza per l'utente aziendale
Forte di soluzioni tecniche specifiche, il notebook Acer TravelMate P4 14 abbina dimensioni compatte e buona robustezza per rispondere alle necessità specifiche degli utenti aziendali. La piattaforma AMD Ryzen 7 Pro assicura prestazioni elevate con i tipici ambiti di produttività personale e sul lavoro, mantenendo un'elevata autonomia.
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque
Dal salotto al giardino, il nuovo proiettore laser di Hisense promette esperienze cinematografiche in qualsiasi contesto: qualità d’immagine, semplicità d’uso, versatilità e prezzo competitivo il suo poker d'assi
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 21-12-2010, 18:11   #1
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
[VB.NET 2010] Scrivere listbox su file txt

ciao ragazzi

allora io ho un form con una listbox che ci compila di items (10-15 items) in base a delle istruzioni che fa la form , perciò è tutto automatico
la listbox è una specie di log eventi del programma , tiene traccia di ciò che fa il programma.

fin qui funziona tutto

solo che ora vorrei che alla chiusura del form tutti gli items della listbox vengano salvati su un file (txt) con

- nome file = data_ora
- contenuto = tutti gli items della listbox

per ora ho fatto questo

Codice:
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
 For Each messaggio In LogBox.Items

        Next
End Sub
lo so che è niente ,.. però non ho mai fatto operazioni su file eccetto su c/c++ con fstream
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 21-12-2010, 19:14   #2
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da Ludo237 Guarda i messaggi
solo che ora vorrei che alla chiusura del form tutti gli items della listbox vengano salvati su un file (txt) con

- nome file = data_ora
- contenuto = tutti gli items della listbox
Codice:
        Dim testoFile As New System.Text.StringBuilder
        Dim nomeFile As String = DateTime.Now.ToString.Replace("/", "-") & ".txt"
        For i As Integer = 0 To ListBox1.Items.Count - 1
            testoFile.Append(ListBox1.Items(i).ToString & vbCrLf)
        Next
        My.Computer.FileSystem.WriteAllText(percorso & nomeFile, testoFile.ToString, False)
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 08:53   #3
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
Codice:
        Dim testoFile As New System.Text.StringBuilder
        Dim nomeFile As String = DateTime.Now.ToString.Replace("/", "-") & ".txt"
        For i As Integer = 0 To ListBox1.Items.Count - 1
            testoFile.Append(ListBox1.Items(i).ToString & vbCrLf)
        Next
        My.Computer.FileSystem.WriteAllText(percorso & nomeFile, testoFile.ToString, False)
MarcoGG
l'unica cosa che "percorso" non esiste e se provo a farlo diventare una variabile (contenente il path che mi server) mi dice che Testfile viene utilizzata prima di ricevere un valore

Ultima modifica di Ludo237 : 22-12-2010 alle 09:06.
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 10:31   #4
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Ma esattamente DOVE inizializzi percorso rispetto al mio codice ?
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 10:42   #5
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
Ma esattamente DOVE inizializzi percorso rispetto al mio codice ?
se prendo e copio il tuo codice mi dice che la variabile percorso (ultima riga nella parentesi) non è dichiarata

allora la dichiaro prima di tutte.

Codice:
dim percorso as string = "C:/...."
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 10:55   #6
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Ah, ok.
Probabilmente rompe perchè non gli piace che testoFile sia vuoto.
Per maggior sicurezza risolvi così :

Codice:
        Dim percorso As String = Application.StartupPath & "\"
        Dim testoFile As New System.Text.StringBuilder("")
        Dim nomeFile As String = DateTime.Now.ToString.Replace("/", "-") & ".txt"
        For i As Integer = 0 To ListBox1.Items.Count - 1
            testoFile.Append(ListBox1.Items(i).ToString & vbCrLf)
        Next
        If testoFile.ToString <> "" Then My.Computer.FileSystem.WriteAllText(percorso & nomeFile, testoFile.ToString, False)
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 10:59   #7
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
se aggiungo

Codice:
("")
dopo stringbuilder me lo sottolinea indicandomi "limiti di matrici non possono trovarsi negli identificatori del tipo"

EDIT : NO SCUSA ho sbagliato a scrivere io il codice -.- MEA CULPA
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 11:03   #8
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
l'unico problema che ho è il nome del file , sembra che 22-10-2010 12:03:00.txt per lui non sia corretto
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 11:16   #9
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Quote:
Originariamente inviato da Ludo237 Guarda i messaggi
l'unico problema che ho è il nome del file , sembra che 22-10-2010 12:03:00.txt per lui non sia corretto
Sì chiaro, ho capito. Ha a che fare con le impostazioni locali.
Non puoi mettere i due-punti nel nome file. Nel mio caso invece mette il punto come separatore orario e funziona.
Tra un po' ti posto una mia Function ( appena la trovo ) che genera la stringa giusta a partire dalla data, e che taglia la testa al toro...
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 12:34   #10
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Ok, trovata ( non mi andava di riscriverla da capo... oggi mi sento pigro ) :
Codice:
    Public Function GetNomeFileTxt(ByVal D As DateTime) As String

        Dim S As String

        Dim Yr As String = D.Year.ToString
        Dim Mh As String = D.Month.ToString.PadLeft(2, "0")
        Dim Dy As String = D.Day.ToString.PadLeft(2, "0")
        Dim hh As String = D.Hour.ToString.PadLeft(2, "0")
        Dim mm As String = D.Minute.ToString.PadLeft(2, "0")
        Dim ss As String = D.Second.ToString.PadLeft(2, "0")

        S = Yr & "-" & Mh & "-" & Dy & "_" & hh & "." & mm & "." & ss & ".txt"
        Return S

    End Function
Perciò basta sostituire in :

Codice:
Dim nomeFile As String = GetNomeFileTxt(DateTime.Now)
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 13:15   #11
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
Ok, trovata ( non mi andava di riscriverla da capo... oggi mi sento pigro ) :
Codice:
    Public Function GetNomeFileTxt(ByVal D As DateTime) As String

        Dim S As String

        Dim Yr As String = D.Year.ToString
        Dim Mh As String = D.Month.ToString.PadLeft(2, "0")
        Dim Dy As String = D.Day.ToString.PadLeft(2, "0")
        Dim hh As String = D.Hour.ToString.PadLeft(2, "0")
        Dim mm As String = D.Minute.ToString.PadLeft(2, "0")
        Dim ss As String = D.Second.ToString.PadLeft(2, "0")

        S = Yr & "-" & Mh & "-" & Dy & "_" & hh & "." & mm & "." & ss & ".txt"
        Return S

    End Function
Perciò basta sostituire in :

Codice:
Dim nomeFile As String = GetNomeFileTxt(DateTime.Now)
ma c'è qualcosa che non sai ?

Grazie mille (di nuovo)
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 14:35   #12
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
Preferisco andare un attimo OT piuttosto che aprire un nuovo 3D solo per una domandina idiota

su una combobox dinamica creata in questo modo

Codice:
        Dim Email_ComboTable As New DataTable()
        Connessione_SmsPanel.Open()
        Adapter_Dirette_SmsPanel.Fill(Email_ComboTable)
        Connessione_SmsPanel.Close()
        Email_ComboBox.DataSource = Email_ComboTable
        Email_ComboBox.DisplayMember = "email"
        Email_ComboBox.ValueMember = "id_email"
io riesco a prelevare l'id di ogni opzione della combobox cosi

Codice:
Dim id_email As Integer = Email_ComboBox.SelectedValue
però se volessi anche prelevare il valore ?
perchè cosi come scritto sopra io prelevo l'id_email ma se volessi anche prelevare l'effettiva email ? spero di essere stato chiaro
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 15:57   #13
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3210
Se parli di .SelectedValue ti riferisci all'item selezionato, perciò dal momento che la ComboBox, una volta eseguita la selezione "si chiude", la proprietà giusta dovrebbe essere semplicemente .Text .
__________________
Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ]
Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 22-12-2010, 17:24   #14
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
yea it works (non ne dubitavo )
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
Old 23-12-2010, 18:42   #15
Ludo237
Member
 
L'Avatar di Ludo237
 
Iscritto dal: Feb 2009
Città: Varese
Messaggi: 205
Ora sto facendo il procedimento inverso .. ovvero voglio caricare un file TXT e visualizzarlo
Utilizzo la classe OpenFileDialog ma non so come far visualizzare il file txt ... cioè posso utilizzare una listbox??? oppure c'è qualche altro metodo???

il codice che ho fatto per ora è questo
Codice:
     Private Sub Sfoglia_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sfoglia_Button.Click
        Dim myStream As Stream
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = Application.StartupPath & "\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt"

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            NomeFile_TextBox.Text = openFileDialog1.FileName
            SmsPanel.LogBox.Items.Add(Now() & "   Aperto il log eventi : " & openFileDialog1.FileName)
            myStream = openFileDialog1.OpenFile()
            If Not (myStream Is Nothing) Then
                myStream.Close()
            End If
        End If
    End Sub
Ci sono metodi migliori ?
nel "NomeFile_Textbox" mi mostra tutto il path , è possibile far vedere solo il nome del file?

Ultima modifica di Ludo237 : 23-12-2010 alle 18:53.
Ludo237 è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Ryzen Threadripper 9980X e 9970X alla prova: AMD Zen 5 al massimo livello Ryzen Threadripper 9980X e 9970X alla prova: AMD...
Acer TravelMate P4 14: tanta sostanza per l'utente aziendale Acer TravelMate P4 14: tanta sostanza per l'uten...
Hisense M2 Pro: dove lo metti, sta. Mini proiettore laser 4K per il cinema ovunque Hisense M2 Pro: dove lo metti, sta. Mini proiett...
Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il convertibile di classe Lenovo ThinkPad X1 2-in-1 G10 Aura Edition: il c...
Intervista a Stop Killing Games: distruggere videogiochi è come bruciare la musica di Mozart Intervista a Stop Killing Games: distruggere vid...
Gestione attività di Windows 11 d...
Amazon lancia il nuovo videocitofono Bli...
Robot aspirapolvere al top: i nuovi DEEB...
Opera vs Microsoft: la guerra dei browse...
Router e ripetitori FRITZ! in offerta su...
Spotify vola a quota 700 milioni di uten...
Microsoft pronta ad abbandonare il launc...
Windows 11, arriva una feature multimoni...
Addio termosifoni? Ecco la pittura itali...
OnePlus Pad Lite conquista l’Italia: il ...
Appuntamenti su Roblox: la controversa v...
L’AI Meteo di Google sbarca silenziosame...
Palo Alto Networks sarebbe in procinto d...
Motorola Moto G15 a soli 110€: 8/256GB d...
Hexagon strizza l'occhio ai sim racer e ...
Chromium
GPU-Z
OCCT
LibreOffice Portable
Opera One Portable
Opera One 106
CCleaner Portable
CCleaner Standard
Cpu-Z
Driver NVIDIA GeForce 546.65 WHQL
SmartFTP
Trillian
Google Chrome Portable
Google Chrome 120
VirtualBox
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 14:56.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Served by www3v