VB e le label: 2 domande

[diegibusque]

Salve!


E' possible che una label prenda la sua "caption" da un file esterno al programma?? Mi spiego meglio: poniamo che, ad esempio, la stringa "Ciao mondo" sia contenuta nel file "stringa"

Come faccio a far capire a VB che la caption di una mia label deve andarla a prendere nel file "stringa"? Che estensione deve avere il file "stringa"? Vorrei che non fosse un estensione comune, quali .doc, .txt che tutti possono aprire o modificare, ma che sia un file magari .dat o un di estensione che posso creare.

Seconda domanda: è possibile creare un programma che cerca una determinata parola inserita dall'utente all'interno di una label???

Grazie a tutti

[chipdb]

Certo che puoi. Mettiamo che hai il file stringa.quelchetipare nel quale hai scritto

Label = Ciao

Lo fai leggere in input a VB:

Open "Percorso\stringa.quelchetipare" For Input As #1
    Line Input #1, FileBuffer 'Dove FIleBuffer è una variabile di tipo stringa
Close #1

Adesso avrai una variabile FileBuffer con all'interno la stringa "Label = Ciao".
Adesso basta che fai:

Pos = InStr (1, FileBuffer, "Label") + Len ("Label = ")
'TuaLabel è la label che prende la stringa in input dal file
TuaLabel = Right$(FileBuffer, Len(FileBuffer) - Pos)

E cosi la tua label avrà la stringa presa dal file.

Per quanto riguarda il secondo problema puoi usare la funzione InStr avente come parametri 1 (inizio della ricerca), TuaLabel (la label dove deve cercare), "StringaCercata".

Ciao

[Gugu]

Ciao,
Puoi salvare tranquillamente la tua stringa in un file esterno.

Dim Stringa as string
open "C:\Documenti\Stringa.dat" for input as #1
input #1, Stringa
close #1

Label1.caption = Stringa

Scritto così il file che utilizzi non è altro che un file di testo che puoi aprire tranquillamente col Blocco Note ma ha estensione *.dat, quindi l'utente per aprirlo deve per forza aprire Il blocco note manualmente.
Premetto che invece che "*.dat", puoi anche usare "*.ttt", l'estenzione che preferisci.

Seconda domanda: è possibile creare un programma che cerca una determinata parola inserita dall'utente all'interno di una label???

Cosa intendi? un programma esterno che intercetti quello che scrivi in un textbox?
..Hai scritto label.. intendevi textbox!
Oppure cosa molto più facile.. vuoi una funzione che ricerca una parola in una textbox inserita nello stesso programma?

Ti spiego la seconda.. è molto più semplice.. per la prima è un po' un casino..
Al click di un pulsante:

Private sub Command1_click()
Label1.Caption = InStr(1, Text1.Text, Text2.Text, vbTextCompare)
End sub

Questo codice ricerca la parola inserita nel text2.text all'interno del text1.text e ti restituisce la posizione di tale parola, cioè il numero di caratteri contando dal primo.

Ciao
Fammi sapere
Gugu

[diegibusque]

Fenomenali!!! E come lo creo un file .dat?? E se invece volessi crearmi un estensione tutta mia??


Grazie ciao

[Luc@s]

Originariamente inviato da diegibusque
Fenomenali!!! E come lo creo un file .dat?? E se invece volessi crearmi un estensione tutta mia??


Grazie ciao

basta che salvi con notepad il files come unicode e puo avere anche l'est .figo