Altro problema..

[mitor]

Ciao a tutti...
spero che non vi dò fastidio ad aprire tutti sti topic
visto che sto lavorando su più progetti sto riscontrando diverse difficoltà..
in questo momento ho iniziato un progetto chiamato:

Hacking Secret Forum organizer 1.0,
io ho messo hacking perchè sto anche creando un sito sull'hacking(in html)
cmq...il programma momentaneamente consente di:

vedere gli utenti,Gli utenti bannati,i moderatori e gli amministratori del proprio forum,i siti amici e i siti "esclusi",
il link del proprio sito web e il/i link del proprio forum,le regole e le parole inaccettate del forum..
Tutto questo serve se non avete voglia di entrare sempre nel forum..oppure se non avete voglia di ricordare a memoria tutti gli utenti e i vari indirizzi ip...
tutto questo sarebbe stato prescritto dall'utente in file txt e verrebbere aperto manualmente..ma questo mi rendo conto che è una noia... cercherei un modo per aprirli automaticamente...c'è..ad ogni ingresso aggiornati automaticamente,spero di essermi spiegato...visto che penso di aver scritto tutto in un modo un pò incasinato..sorry...se non capite spiego meglio...

grazie ancora a tutti,
specialmente a diana05

[diana05]

Ciao a tutti...
spero che non vi dò fastidio ad aprire tutti sti topic
visto che sto lavorando su più progetti sto riscontrando diverse difficoltà..

Il fatto di aprire post nuovi ci può solo fare piacere!

in questo momento ho iniziato un progetto chiamato:

Hacking Secret Forum organizer 1.0,
io ho messo hacking perchè sto anche creando un sito sull'hacking(in html)
cmq...il programma momentaneamente consente di:

vedere gli utenti,Gli utenti bannati,i moderatori e gli amministratori del proprio forum,i siti amici e i siti "esclusi",
il link del proprio sito web e il/i link del proprio forum,le regole e le parole inaccettate del forum..
Tutto questo serve se non avete voglia di entrare sempre nel forum..oppure se non avete voglia di ricordare a memoria tutti gli utenti e i vari indirizzi ip...
tutto questo sarebbe stato prescritto dall'utente in file txt e verrebbere aperto manualmente..ma questo mi rendo conto che è una noia... cercherei un modo per aprirli automaticamente...c'è..ad ogni ingresso aggiornati automaticamente,spero di essermi spiegato...visto che penso di aver scritto tutto in un modo un pò incasinato..sorry...se non capite spiego meglio...

Dal tuo post mi sembra di capire che intendi gestire praticamente dei file INI dove le informazioni sono raccolte nella forma:

chiave = valore

chiave rappresenta il nome del parametro da controllare e valore è il valore associato a tale parametro.

Se è questo che intendevi ti posto un codice scritto in linguaggio VB. Se tu stai usando VB.NET fammelo sapere e ti dico quali sono le modifiche da fare:

Public Function readValore(ByVal percorso As String, ByVal famiglia As String, ByVal chiave As String) As String
Rem Funzione che permette di leggere il valore di una determinata chiave
Rem Se la chiave non è presente restituisce la stringa "ERR_101"
Rem Se non è presente la famiglia restituisce la stringa "ERR_100"

Dim ritorno As String ' Stringa di ritorno
Dim temp As String ' Stringa contenente il valore temporaneo di lettura
Dim fp As Integer ' Puntatore al file

Dim famigliaTrovata As Boolean
Dim chiaveTrovata As Boolean
Dim indice As Integer

fp = FreeFile
Open percorso For Input As #fp
famigliaTrovata = False

Do While Not EOF(fp)
Line Input #fp, temp ' Legge una riga

Rem Passa ad analizzare la riga letta
temp = Trim(temp)

If famigliaTrovata = False Then
If temp = "[" & famiglia & "]" Then
Rem Ha trovato la famiglia. Ora cerca la chiave

famigliaTrovata = True
End If
Else ' La famiglia era stata trovata. Cerca la chiave
If Mid(temp, 1, 1) = "[" Then
Rem In questo caso è presente un'altra famiglia.
Rem Significa che la chiave non è stata trovata

readValore = "ERR_101"
GoTo closeFunction
End If

indice = searchChar(temp, "=")
If indice <> -1 Then
If Mid(temp, 1, indice - 1) = chiave Then
Rem Chiave trovata. La restituisce al chiamante
readValore = Mid(temp, indice + 1)
GoTo closeFunction
End If
End If

End If

Loop

If famigliaTrovata = True Then
readValore = "ERR_101"
Else
readValore = "ERR_100"
End If

closeFunction:
Rem Chiude il file prima di uscire
Close #fp
End Function

Public Function writeValore(ByVal percorso As String, ByVal famiglia As String, ByVal chiave As String, ByVal Valore As String) As Integer
Rem Funzione che permette di aggiungere o modificare chiavi all'interno del file.
Rem Se la chiave non è presente la genera. Se la famiglia non è presente restituisce -1

Rem Prima cerco la famiglia. Nel caso non venga trovata restituisce - 1
Dim fp As Integer
Dim temp As String
Dim famigliaTrovata As Boolean
Dim finisciScrittura As Boolean ' Se posto a true riscrive le righe che trova

Dim fp1 As Integer
Dim fp2 As Integer
Dim temp1 As String
Dim Temp2 As String

