Hallo an die Herren Programmierer!

Obige Frage bezieht sich auf lange Dateinamen, wie z.B. bei MP3 und Videofiles.
Um z.B. einen langen Namen durch simples Umbenennen zu kürzen, weil das Filesystem das u.U. sonst nicht mitmacht, wäre es hilfreich zu wissen, wieviele Characters vor dem Punkt stehen.

Gibts dafür schon Programme, die man z.B. unter DOpus in die Knopfleiste integrieren könnte?
Datei klicken, Knopf klicken, Anzahl der Chars in separatem Ausgabefenster anzeigen lassen?
Oder sind euch solche Programme unter Windows/Linux bekannt?

Wären auch Leerzeichen zählbar? AFAIK generiert die SPACE-Taste auch einen Char-Code.

Der Grund, warum ich frage ist der, daß ich mir ein MP3 von einer Win-Partition auf ein WinUAE-Hardfile kopiert habe.
Nun bekomme ich das File aufgrund der Namenslänge nicht mehr richtig aus DOpus Mag II heraus gelöscht.
Die Datei wird beim nochmaligem Löschversuch zwar nicht mehr gefunden, aber der Eintrag im Dateilister bleibt bestehen. Das installierte Filesystem ist das OS3.9-FFS (mit BB2 und ROM-Update betrieben).

Ich werde jedenfalls ein neues Hardfile erstellen und die übrigen Files draufkopieren und das alte HDF löschen.

Wenn ich das falsche Forum getroffen habe, dann sorry.
Ich bin der Meinung, daß das ins Coding-Board gehört.

Bin übrigens kein Coder, der sich das evtl. selbst hätte schreiben können.

Bin gespannt um eure Meinung.

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Bei Magellan mußt du die maximale Anzahl Zeichen einstellen. Default ist 30, glaube ich.

---

Ja, stimmt auch...tatsächlich. Ist ewig her, daß man sowas mal selbst gewußt hat.

Zitat:

---

Im übrigen werden längere Dateinamen einfach abgeschnitten. Wenn du eine Datei nicht löschen kannst, dann muß das an etwas anderem liegen. Vermutlich ist bei DOpue, wie gesagt, die Länge nicht so hoch eingestellt, wie das FileSystem es kann.

---

Zitat:

---

Kann auch sein, daß du Joker-Zeichen im Dateinamen verwendet hast, dann kann DOpus es auch nicht löschen. Jokerzeichen sind # ? ( ) | und ~. Du mußt die Dateien dann aus der Shell löschen, indem du statt den Jokerzeichen jeweils ein ? eingibst.

---

Jau, ich hatte Klammern eingegeben "...(Remix).mp3".


Ok, dann schon mal vielen Dank für das Beheben des ersten Problems.

