Torna indietro   Hardware Upgrade Forum > Software > Programmazione

Intervista a Stop Killing Games: distruggere videogiochi è come bruciare la musica di Mozart
Intervista a Stop Killing Games: distruggere videogiochi è come bruciare la musica di Mozart
Mentre Ubisoft vorrebbe chiedere agli utenti, all'occorrenza, di distruggere perfino le copie fisiche dei propri giochi, il movimento Stop Killing Games si sta battendo per preservare quella che l'Unione Europea ha già riconosciuto come una forma d'arte. Abbiamo avuto modo di parlare con Daniel Ondruska, portavoce dell'Iniziativa Europa volta a preservare la conservazione dei videogiochi
Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione
Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione
Abbiamo provato il nuovo Galaxy S25 Edge, uno smartphone unico per il suo spessore di soli 5,8 mm e un peso super piuma. Parliamo di un device che ha pro e contro, ma sicuramente si differenzia dalla massa per la sua portabilità, ma non senza qualche compromesso. Ecco la nostra prova completa.
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto
Pensato per il professionista sempre in movimento, HP Elitebook Ultra G1i 14 abbina una piattaforma Intel Core Ultra 7 ad una costruzione robusta, riuscendo a mantenere un peso contenuto e una facile trasportabilità. Ottime prestazioni per gli ambiti di produttività personale con un'autonomia lontano dalla presa di corrente che permette di lavorare per tutta la giornata
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 30-01-2007, 08:58   #1
mangzeus
Senior Member
 
L'Avatar di mangzeus
 
Iscritto dal: Sep 2003
Messaggi: 1025
[vb.net] Eliminazione Multipla file di testo

Ho 2 file di testo, in uno ci sono dei numeri in combinazione e nell'altro pure. Ho bisogno di metterli a confronto per poer eliminare dal foglio 1 le righe scritte nel folgio 2.


foglio 1:

1 2 3 4 5 6
2 3 4 5 6 7
3 4 5 6 7 8
3 4 5 6 7 8


foglio 2:

1 3 4 5 6 7
4 5 6 7 8 9
3 4 5 6 7 8
1 2 3 4 5 6
2 3 4 5 6 7


devo mettere a confronto il foglio 1 con il 2 e le righe del foglio 1 che sono presenti nel foglio 2 devono essere eliminate.

come faccio???c'è un metodo per metterle a confronto tutte assieme o devo scorrermi riga per riga...mi potreste consigliare...grazie...
mangzeus è offline   Rispondi citando il messaggio o parte di esso
Old 07-02-2007, 20:54   #2
mangzeus
Senior Member
 
L'Avatar di mangzeus
 
Iscritto dal: Sep 2003
Messaggi: 1025
ho fatto il tutto con un array...solo che ovviamente devo passarmi riga per riga...ecco come ho fatto...

il mio problema alla fine è quello di ordinare in modo crescente i valori all'interno di una stringa nel minor tempo possibile....

esempio:

str= "10 5 4 7 2"

devo ottenere

str="2 4 5 7 10"

io ho fatto in questo modo ma cercavo un modo più veloce, sperando che esista....

io ho fatto così:

Codice:
Dim j As Integer
        Dim a As String, c As String
        Dim b
        Dim arrayl As New ArrayList
        arrayl.Clear()
        ''trasformo la stringa in un array
        a = str

        ''se a =nothing esci dalla funzione che non serve
        If a = Nothing Then
           Exit Function
        End If

        b = Split(a, " ")

        ''faccio il ciclo per iserire all'interno di un array list i valori
       For j = 0 To UBound(b)
        '    'converto in numero il contenuto dell'array così mi mette in ordine crescente i numeri, tutti i numeri.
         arrayl.Add(CInt(b(j)))
        Next

        ''li ordino
        arrayl.Sort()

        b = arrayl
        For j = 0 To arrayl.Count - 1
           c = LTrim(c & " " & arrayl.Item(j))

        Next

        ritstrord = c
qualcuno potrebbe dirmi se c'è un modo più veloce per fare l'operazione di mettere in ordine numerico crescente una stringa????
mangzeus è offline   Rispondi citando il messaggio o parte di esso
Old 08-02-2007, 10:11   #3
Crashbandy80
Senior Member
 