fp = FreeFile
Open percorso For Input As #fp
famigliaTrovata = True

Do While Not EOF(fp)
Line Input #fp, temp

temp = Trim(temp)
If temp = "[" & famiglia & "]" Then
famigliaTrovata = True
Exit Do
End If
Loop
Close #fp

If famigliaTrovata = False Then
writeValore = -1
Exit Function
End If

Rem Ha trovato la famiglia. Adesso riapre il file insieme ad un altro file di appoggio
Rem Ogni riga che legge dal primo la scrive nel secondo fino a quando non trova la chiave

fp1 = FreeFile
Open percorso For Input As #fp1
fp2 = FreeFile
Open percorsoFileTemp & "\temp.ini" For Output As #fp2
famigliaTrovata = False
finisciScrittura = False

Do While Not EOF(fp1)
Line Input #fp1, temp1

If finisciScrittura = True Then
Print #fp2, temp1
Else

Rem Analizza la riga letta
Temp2 = Trim(temp1)

If famigliaTrovata = False Then
Rem Intanto riscrive la riga nel secondo file
Print #fp2, temp1

If Temp2 = "[" & famiglia & "]" Then
Rem Ha trovato la famiglia

famigliaTrovata = True
End If
Else ' La famiglia era stata trovata. Cerca la chiave
If Mid(Temp2, 1, 1) = "[" Then
Rem Nessuna chiave. Va aggiunta la nuova chiave
Print #fp2, chiave & "=" & Valore

Print #fp2, ""

finisciScrittura = True
End If

indice = searchChar(Temp2, "=")
If indice <> -1 Then
If Mid(Temp2, 1, indice - 1) = chiave Then
Rem Chiave trovata.Modifica il valore
Print #fp2, chiave & "=" & Valore
finisciScrittura = True
Else
Print #fp2, temp1
End If
Else
Print #fp2, temp1
End If

End If

End If
Loop

Close #fp2
Close #fp1

Rem Come ultima operazione sostituisce il file con il file temporaneo
Kill percorso
FileCopy percorsoFileTemp & "\temp.ini", percorso
Kill percorsoFileTemp & "\temp.ini"
End Function

Private Function searchChar(ByVal stringa As String, ByVal carat As String) As Integer
Rem Funzione che ricerca un carattere all'interno di una stringa.
Rem Se lo trova restituisce l'indice del carattere altrimenti restituisce -1

For i = 1 To Len(stringa)
If Mid(stringa, i, 1) = carat Then
searchChar = i
Exit Function
End If
Next

searchChar = -1
End Function

In pratica il tuo file INI deve assumere la forma:
[famiglia]
chiave=valore
....................

[famiglia2]
chiave2=valore
....................................

Le famiglie servono per raggruppare variabili inerenti ad uno stesso insieme.

grazie ancora a tutti,
specialmente a diana05

Grazie!

[mitor]

Scusami ma penso di essermi spiegato male....
avevo proggettato il programma in modo che si dovrebbero caricare ad esempio gli utenti del forum tramite il tasto apri con il suo codice... poi tramite il tasto apri indirizzi msn e via via..
è difficile spiegarlo scrivendo.....

cmq risultava noioso visto che ad ogni accesso si dovevano aprire tutti i file nuovamente....e quindi o pensato....perchè non metto tutti i dati in un file html?"sicuramente non ci stai capendo una mazza.."è difficile spiegarlo in questo modo..cmq il problema di prima lo risolto,ma ora ne o trovato un'altro...modificando i file txt con un solo file html,che risparmi sia tempo che "fatica",ma mi rendo conto che utilizzando la funzione: WebBrowser
ma mi dice di inserirne l'url... quindi o ci metto: http:www.sitoweb.it oppure il percorso della cartella:C:
ma se sposto la cartella non lo legge più....
accidenti...è cosi difficile da spiegare

Coma faccio a spiegartelo? che figuraccia ((((((((

[mitor]

ho finalmente risolto il problema,ora il programma &#232; pronto....finalmente lo terminato.. &#232; da una cifra di giorni che ci lavoro su......e lo anche migliorato....cmq....vorrei creare un forum tutto mio,e non un forum ad esempio quello di altervista,se non sbaglio servono conoscenze in php..giusto?b&#232;..mi servirebbe un bel corso a partire da zero su quel linguaggio utilizzato per creare i forum...(penso sia il php..)grazie....

[diana05]

ho finalmente risolto il problema,ora il programma è pronto....finalmente lo terminato.. è da una cifra di giorni che ci lavoro su......e lo anche migliorato....cmq....vorrei creare un forum tutto mio,e non un forum ad esempio quello di altervista,se non sbaglio servono conoscenze in php..giusto?bè..mi servirebbe un bel corso a partire da zero su quel linguaggio utilizzato per creare i forum...(penso sia il php..)grazie....

Per creare un forum web va benissimo conoscere il php...ma potrebbe andar bene avere conoscenza di qualsiasi linguaggio di scripting lato server (quindi ad esempio anche asp).
Per il momento il corso di siti web è fermo, ma conto di riprenderlo presto subito dopo le ferie di Natale...a quel punto magari metteremo in piedi anche un corso di PHP oppure di ASP.
Tu continua a seguirci e vedrai che insieme faremo grandi cose!

[mitor]

Amo questa sezione....comunque..è un'ottima idea.....buon natale!!!