[千呼萬喚] DIY原聲原影KTV系統 1.9.99版(支援延伸螢幕)

cityhunter

33分

101樓

cityhunter

個人積分：33分

文章編號：896726

真的很棒
加分先....

不知道能不能開發給XBMC上面使用的程式呢...能支援搖桿跟搖控器..
這樣就更完美了...

howardkuo

0分

102樓

howardkuo

個人積分：0分

文章編號：896752

看到Jetter大大提供的軟體
真的令人敬佩萬分
早期會寫這樣東西的人並不多
可見Jetter的功力之深厚了

toscar

10分

103樓

toscar

個人積分：10分

文章編號：896785

剛看到網友推薦這篇文章
就是有這麼熱心的開發者投注心力卻又慷慨的奉獻
所謂己欲與人己愈多不正是這個道理嗎
謹向您至上最誠摯的謝意

gary1159

1分

104樓

gary1159

個人積分：1分

文章編號：896823

我剛開始也發生這樣的問題~

後來到處亂試...也不行~幾乎要放棄了!

後來把list.csv開啟來(Excel),給它另存新檔~~~
Excel會出現一警告訊息~@#%#^
然後確定儲存...再開啟"JetKTV系統管理" > "加入歌曲" ＞成功了!!!

對照前後的CSV檔,發現~表框下方的工作表,不能一個以上...會有問題!
總結~
問題點:開新的xls編輯後儲存,再改檔名~~~會有問題!

解決方法:新的xls或csv編輯後,需另存為csv格式的檔案,就會自動變成單一表格內容!

希望各位順利安裝~~~

也感謝各位大大的分享和分流......努力加歌中!

shiunshi

31分

105樓

shiunshi

個人積分：31分

文章編號：896888

感謝Jetter大大無私的分享，小弟不才，希望也能盡一些綿薄之力。

因為小弟之前已有收集KTV檔的習慣，並已將檔名整理為歌手_歌名.mpg 的格式，不想重新再keyin 一次 excel 的歌曲資料檔，故寫了這一個小程式來自動產生歌曲資料的cvs檔案。

請按右鑑另存FileList.vbs

ZIP檔

使用方式
1.進入 dos 視窗，下先cd至KTV的資料目錄
d:
cd KTV
2.執行此指令:
cscript /nologo FileList.vbs > 檔名.cvs
3.使用excel 修改歌曲資料的cvs檔案
4.匯入歌曲檔，完成

=====程式如下，請由下行開始複製並存為 FileList.vbs ===================
''==================================================================================================
''作者：史學勳
''Version 1.0
''日期：2006/1/4
''說明
''修改或散佈本程式請保留以上資訊，下列程式欄位說明為原本Jetter大大的說明直接引用
''==================================================================================================
columnA = "70" ''欄A: 歌曲音量(也就是KTV程式裡音量設到100時, 就這個音量來計算) 從0~100
columnB = "3" ''欄B: 伴奏軌所在(1:左聲道, 2:右聲道, 3:立體聲)
columnC = "國語" ''欄C: 語系(國語, 台語, 日語, 廣東話, 英語, 兒歌, 原住民語, 客語)
'columnD = "" ''欄D: 歌手名字, 如果是合唱的話, 名字和名字之間請用半行的 & 符號相接, 而系統會把歌曲加到第一個歌手的名字之下.
columnE = "0" ''欄E: 歌手的性別: 0:女 1:男 2:團體 , 這個功能主要是如果這個歌手沒有在資料庫中出現, 系統會自動把歌手姓名加到資料庫裡, 那麼當然要有性別欄囉.
'columnF = "" ''欄F: 歌名, 歌名可以加上半形的括號 "(" 如圖中的世間情這首歌, 但系統在計算字數時並不會把括號內的文字一起計算下去
'columnG = "" ''欄G: 檔名, 這個應該不用再說明了吧

spliter = "_-"
ingore="[]"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(".") '目前目錄
Set fc = f.Files

For Each f1 in fc
fileName = f1.name
baseName = fso.GetBaseName(fileName)

columnG=fileName

ReDim tmpPart(10)
totalPartNum=0
For i=1 to Len(baseName)
c=Mid(baseName,i,1)
If InStr(ingore,c)=0 Then
''不在忽略的字串裡
If InStr(spliter,c)>0 Then
totalPartNum = totalPartNum+1
Else
tmpPart(totalPartNum) = tmpPart(totalPartNum) & c
End If
End If
Next

ReDim Preserve tmpPart(totalPartNum)

columnD=""
columnF=""
For i=0 to UBound(tmpPart)
If i = UBound(tmpPart) Then
''最後一個部份是檔名
columnF=tmpPart(i)
Else
''其他是歌手名稱
If not columnD="" Then columnD=columnD & "&"
columnD=columnD & tmpPart(i)
End If
Next

If columnD="" Then columnD="無"
Wscript.echo columnA & "," & columnB & "," & columnC & "," & columnD & "," & columnE & "," & columnF & "," & columnG
Next

=====程式結束，這行不是程式=========================