Newsgroup: it.comp.lang.visual-basic
Titolo: scusate l'intrusione...principiante...

1) Avrei due problemi, che per voi sarà di sicuro una banalità...ma non ci
riesco...:
io ho creato una form con una bella stringa di testo, ora, su questa stringa
io voglio aprirci un file, ok? mi son letto il mio bel libro che mi dice:
"cerca e metti commondialog1..."
Private Sub mnuapri_Click()
Dim sfile As String
CommonDialog1.Filter = " Tutti i file (*.*) | *.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
        ...
...
End Sub
da qui tutto a posto, ma ora...come faccio ad aprire il tutto sulla stringa
txt.text  ?
2)Il secondo problema è il seguente:
dunque, io ho due stringhe text1.text e text2.text, sulla prima scrivo ad
esempio
"come va? tutto bene!"
ora, sulla seconda stringa vorrei che mi compaia:
- la codifica ascii della stringa;
- ma modifica di tutti i caratteri della stringa.
in poche parole il mio problema è quello di non sapere come modificare,
all'interno di una stringa i caratteri che si immettono!!!
grazie per le eventuali risposte...e scusate l'intrusione...(spero di non
essere stato offensivo o avervi annoiato con le mie scemenze...se dovesse
esserci qualche cosa che non va ditemelo senza problemi...non conosco ancora
bene la netiquette di questo new)
ciao ...
ToM_


1)    Dichiara in un modulo la seguente API e le due costanti:
Public Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
ByVal lpFile As String, ByVal lpParameters As String, ByVal
lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWNORMAL = 1
Decidi come fare ad aprire il file: doppio click sulla textbox oppure
un altro CommandButton ed inserisci la chiamata all'API:
lngRisposta = ShellExecute(Me.hwnd, "open", Nome_File, vbNullString,
vbNullString, SW_SHOWMAXIMIZED)
dove nome_file è il valore della tua TextBox
2)    Non è molto chiaro, vuoi visualizzare in text2 il contenuto di
text1 in valori ASCII?
Cosa vuol dire che ti modifica tutti i caratteri della stringa?
Prova a scrivere una routine con un ciclo for del tipo:
for x = 1 to len(text1.text)
    text2.text = text2.text &format$(asc(mid$(text1.text,x,1)),"000 ")
next x
In questo modo non tocchi text1 e crei una stringa in text2 contenente
la decodifica in valori ASCII.
Ma non sono sicuro se è quello che volevi ottenere.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 Public Const SW_SHOWNORMAL = 1
Ma tu insegni le API ad un principiane???
Io farei semplicemente:
Dim Temp As String
Open NomeFile For Binary As #1
    Temp = String(LOF(1), " ")
    Get #1, , Temp
    Text1.Text = Temp
Close #1
Temp = ""
--
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
http://space.tin.it/computer/btqmaz/diego

 wrote in message
8kuk9n$oau$2...@nslave1.tin.it...



Sinceramente non mi sembrava tanto difficile, nè cercavo di insegnare
qualcosa. Ho infatti solo consigliato di utilizzare una funzione API
già bella e pronta. Forse non l'ho fatto bene.
E comunque, se il file non fosse in binario o se fosse un qualche
documento Office, con Open cosa risolve?





 wrote in message
news:8kvrok$gra$1...@lacerta.tiscalinet.it...


    CommonDialog1.ShowOpen
che avevi scritto tu.
A questo punto basta che aggiungi queste righe:
    sfile = CommonDialog1.FileName
    If sfile <> "" then
        Open NomeFile For Binary As #1
            Temp = String(LOF(1), " ")
            Get #1, , Temp
            Text1.Text = Temp
        Close #1
        Temp = ""
    End If
La prima legge il nome del file scelto.
La seconda controlla che sia stato scelto un file (infatti se si preme
Cancel [o Annulla nella versione italiana] il CommonDialog restituisce "")
Le altre sono il codice che ti avevo postato la volta scorsa e che sbattono
il tuo bel file nella Text1.
Ricordati inoltre di aggiungere:
    Dim Temp As String
all'inizio della Sub.
--
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
http://space.tin.it/computer/btqmaz/diego
PS: a che punto è la codifica in esadecimale???
    serve ancora aiuto?
Ciao

 ritchtextbox...penso che si dica così, quelle già prefatte da VB...ok?
Il problema è che in un file di Word non trovi il testo così come lo si è
scritto bensì criptato.
In qualsiasi modo tu legga il file (Binary, Input, Random) leggerai sempre i
caratteri criptati e questo sia che tu usi una textbox che una richtextbox.
Il problema è che il file è scritto in un certo modo e nelle finestre e nei
controlli VB puoi far vedere solo ciò che hai effettivamente letto (salvo
rielaborazioni).
Il comando suggerito per risolvere questo inconveniente in realtà fa
qualcosa di diverso da quello che ti serve (almeno così mi sembra perchè non
conosco bene le api).
Quel comando avvia il file con il programma che l'ha generato e non in una
tua finestra.
Ciao
Diego Mazzaro
"L'importante non è conoscere tante cose ma sapere dove trovarle" A.
Einstein
http://space.tin.it/computer/btqmaz/diego