Hvordan lage if noe inneholder [...]

[pabelo]

Hvordan kan jeg lage en if settning som vriker hvis en text boks innholder en viss text ?

 

 

Ex.

loader filnavnet inn i en text boks, programmet skal kunne gjøre en ting hvis det er en .txt fil og en annen ting hvis det er .nfo fil .... osv

 

 

 

 

 

 

 

PabelO

[abcd423417984]

if text1.text = "hei" then msgbox

 

forutsetter at tekstboksen heter text1, at ordet du leter etter er "hei" og at du har en funksjon som heter msgbox

[Jonas]

Hvordan kan jeg lage en if settning som vriker hvis en text boks innholder en viss text ?

Lett!

If text1.text = "Hallo" then
'din feilmelding
end if

 

Ex.

loader filnavnet inn i en text boks, programmet skal kunne gjøre en ting hvis det er en .txt fil og en annen ting hvis det er .nfo fil .... osv

Blir litt vannskeligere.. da må du først ha en kode som tar ut den siste delen etter et punktum og f eks sette det i en text boks. så bruker du koden over. Hvordan du gjør alt detta har jeg ingen anelse om..

 

Edit: slått!

Endret 9. januar 2004 av jonas22282460

[pabelo]

må vel finnes en eller annen ..... if txt1.text contains(".txt") then eller noe slikt ?

 

 

 

 

 

PabelO

[abcd423417984]

ta en titt på Right() funksjonen. Den kan hente ut X antall bokstaver fra høyre i stringen. På den måten kan du sjekke om de 4 siste bokstavene er ".txt".

[Jonas]

ta en titt på Right() funksjonen. Den kan hente ut X antall bokstaver fra høyre i stringen. På den måten kan du sjekke om de 4 siste bokstavene er ".txt".

Hvordan bruker man den?

 

btw, så er vel ikke bilde i signaturen lov tror jeg..

[abcd423417984]

er ikke sikker på rekkefølgen på parameterne men:

 

if Right(text1.text, 4) = ".txt" then

'kode

end if

[Tassax]

Du vil selvfølgelig bare vite filtypen.

Lag deg en metode ala dette eksempelet for å hente ut

filtype:

 

Public Function GetFileType(strFileName As String) As String

Dim s As Long

 

s = InStrRev(strFileName, ".")

 

If s <= 0 Then GetFileType = "": Exit Function

 

'//returner filtype _uten_ prefix-punktum

GetFileType = Right(strFileName, Len(strFileName) - s)

 

End Function

 

 

Ellers må jeg si de andre svarene du har fått er skrekkelig dårlige.

Å bruke right-funksjonen å hente ut de tre-fire siste bokstavene

er jo greit nok. Men hva dersom filendelsen er mer enn tre tegn... ??

 

Just my 0.02$

[pabelo]

Å bruke right-funksjonen å hente ut de tre-fire siste bokstavene

er jo greit nok. Men hva dersom filendelsen er mer enn tre tegn... ??

Joda, men jeg trenger egentli bare å vite om det er en txt fil elle ikke adressen til en fil som står i en txt.boks fx. "c:\test.filnavn "

[Tassax]

Joda, men jeg trenger egentli bare å vite om det er en txt fil elle ikke adressen til en fil som står i en txt.boks fx. "c:\test.filnavn "

Du sa da du ville vite hvilken fil-endelse det var i dette innlegget:

 

Ex.

loader filnavnet inn i en text boks, programmet skal kunne gjøre en ting hvis det er en .txt fil og en annen ting hvis det er .nfo fil .... osv

 

Gjorde du ikke????

 

Kanskje du har forklart deg litt dårlig?

[pabelo]

 

Kanskje du har forklart deg litt dårlig?

Joda det gjorde jeg sikkert og beklager det, men fikk det fikk det ivertfall til tilslutt

 

 

 

 

Tusen takk for hjelpen alle sammen

 

 

PabelO

Endret 10. januar 2004 av pabelo