Visual Basic 6 - nomi cancellati

Forum - Visual Basic 6 - nomi cancellati

trittico69 (Normal User)
Pro

Messaggi: 144
Iscritto: 02/04/2010

Postato alle 0:00
Sabato, 14/08/2010

Questo topic è stato chiuso dal moderatore

C’è un sistema che mi permetta di salvare da un foflio1 a un foglio2 dei nomi che vengono cancellati da un elenco?
Però non deve succedere nulla se il nome viene cancellato e spostato in un'altra cella..
Esempio, allegato, se rossi carlo viene cancellato allora deve essere visualizzato nel foglio2 se invece prende il posto di nino luca e nino luca prende il posto di carlo rossi allora non deve essere visualizzato nel foglio2..
Preferirei delle formule ma se è complicato va bene anche con codici
I nomi sono su un server e vengono copiati con delle formule…
Potete farmi l’esempio inserendo formule o codici nell’allegato e riallegarlo?
mi spiego meglio..
i nomi vengono cancellati da miei colleghi di lavoro da altri pc che collegati al sever che vanno ad agire su un file chiamato "rubrica"...il mio file copia i nomi scritti in "rubrica" e li trascrive nel foglio1...quando un mio collega cancella un nome(e non quando lo sposta) quel nome mi deve comparire nel foglio2...
grazie!

blackboss (Normal User)
Pro

Messaggi: 63
Iscritto: 19/08/2009

Postato alle 11:49
Sabato, 14/08/2010

Testo quotato

Postato originariamente da trittico69:

C’è un sistema che mi permetta di salvare da un foflio1 a un foglio2 dei nomi che vengono cancellati da un elenco?
Però non deve succedere nulla se il nome viene cancellato e spostato in un'altra cella..
Esempio, allegato, se rossi carlo viene cancellato allora deve essere visualizzato nel foglio2 se invece prende il posto di nino luca e nino luca prende il posto di carlo rossi allora non deve essere visualizzato nel foglio2..
Preferirei delle formule ma se è complicato va bene anche con codici
I nomi sono su un server e vengono copiati con delle formule…
Potete farmi l’esempio inserendo formule o codici nell’allegato e riallegarlo?
mi spiego meglio..
i nomi vengono cancellati da miei colleghi di lavoro da altri pc che collegati al sever che vanno ad agire su un file chiamato "rubrica"...il mio file copia i nomi scritti in "rubrica" e li trascrive nel foglio1...quando un mio collega cancella un nome(e non quando lo sposta) quel nome mi deve comparire nel foglio2...
grazie!

Fammi capire tu hai tre files uno chiamato rubrica, uno foglio1 e uno foglio2. In breve tu dovresti inserire nel foglio2 tutti i nomi presenti nel foglio1 ma non presenti nel file "rubrica"?

blackboss (Normal User)
Pro

Messaggi: 63
Iscritto: 19/08/2009

Postato alle 13:08
Sabato, 14/08/2010

Sto scrivendo un codice, tra un po' te lo posto

blackboss (Normal User)
Pro

Messaggi: 63
Iscritto: 19/08/2009

Postato alle 15:26
Sabato, 14/08/2010

Ecco qui:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
'Con questo inserisco ogni riga del file in un array chiamato arr
'La variabile file1 contiene il percorso del FILE1
Dim S As String
Dim arr() As String
Dim file1 As String
file1 = "C:\Tuo percorso\file1.txt"
Open file1 For Binary As #1
    S = Space$(LOF(1))
    Get #1, , S
    arr = Split(S, vbCrLf)
Close #1
 
'Ripeto la stessa operazione ma con il file RUBRICA
'La variabile rubrica contiene il percorso del file RUBRICA
Dim P As String
Dim arr1() As String
Dim rubrica As String
rubrica = "C:\Tuo percorso\rubrica.txt"
Open rubrica For Binary As #2
    P = Space$(LOF(2))
    Get #2, , P
    arr1 = Split(P, vbCrLf)
Close #2
 
'Trasformo l'array del file rubrica (arr1) in una stringa (rub)
Dim rub As String
Dim i As Integer
i = 0
    For i = 0 To UBound(arr1)
    rub = rub & arr1(i) & "%"
    Next
 
'Controllo se i nomi dell'array arr1 non sono presenti nella stringa rub e
'li aggiungo in una nuova riga al file FILE2
Dim file2 As String
Dim add As String
file2 = "C:\Tuo percorso\file2.txt"
    For i = 0 To UBound(arr)
        If InStr(rub, arr(i)) = 0 Then
        add = arr(i)
        Open file2 For Append As #3
        Print #3, add
        Close #3
        End If
    Next
End Sub

Io l'ho inserito all'evento click di un click di un command button, ma lo puoi mettere dove vuoi!
Spero di esserti stato utile! Ciao

trittico69 (Normal User)
Pro

Messaggi: 144
Iscritto: 02/04/2010

Postato alle 16:18
Sabato, 14/08/2010

Testo quotato

Postato originariamente da blackboss:

Ecco qui:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
'Con questo inserisco ogni riga del file in un array chiamato arr
'La variabile file1 contiene il percorso del FILE1
Dim S As String
Dim arr() As String
Dim file1 As String
file1 = "C:\Tuo percorso\file1.txt"
Open file1 For Binary As #1
    S = Space$(LOF(1))
    Get #1, , S
    arr = Split(S, vbCrLf)
Close #1
 
'Ripeto la stessa operazione ma con il file RUBRICA
'La variabile rubrica contiene il percorso del file RUBRICA
Dim P As String
Dim arr1() As String
Dim rubrica As String
rubrica = "C:\Tuo percorso\rubrica.txt"
Open rubrica For Binary As #2
    P = Space$(LOF(2))
    Get #2, , P
    arr1 = Split(P, vbCrLf)
Close #2
 
'Trasformo l'array del file rubrica (arr1) in una stringa (rub)
Dim rub As String
Dim i As Integer
i = 0
    For i = 0 To UBound(arr1)
    rub = rub & arr1(i) & "%"
    Next
 
'Controllo se i nomi dell'array arr1 non sono presenti nella stringa rub e
'li aggiungo in una nuova riga al file FILE2
Dim file2 As String
Dim add As String
file2 = "C:\Tuo percorso\file2.txt"
    For i = 0 To UBound(arr)
        If InStr(rub, arr(i)) = 0 Then
        add = arr(i)
        Open file2 For Append As #3
        Print #3, add
        Close #3
        End If
    Next
End Sub

Io l'ho inserito all'evento click di un click di un command button, ma lo puoi mettere dove vuoi!
Spero di esserti stato utile! Ciao

puoi allegarmi un file excel con i tuoi codici inseriti...se si trattava di formule me la cavavo ma di codici non sono bravo...grazie!

blackboss (Normal User)
Pro

Messaggi: 63
Iscritto: 19/08/2009

Postato alle 19:12
Sabato, 14/08/2010

Se stai lavorando con le macro di exel, hai sbagliato sezione del forum dovresti postare nella sezione "altri linguaggi".
Io credevo stessi lavorando su visual basic 6 (vista la sezione in cui hai aperto il topic) e il codice che ti ho postato va bene solo per vb6.
Non ho mai usato le macro di exel e a questo punto non sò più come aiutarti.
PS:fai attenzione la prossima volta, puoi far perdere tempo e fatica agli altri per poi non ottenere nulla!