ændring af "efternavn"

Jeg antager at de ligger fysisk i en folder og det skal laves een gang for alle.

1. Så laver du en "dir *.gif > filer.txt"
2. Nu har du alle filnavne i en fil der hedder filer.txt
3. Åbne denne i et regneark
4. Tilføj en kolonne med værdien RENAME og lav en regnet kolonne der skifter navnet til det nye navn. Regnearket kommer således til at se således ud:

RENAME fil1.gif fil2.jpg

5. Gem din fil som en .BAT fil og kør den fra en kommandoprompt.

Det var jo i en database.
Så kan du lave noget ala dette:

strSQL = "Select * From billeder ORDER by id"
Set rs = Conn.Execute(strSQL)

Do
    arrBillede = Split(rs("navn"),".")
    Conn.Execute("UPDATE billeder SET navn = '"& arrBillede(0) & ".jpg" &"' WHERE id = " & rs("id"))
rs.movenext
Loop until rs.eof

musicchart.dk - cool.. hvad nu hvis jeg vil ændre det til /jpgformat/fisk.jpg

tjekker det lige. men dine points er hjemme.. dette er blot et tillægsspørgsmål :o)

Altså i databasen? Det forstår jeg ikke hvorfor du vil, fordi når du udskriver billedet, skriver du vel bare:

<img src="/jpgformat/<%=rs("navn")%>">

Meeeen, hvis du vil have det rettet i databasen, så ændre blot:

Conn.Execute("UPDATE billeder SET navn = '"& arrBillede(0) & ".jpg" &"' WHERE id = " & rs("id"))

Til:

Conn.Execute("UPDATE billeder SET navn = '"& "/jpgformat/" & arrBillede(0) & ".jpg" &"' WHERE id = " & rs("id"))

Hej igen musicchart.dk

hele pointen er at:

grund 1 ) jeg lige nu har alle mine billeder liggende i samme mappe som resten af sitet, det ville være dejligt hvis de lå i sin egen mappe
grund 2 ) jpgformat er det sted hvor alle andre jpg filer ligger
grund 3 ) lige nu er linket (indholdet af database) kun navnet (fisk.gif) det vil være fedt hvis samlet sti er jpgformat/fisk.gif
¨
Men mange tak, det er nu rart at få lidt orden i sagerne ( grafik der, asp der, databaser der.. osv :o) )

Hilsen

Duno :o)

ps. points sendt :o)

Så længe du er tilfreds :o)

Tak for point

hmm.. hvordan hulen får jeg lige kontakt med databasen?? i denne kode??

jeg får følgende fejl

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'Split'


min kode ser ud som følger:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/../db/test.mdb")
Conn.Open DSN
strSQL = "Select * From FORUM_MEMBERS ORDER by MEMBER_ID"
Set rs = Conn.Execute(strSQL)

Do
    arrBillede = Split(rs("M_AVATAR_URL"),".")
    Conn.Execute("UPDATE FORUM_MEMBERS SET M_AVATAR_URL = '"& arrBillede(0) & ".jpg" &"' WHERE MEMBER_ID = " & rs("MEMBER_ID"))
rs.movenext
Loop until rs.eof
%>

Du har sikkert et tomt felt et sted.
Prøv med flg:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/../db/test.mdb")
Conn.Open DSN
strSQL = "Select * From FORUM_MEMBERS ORDER by MEMBER_ID"
Set rs = Conn.Execute(strSQL)

billede = ""

Do
    billede = rs("M_AVATAR_URL")

    if InStr(billede,".") > 0 then
        arrBillede = Split(billede,".")
        Conn.Execute("UPDATE FORUM_MEMBERS SET M_AVATAR_URL = '"& arrBillede(0) & ".jpg" &"' WHERE MEMBER_ID = " & rs("MEMBER_ID"))
    end if
rs.movenext
Loop until rs.eof
%>

cool.. takker :o)