Fjerne tegn efter et punktum

Der er en del måder at gøre det på.
Mit umiddelbare forslag er

<%
function fjernExt(str)

'split deler strengen ved et angivet tegn - i dette tilfælde punktum - og putter delene i et array

strDelt = split(str,".")

'for at returnere værdien skal den 'proppes i' fjernExt - funktionens navn
'hvis du ønsker at ændre funktionens navn, skal dette altså også ændres

fjernExt = strDelt(0)

end function



txt1 = "filnavn.bmp"

response.Write txt1

response.Write "<br>"

txt2 = fjernExt(txt1)

response.Write txt2

%>

et alternativ således fil.navn.bmp også virker:

Function fjernExt(str)
    fjernExt = Left(str, InStrRev(str, ".")-1)
End Function

Hehe - var mit næste forslag :)


function fjernExt(str)

'for at returnere værdien skal den 'proppes i' fjernExt - funktionens navn
'hvis du ønsker at ændre funktionens navn, skal dette altså også ændres

'left returnerer x antal tegn fra venstre
'i dette tilfælde bestemmer vi antal tegn med InStr, der returnerer positionen for et angivet tegn - her punktum

fjernExt = left(str,InStr(str, ".")-1)

end function

Men fil.navn.bmp vil så ikke virke, da den kun vil returnere "fil"

så skal vi bruge InStrRev - den søger bagfra

vi? tal for dig selv :)

natten er ung, og her er endnu en måde:

Function fjernExt(str)
    Set reg = New RegExp
    reg.Pattern = "(.*)\..*$"
    fjernExt = reg.Replace(str, "$1")
End Function

den sidste laver ikke fejl, hvis filen ikke har nogen extension

hehe - måske lidt for "du og jeg og stauer holder i hånd og sætter os i rundkreds og taler om stauers problemer"-agtigt :)
Har nok været i for megen kontakt med pædagoger i mit liv ;)

Den var jo dejligt simpel :)
Vil du kommentere den? Vil gerne forstå hvad der sker - bare sådan til en anden god gang.

Ved godt, at jeg bliver lidt pædagogisk igen - "Det er enormt vigtigt at forstå hvad man gør, og ikke bare gøre..." - men det kunne være lækkert med en forklaring :)

. = matcher alle tegn
\. = matcher punktum
* = 0 eller flere tegn
$ = slut på streng

$1 = først fundne streng i parentes

dvs

(.*) finder alle tegn, indtil næste mønster (punktum)
\. find punktum i streng
.*$ alle tegn efter sidste punktum


$1 henviser til (.*)


flere parenteser:

reg.Pattern = "(.*)\.(.*)$"
fjernExt = reg.Replace(str, "$1[punktum]$2")

fil.navn.bmp -> fil.navn[punktum]bmp

regulære udtryk er en videnskab for sig selv..

så for søren.. så gik i amok :=)

jeg brugte eksemplet som squashguy lavede

Function fjernExt(str)
    fjernExt = Left(str, InStrRev(str, ".")-1)
End Function

Men hvis du også lige svare deeflate så vil jeg uddele den forholdsvis store mængde point retfærdigt :=)

har i forresten nogen gode ideer til hvordan man kan bygge en sql streng op hvor man på søgesiden har mulighed for at vælge forskellige søgekriterier.. sql strengen skal så bygges op alt efter hvilke kriterier der er søgt på..

kan dette lade sig gøre?

strSQL = "SELECT * FROM products"
If Not theMaterial = "" Then
strSQL = strSQL & "AND material='"&theMaterial&"'"
End If
If Not theInnerDia = "" Then
strSQL = strSQL & "AND innerDiameter="&theInnerDia&""
End If
strSQL = strSQL & ""

nå jeg tror sgu jeg har fået det til at virke..

det er ik så tit det sker..

:=)

ellers tak..

Det gør ikke noget med pointene - jeg fik lært noget i stedet ;)

Stauer > det var mit svar du accepterede - det er squashguy, der ikke har lagt et svar...