Känna av om det är mellanslag och åäö i filnamn på uppladdad fil?

2 svar · 786 visningar · startad av Gardell 11 jan. 2009

GardellMedlem sedan juli 2002688 inlägg

Frågan11 jan. 2009 15:09#1

Hej!

Arbetar lite med AspUpload och AspJpeg. Tänkte jag skulle försöka få bort åäö-tecken (och andra "fula" tecken?) och mellanslag i filnamnen.. Vet inte riktigt hur bara.

Spara som-koden ser ut som följande:

jpeg.Save Path & "\small_" & File.ExtractFileName

Tack på förhand. :)

oskarsMedlem sedan nov. 20051 317 inlägg

11 jan. 2009 16:25#2

Antar att RegExp är the way to go?

Lägg File.ExtracFileName i en variabel först...

Sub FixReg(re,pattern,replace,str)
  re.pattern = pattern
  str = re.replace(str,replace)
End Sub

Function FixReg(ByVal strText)
  Dim Reg
  set Reg = new RegExp
  Reg.Global=True
  Reg.IgnoreCase=True
    strText = Replace(strText,"Å","A")
  strText = Replace(strText,"Ä","A")
  strText = Replace(strText,"Ö","O")
  strText = Replace(strText,"å","a")
  strText = Replace(strText,"ä","a")
  strText = Replace(strText,"ö","o")
FixReg=strText
End Function

Koden är inte testad så du får mecka lite!

GardellMedlem sedan juli 2002688 inlägg

11 jan. 2009 18:03#3

Tack! :) Givetvis. Dock bestämde jag mig för att göra random filnamn i stället, dels för att slippa dubbelchecka för om filen finns och dels för att slippa ändra namnen så här. :)

Om någon vill veta hur jag gjorde slumpmässiga filnamn med randomizer:

Randomize()
strFirstNumber = Int((999999 - 222 + 2)*Rnd() + 33)
strSecondNumber = Int((999999999 - 111 + 2)*Rnd() + 57)

randomFileName = "img_" & strFirstNumber & "_" & strSecondNumber & ".jpg"