Torna indietro   Hardware Upgrade Forum > Software > Programmazione

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
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso
Microsoft Surface Pro 12 è il 2 in 1 più compatto e silenzioso
Basato su piattaforma Qualcomm Snapdragon X Plus a 8 core, il nuovo Microsoft Surface Pro 12 è un notebook 2 in 1 molto compatto che punta sulla facilità di trasporto, sulla flessibilità d'uso nelle differenti configurazioni, sul funzionamento senza ventola e sull'ampia autonomia lontano dalla presa di corrente
Recensione REDMAGIC Astra Gaming Tablet: che spettacolo di tablet!
Recensione REDMAGIC Astra Gaming Tablet: che spettacolo di tablet!
Il REDMAGIC Astra Gaming Tablet rappresenta una rivoluzione nel gaming portatile, combinando un display OLED da 9,06 pollici a 165Hz con il potente Snapdragon 8 Elite e un innovativo sistema di raffreddamento Liquid Metal 2.0 in un form factor compatto da 370 grammi. Si posiziona come il tablet gaming più completo della categoria, offrendo un'esperienza di gioco senza compromessi in mobilità.
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


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...
Dopo un mese, e 50 foto, cosa abbiamo capito della nuova Nintendo Switch 2 Dopo un mese, e 50 foto, cosa abbiamo capito del...
Gigabyte Aero X16 Copilot+ PC: tanta potenza non solo per l'IA Gigabyte Aero X16 Copilot+ PC: tanta potenza non...
Motorola edge 50 Neo 12/512GB o edge 60 ...
Dick Pic addio? L'AI di Flirtini insegna...
WhoFi: riconoscimento biometrico tramite...
Zero-day SharePoint: Microsoft punta il ...
Grab & Go, il nuovo Telepass per chi...
Primo chip quantistico con elettronica e...
Da Microsoft due nuovi Surface Laptop 5G...
Processore NVIDIA N1X slittato al 2026: ...
Tesla, nel secondo semestre più a...
One UI 8 Watch arriva su Galaxy Watch Ul...
Moon Studios scarica Xbox: No Rest for t...
L'idea di JPMorgan: prestiti e finanziam...
Candy Crush: non solo il gioco! Arriva a...
Ecco come siamo riusciti a raccogliere l...
Agentic AI Framework: l'IA basata su age...
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: 07:32.


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