Καλή χρονιά σέ ολους.
Ψάχνω πρόγραμμα μαζικής μετατροπής τίτλων τραγουδιών από greeklish σέ ελληνικά καί αντίστροφα.
Ευχαριστώ.
Εμφάνιση 1-15 από 24
-
08-01-07, 14:28 Πρόγραμμα μαζικής μετατροπής greeklish #1
-
08-01-07, 14:31 Απάντηση: [b]πρόγραμμα μαζικής μετατροπής greeklish #2
Χμμμ δε νομιζω να υπαρχει τετοιο προγραμματακι...
ΚΑΙ 50.000 ΚΡΟΎΣΜΑΤΑ ΤΗΝ ΜΈΡΑ Κ ΤΙ ΈΓΙΝΕ? ΤΣΆΜΠΑ ΡΑΜΠΙΤ = ΣΟΒΙΕΤΙΚΗ ΕΝΩΣΗ.
ΑΥΤΟ ΘΈΛΕΤΕ, ΤΟΝ ΣΤΆΛΙΝ? ΤΕΛΟΣ ΤΑ ΜΝΗΜΌΝΙΑ, ΖΩΉ ΜΑΓΙΚΉ.
ΓΙΑ ΤΟ ΚΑΤΥΝ ΚΟΥΒΈΝΤΑ ΈΤΣΙ, ΜΟΝΌ ΓΙΑ ΤΙΣ ΜΕΘ ΛΈΤΕ. ΞΥΔΑΚΙ ΜΑΔΟΥΡΙΑ.
-
08-01-07, 14:39 Απάντηση: [b]πρόγραμμα μαζικής μετατροπής greeklish #3
- Εγγραφή
- 14-04-2003
- Περιοχή
- Πολύδροσο Λακουβοχωρίου
- Ηλικία
- 52
- Μηνύματα
- 19.727
- Downloads
- 11
- Uploads
- 2
- Άρθρα
- 1
- Ταχύτητα
- 102400/10240
- ISP
- COSMOTE
- Router
- ZTE Speedport Entry 2i
- SNR / Attn
- 14.6(dB) / 6.2(dB)
Yπάρχουν διάφορα προγραμματάκια που κάνουν μαζική αλλαγή ονομάτων αρχείων (όχι μόνο mp3 αλλά γενικώς)... Ψάξε στο google για batch rename
Αλλά όχι αυτόματη μετατροπή greeklish που ζητάς...Crisis is the time when the old is dead, but the new cannot be born... Antonio Gramsci
-
08-01-07, 14:50 Απάντηση: πρόγραμμα μαζικής μετατροπής greeklish #4
Όντως πολύ custom πρόγραμμα αυτό που ζητάς, είτε πρόκειται για αλλαγή του filename είτε των ID3 tags (ακόμη πιο δύσκολο ).
Ή φτιάχνεις κάτι δικό σου από το μηδέν ή τα κάνεις όλα με το χέρι
-
08-01-07, 18:26 Απάντηση: πρόγραμμα μαζικής μετατροπής greeklish #5
Για αλλαγή ονομάτων αρχείου ίσως να βρεις αλλά για ID3 tags δεν νομίζω.
-
11-01-07, 00:01 Απάντηση: πρόγραμμα μαζικής μετατροπής greeklish #6
Νομίζω ότι το παρακάτω είναι αυτό που ζητάς... Το είχα φτιάξει πριν από χρόνια για αυτό το σκοπό. Βάλε τον κώδικα μέσα σε ένα αρχείο κειμένου με όνομα convert.vbs και τοποθέτησέ το μέσα στο κατάλογο με τα τραγούδια που θέλεις να αλλάξεις τους τίτλους και τρέξτο...
Η συνέχεια επί του σκληρού σου...
Κώδικας:' Script για αλλαγή ονομάτων αρχείων ' © 2003 George J. Capnias Option Explicit Dim sGreekish, sHellenic Dim caseCode sGreekish="ABGDEZH8IKLMN3OPRSTYFXCWabgdezh8iklmn3oprstyfxcwaehioywAEHIOYW" sHellenic="ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρστυφχψωάέήίόύώΆΈΉΊΌΎΏ" 'Select function to do ' case 0: To Nice ' case 1: To Lower ' case 2: To Upper ' case 3: From Greekish To Greek ' case 4: From Greek To Greekish caseCode=inputBox("0: Σε κεφαλαια-πεζά τίτλου" & vbCrLf & "1: Σε πεζά" & vbCrLf & "2: Σε κεφαλαία" & vbCrLf & "3: Από Λατινικά σε Ελληνικά" & vbCrLf & "4: Από Ελληνικά σε Λατινικά", "Κάντε μια επιλογή", 0) Call filesConvertCase(".") msgbox "Η μετατροπή των ονομάτων των αρχείων, ολοκληρώθηκε!", 64, "Μετρατοπή Ονομάτων" Function filesConvertCase(szFolder) Dim oFileSystemObject Dim oFolder Dim oFoldersCollection Dim oFilesCollection Dim oFile Dim szPath Dim szFileName Dim szExtension Set oFileSystemObject = CreateObject("Scripting.FileSystemObject") Set oFolder = oFileSystemObject.GetFolder(szFolder) Set oFilesCollection = oFolder.Files For Each oFile In oFilesCollection szPath="" szFileName=oFile.Path szExtension="" if (InStrRev(szFileName, "\")>0) then szPath=Left(szFileName, InStrRev(szFileName, "\")) szFileName=Mid(szFileName, InStrRev(szFileName, "\")+1) end if if (InStrRev(szFileName, ".")>0) then szExtension=LCase(Mid(szFileName, InStrRev(szFileName, "."))) szFileName=Left(szFileName, InStrRev(szFileName, ".")-1) End if 'Select job to do szFileName=convertCase(caseCode, szFileName) szPath=szPath & szFileName & szExtension on error resume next oFile.Move (szPath) on error goto 0 Next Set oFilesCollection=Nothing Set oFile=Nothing Set oFoldersCollection = oFolder.SubFolders For Each oFolder In oFoldersCollection szPath=LCase(oFolder.Path) szFileName=Mid(szPath, InStrRev(szPath, "\")+1) szPath=Left(szPath, InStrRev(szPath, "\")) 'Select job to do szFileName=convertCase(caseCode, szFileName) szPath=szPath & szFileName on error resume next call oFolder.Move(szPath) on error goto 0 call filesConvertCase(szPath) Next Set oFoldersCollection=Nothing Set oFolder=Nothing End Function Function convertCase(caseCode, szFileName) szFileName=fixGeneral(szFileName) select case caseCode case 0 convertCase=convert2NiceCase(szFileName) case 1 convertCase=convert2LowerCase(szFileName) case 2 convertCase=convert2UpperCase(szFileName) case 3 convertCase=convert4Greekish(szFileName) case 4 convertCase=convert4Greek(szFileName) case else MsgBox "Not a valid conversion!" convertCase=szFileName end select End Function Function convert2NiceCase(szFileName) Dim sSubfixesnotes Dim iCounter Dim lngPosition sSubfixesnotes=" -_=+()" szFileName=LCase(szFileName) for iCounter=1 to Len(sSubfixesnotes) lngPosition=1 Do While (InStr(lngPosition+1, szFileName, Mid(sSubfixesnotes, iCounter, 1))>0) lngPosition=InStr(lngPosition+1, szFileName, Mid(sSubfixesnotes, iCounter, 1)) szFileName=Left(szFileName, lngPosition) & UCase(Mid(szFileName, lngPosition+1, 1)) & Mid(szFileName, lngPosition+2) Loop Next szFileName=UCase(Left(szFileName,1)) & Mid(szFileName,2) szFileName=fixSubfixes(szFileName) convert2NiceCase=szFileName End Function Function convert2LowerCase(szFileName) szFileName=LCase(szFileName) szFileName=fixSubfixes(szFileName) convert2LowerCase=szFileName End Function Function convert2UpperCase(szFileName) szFileName=UCase(szFileName) convert2UpperCase=szFileName End Function Function convert4Greekish(szFileName) Dim iCounter Dim sChar Dim lngPosition Dim sPrefix Dim sSubfix For iCounter=1 to Len(szFileName) sChar=Mid(szFileName, iCounter, 1) lngPosition=InStr(sGreekish, sChar) if lngPosition>0 then if iCounter>1 then sPrefix=Left(szFileName, iCounter-1) else sPrefix="" end if if iCounter<Len(szFileName) then sSubfix=Mid(szFileName, iCounter+1) else sSubfix="" end if 'msgbox(sPrefix & Mid(sHellenic, lngPosition, 1) & sSubfix) szFileName= sPrefix & Mid(sHellenic, lngPosition, 1) & sSubfix end if Next convert4Greekish=szFileName End Function Function convert4Greek(szFileName) Dim iCounter Dim sChar Dim lngPosition Dim sPrefix Dim sSubfix For iCounter=1 to Len(szFileName) sChar=Mid(szFileName, iCounter, 1) lngPosition=InStr(sHellenic, sChar) if lngPosition>0 then if iCounter>1 then sPrefix=Left(szFileName, iCounter-1) else sPrefix="" end if if iCounter<Len(szFileName) then sSubfix=Mid(szFileName, iCounter+1) else sSubfix="" end if 'msgbox(sPrefix & Mid(sGreekish, lngPosition, 1) & sSubfix) szFileName= sPrefix & Mid(sGreekish, lngPosition, 1) & sSubfix end if Next convert4Greek=szFileName End Function Function fixSubfixes(szFileName) Dim sSubfixesnotes Dim sSubfixesChecks Dim sSubfixesReplaces Dim iCounter Dim iCounterChecks Dim lngPosition sSubfixesnotes=" -_=+()" sSubfixesChecks="σ" sSubfixesReplaces="ς" for iCounter=1 to Len(sSubfixesnotes) lngPosition=1 Do While (InStr(lngPosition+1, szFileName, Mid(sSubfixesnotes, iCounter, 1))>0) lngPosition=InStr(lngPosition+1, szFileName, Mid(sSubfixesnotes, iCounter, 1)) For iCounterChecks=1 to Len(sSubfixesChecks) If Mid(szFileName, lngPosition-1, 1)=Mid(sSubfixesChecks, iCounterChecks, 1) Then szFileName=Left(szFileName, lngPosition-2) & Mid(sSubfixesReplaces, iCounterChecks, 1) & Mid(szFileName, lngPosition) End If Next Loop For iCounterChecks=1 to Len(sSubfixesChecks) if Right(szFileName, 1)=Mid(sSubfixesChecks, iCounterChecks, 1) then szFileName=Left(szFileName, Len(szFileName)-1) & Mid(sSubfixesReplaces, iCounterChecks, 1) end if Next Next fixSubfixes=szFileName End Function Function fixGeneral(szFileName) szFileName=Trim(szFileName) do while InStr(szFileName, " ")>0 szFileName=Replace(szFileName, " ", " ") loop fixGeneral=szFileName End Function
George J.
-
11-01-07, 03:55 Απάντηση: πρόγραμμα μαζικής μετατροπής greeklish #7
- Εγγραφή
- 14-04-2003
- Περιοχή
- Πολύδροσο Λακουβοχωρίου
- Ηλικία
- 52
- Μηνύματα
- 19.727
- Downloads
- 11
- Uploads
- 2
- Άρθρα
- 1
- Ταχύτητα
- 102400/10240
- ISP
- COSMOTE
- Router
- ZTE Speedport Entry 2i
- SNR / Attn
- 14.6(dB) / 6.2(dB)
Μετονόμασε μέχρι και το όνομά τους από convert.vbs σε ψονvερτ.vbs
Στα εύκολα τα πάει καλά αλλά στα δύσκολα δεν τα βγάζει πέρα γιατί δεν αναγνωρίζει δίφθογγους στα greeklish (για παράδειγμα το "tha" δεν το κάνει "θα", αλλά "τηα")...
Το "8a" όμως το έκανε "θα"Crisis is the time when the old is dead, but the new cannot be born... Antonio Gramsci
-
17-02-08, 14:05 μαζική μετατροπή greek σε greeklish #8
Γεια χαρα! Διάβασα χτες μία σχετική απάντηση του μέλους gcapnias ο οποίος έφτιαξε ένα προγραμματάκι για να μετατρέπει τους τίτλους των τραγουδιών απο greek σε greeklish ή κ το αντίστροφο.. Η ιστοσελίδα είναι αυτή http://www.adslgr.com/forum/showthread.php?t=69065
κ η απάντηση είναι στο τέλος της ιστοσελίδας
Αυτό που θα ρωτήσω αν το ξέρει κάποιος,το ρώτησα κ στον ίδιο αλλά ίσως να μην είναι ενεργό μέλος πια, δεν ξέρω..οπότε θα ήθελα να μάθω αν ξέρει κάποιος πως να λειτουργήσω αυτό το πρόγραμμα. Εκανα copy όλο το παραθυράκι που λέει code κ το έκανα paste σε ένα εγγραφο word. Απο κει κ πέρα όμως δεν ξέρω πως να συνεχίσω.. Αν μπορεί κάποιος να με βοηθήσει θα ήμουν ευγνώμων.
Ευχαριστώ
Γιάννης
-
17-02-08, 14:29 Απάντηση: μαζική μετατροπή greek σε greeklish #9
Όπως το κόβω, το προγραμματάκι αυτό είναι γραμμένο σε Visual Basic. Συνεπώς, για να το τρέξεις αντέγραψε τον κώδικα σε κάποιο txt αρχείο στο οποίο θα βάλεις επέκταση .vbs και θα το τρέξεις με την VB. Ελπίζω να βοήθησα κάπως.
"Να είσαι η αλλαγή που θέλεις να δεις στον κόσμο" - Γκάντι
-
17-02-08, 15:51 Απάντηση: Πρόγραμμα μαζικής μετατροπής greeklish #10
Μηπως μπορει καποιος ο οποίος γνωριζει Visual Basic να μας πει πως μπορουμε να αλλαξουμε λιγο τον παραπανω κωδικα ωστε να βγαζει τους διφθογγους π.χ ps->ψ th->θ κ.τ.λ.?
Τελευταία επεξεργασία από το μέλος vasilis21 : 17-02-08 στις 15:53.
Life is one long insane trip. Some people just have better directions.
-
17-02-08, 22:46 Απάντηση: Πρόγραμμα μαζικής μετατροπής greeklish #11
zack nv σ ευχαριστώ για την απαντηση
δυστυχώς δε γνωρίζω τίποτα απο VISUAL BASIC
αν δεν είναι δύσκολο μπορείς να μου πεις λίγα λόγια για το τι πρέπει να κάνω για να τρέξει το πρόγραμμα?
το περιεχόμενο του code το έχω ήδη αποθηκεύσει σε word με επέκταση vbs
σ ευχαριτσώ και πάλι
-
27-02-08, 02:17 Απάντηση: Πρόγραμμα μαζικής μετατροπής greeklish #12
Δυστυχώς δεν είμαι ειδικός γι' αυτή τη γλώσσα προγραμματισμού. Έχοντας όμως δουλέψει αρκετά σε παρεμφερή γλώσσα (quick basic 4.5) μπορώ και αναγνωρίζω κάποιες εντολές. Ελπίζω κάποιος άλλος να μπορείς να σου δώσει συμβουλές πάνω στον κώδικα.
"Να είσαι η αλλαγή που θέλεις να δεις στον κόσμο" - Γκάντι
-
30-03-08, 20:06 Απάντηση: Πρόγραμμα μαζικής μετατροπής greeklish #13
Δοκιμάστε το ant renamer, ένα δωρεάν πρόγραμμα εδώ με τον κώδικα διαθέσιμο, http://www.antp.be/software/renamer
Έχω ακούσει καλά λόγια γι' αυτό.
-
31-07-08, 03:49 Απάντηση: [b]πρόγραμμα μαζικής μετατροπής greeklish #14
Το δικό μου, μετατρέπει σε greeklish ολα τα επιλεγμένα αρχεία ή δημιουργεί αντίγραφα...
Διαβάζει τον κατάλογο και τους υποκαταλόγους, ψάψνει για mp3 και κάνει batch μετονομασία των mp3 σε αγγλικά
http://rapidshare.com/files/133816641/mp3renamer.rar
και η νέα έκδοση με επιπλέον tags convert, Gr to Eng, Work with Copies, Change mp3 file order!!!
Εχει οδηγίες μέσα
http://rapidshare.com/files/133901053/mp3renamer.rarΤελευταία επεξεργασία από το μέλος gatoz : 31-07-08 στις 22:44.
-
03-08-08, 23:28 Απάντηση: [b]πρόγραμμα μαζικής μετατροπής greeklish #15
Μπράβο!!!Τέλειο εκτός του ότι πρέπει να υπάρξουν βελτιώσεις στην μετατροπή από greeklish σε ελληνικά.
Να προτείνω κάτι?
Μπορείς να περάσεις λεξιλόγιο ώστε να κάνει μετατροπή λέξεων αντί για γράμματα?Δηλαδή να δουλέψουμε αρκετά άτομα το project και να κάνουμε μιά βάση με λέξεις greeklish και συνδυασμούς.
Κατα τα άλλα η μαζική μετονομασία είναι καταπληκτική!!Επέκτεινε την αν μπορείς και σε directories-φακέλους να αλλάζει.
Και με τα tags κάποια δεν τα μετατρέπει.
Παρόμοια Θέματα
-
Πρόγραμμα μετατροπής video
Από nils στο φόρουμ Audio, Video και ΦωτογραφίαΜηνύματα: 3Τελευταίο Μήνυμα: 19-01-08, 12:25 -
Πρόγραμμα μετατροπής ψηφιακής σε web cam .
Από GOUMOU στο φόρουμ Software γενικάΜηνύματα: 9Τελευταίο Μήνυμα: 08-07-07, 11:35 -
Πρόγραμμα μετατροπής avi σε dvd 64bit
Από Talos82 στο φόρουμ Audio, Video και ΦωτογραφίαΜηνύματα: 0Τελευταίο Μήνυμα: 05-03-07, 11:36 -
Καλύτερο και ταχύτερο πρόγραμμα μετατροπής DVD σε DivX
Από Tem στο φόρουμ Audio, Video και ΦωτογραφίαΜηνύματα: 28Τελευταίο Μήνυμα: 09-01-07, 18:46 -
Oλοκληρωμένο πρόγραμμα μετατροπής video απο vob?
Από Aramil στο φόρουμ Audio, Video και ΦωτογραφίαΜηνύματα: 0Τελευταίο Μήνυμα: 12-09-05, 22:08
Bookmarks