L'Avatar di Crashbandy80
 
Iscritto dal: Aug 2003
Città: Lugano (Svizzera)
Messaggi: 598
Sicuramente ci sono metodi più eleganti di come l'ho buttato giu io, ma dovrebbe funzionare:

Codice:
  Dim sortedString As String = ""
  Dim testString As String = "10 5 8 12 4 65 1"
  Dim strArr As String() = Strings.Split(testString, " ")

  Dim tempAL As New ArrayList

  For Each _str As String In strArr
      tempAL.Add(CInt(_str))
  Next

  tempAL.Sort()

  For Each obj As Integer In tempAL
      sortedString &= obj & " "
  Next

  'Rimuovo l'ultimo spazio
  sortedString = Left(sortedString, sortedString.Length - 1)
__________________
XBox GamerTag : Black CrB | PSN : Black_CrB | Steam : CrB®

Ultima modifica di Crashbandy80 : 08-02-2007 alle 10:13.
Crashbandy80 è offline   Rispondi citando il messaggio o parte di esso
Old 08-02-2007, 11:13   #4
mangzeus
Senior Member
 
L'Avatar di mangzeus
 
Iscritto dal: Sep 2003
Messaggi: 1025
Quote:
Originariamente inviato da Crashbandy80
Sicuramente ci sono metodi più eleganti di come l'ho buttato giu io, ma dovrebbe funzionare:

Codice:
  Dim sortedString As String = ""
  Dim testString As String = "10 5 8 12 4 65 1"
  Dim strArr As String() = Strings.Split(testString, " ")

  Dim tempAL As New ArrayList

  For Each _str As String In strArr
      tempAL.Add(CInt(_str))
  Next

  tempAL.Sort()

  For Each obj As Integer In tempAL
      sortedString &= obj & " "
  Next

  'Rimuovo l'ultimo spazio
  sortedString = Left(sortedString, sortedString.Length - 1)


a me serve velocità...meno passaggi possibili...di sicuro il tuo è più elegante del mio....cmq grazie mille...


se avete altri consigli...
mangzeus è offline   Rispondi citando il messaggio o parte di esso
Old 08-02-2007, 11:15   #5
mangzeus
Senior Member
 
L'Avatar di mangzeus
 
Iscritto dal: Sep 2003
Messaggi: 1025
anzi, riprendendo la domanda del mio priomo post...c'è il modo di cancellare le righe singole o multiple da un file di testo con gli oggetti StreamReader e StreamWriter???

così non avrei più problemi di velocità...
mangzeus è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


Intervista a Stop Killing Games: distruggere videogiochi è come bruciare la musica di Mozart Intervista a Stop Killing Games: distruggere vid...
Samsung Galaxy S25 Edge: il top di gamma ultrasottile e leggerissimo. La recensione Samsung Galaxy S25 Edge: il top di gamma ultraso...
HP Elitebook Ultra G1i 14 è il notebook compatto, potente e robusto HP Elitebook Ultra G1i 14 è il notebook c...
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso Microsoft Surface Pro 12 è il 2 in 1 pi&u...
Recensione REDMAGIC Astra Gaming Tablet: che spettacolo di tablet! Recensione REDMAGIC Astra Gaming Tablet: che spe...
Nuovi coupon nascosti Amazon (aggiorname...
Chatbot e salute mentale: nascono i prim...
Prezzi in ribasso su Amazon su tante com...
Eureka J15 Ultra spiazza la concorrenza ...
Stufi di tagliare il prato? Questi robot...
Anche Dyson si adegua: sconti fino a 200...
Mi sono rotto un dito, e le avventure gr...
Tutto vero: costa solo 899€ il portatile...
Lefant M330Pro da 5.000Pa a 104€ o i due...
Intel tagli ancora: vuole rendere la div...
Tesla sta per lanciare il Robotaxi nella...
Dead Island 2 arriva su Mac, ma a un pre...
FIA e Formula E rinnovano il matrimonio:...
Windows 11 24H2 approda su nuovi sistemi...
Le restrizioni americane hanno generato ...
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: 09:53.


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