Bleibt noch die Frage, wie man die Characters im Filenamen addiert...?(

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Crystal:
Bleibt noch die Frage, wie man die Characters im Filenamen addiert...?(

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

NoImag:

Zitat:

---

Crystal:
Bleibt noch die Frage, wie man die Characters im Filenamen addiert...?(

---

Ein Programm dafür kenne ich nicht. Leerzeichen musst du selbstverständlich alle mitzählen.

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

/* Filename-length */

Parse Arg FileName
If C2D(Substr(FileName,1,1))=34 Then FileName=SUbStr(FileName,2,Length(FileName)-2)
If Pos(":",Filename,1)=0 & Pos("/",Filename,1)=0 Then Do
NameLength=Length(FileName)
End
Else Do
NameLength = Pos("/",Reverse(Filename),1) - 1
If NameLength = -1 Then NameLength = Pos(":",Reverse(Filename),1) - 1
End
/* Die nächste Zeile nur, um die Zeichenanzahl vor dem Punkt zu ermitteln */
NameLength = NameLength - Pos(".",Reverse(Filename),1)
Say NameLength

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

/* rexx */

parse arg filename

filename = strip(filename,'B','"')

x = lastpos('/',filename)
if x = 0 then
	x = lastpos(':',filename)

filename = substr(filename,x+1)

x = lastpos('.',filename)
if x > 0 then
	filename = left(filename,x-1)

say "Länge von" filename "ist" length(filename)

---

[ - Antworten - Zitieren - Direktlink - ]

@ Thomas

quote:

Sorry für die Kritik, aber umständlicher hast du es nicht hinbekommen ?

Doch! Ich würde auch das schaffen.

Aber so ist das, wenn man mal mal nicht den gesammten Arexx-Befehlsschatz im Kopf hat.
An Strip hätte ich denken können, aber Lastpos habe ich noch nie verwendet - lieber habe ich wohl das Rad nochmal erfunden.

Aber jetzt!

code:

---

/* GetFilenameLength */

Parse Arg FileName

FileName = strip(FileName,B,'"')

If Pos(".",FileName)>0 Then FileName = DelStr(FileName,Pos(".",FileName))

FileName=Reverse(FileName)

If Pos(":",FileName)>0 Then FileName = DelStr(FileName,Pos(":",FileName))

If Pos("/",FileName)>0 Then FileName = DelStr(FileName,Pos("/",FileName))

Say Length(FileName)

---

Besser?

Du siehst, es führen wohl viele Wege nach Rom und ich bin wohl ein Reverse-Fan.

mfg Palgucker


[ Dieser Beitrag wurde von Palgucker am 17.06.2005 um 16:40 Uhr editiert. ]

[ - Antworten - Zitieren - Direktlink - ]

@thomas & palgucker

Ich hab jetzt mal eure Scripte ausprobiert.
Thomas' Script funzt so, wie ich mir's vorgestellt habe. (EDIT: Ich mußte nur die Apostrophe ändern. Hab das Script gesnapped und die Fehlermeldung war: +++ Error 5 in line 5: Unmatched quote, Command returned 10/5: Unmatched quote)

In der Shell "rx filescript smartfilesystem.info" eingegeben - Ergebnis war "Länge von smartfilesystem ist 15". Prima!
Muß mal schauen, wie ich mir das auf einen Knopf unter DOpus lege.


Palgucker's Script funzt allerdings nach dieser Syntax "rx script file" nicht.
Da sagt er mir: "Command returned 5/1: Program not found"

Was fehlt denn da?

Ich hab übrigens jetzt nur die zweite Version von dir getestet, Palgucker.

[ Dieser Beitrag wurde von Crystal am 17.06.2005 um 16:28 Uhr editiert. ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

@Palgucker:

Aha. Den wollte ich beim thomas schon weglassen.
Gut, daß ich's nicht gemacht hab, sonst hätte er mir die Ohren lang gezogen.

Nu gehts auch bei deinem Script. Vielen Dank!

[ - Antworten - Zitieren - Direktlink - ]

@thomas:

Kein Problem, sowas dachte ich mir schon (mit dem Forum).

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von Palgucker:
Wenn ich dran denke, wandele ich diese Anführungszeichen meist schon vorher in das entsprechende entity. Meistens in ', aber ’ funktioniert mit Aweb auch. Allerdings bin ich mir nicht so sicher, ob dieses auch auf allen Browsern so ankommt. Beschwert hat sich aber auch noch keiner.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Wenn es viele Moeglichkeiten gibt, dann
auch eine von mir

/* smaller */
parse arg name
l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
file = rmh_filepart(name)
p = lastpos(".",file) - 1
if p > 0 then file = substr(file,1,p)
say length(file)
--
my.morphosi.net

[ - Antworten - Zitieren - Direktlink - ]

@ Robin

Nicht schlecht, aber probier mal "ram:ho ho/test".
Hiermit wirst auch Du zum "strippen" verdonnert.

mfg Palgucker

[ - Antworten - Zitieren - Direktlink - ]

@Palgucker:

Ups
--
my.morphosi.net

[ Dieser Beitrag wurde von Robin am 18.06.2005 um 19:08 Uhr editiert. ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

.KEY NAME/F
.BRA {
.KET }

c:list >t:tempname "{NAME}" LFORMAT "%m"
eval >t:templen 'c:list t:tempname LFORMAT "%l"' - 1
echo "Länge des Filenamens ohne Erweiterung 'type t:templen'"
delete >nil: t:tempname 
delete >nil: t:templen

---

[ - Antworten - Zitieren - Direktlink - ]