所有的語系檔皆放在 Passolo － LOC － zh-TW 內
在 Tools － Options － System 內選擇語系！
[ Last edited by khiav on 2007-5-21 at 05:25 PM ]作者: kingleo 時間: 2007-4-15 08:33 AM 辛苦了
新版的語系中文化真的很不好弄
感謝分享作者: osk 時間: 2007-4-15 10:07 AM 6.0.04 主程式早已有.只差沒安裝...
[ Last edited by hong01 on 2007-4-15 at 02:46 PM ]作者: khiav 時間: 2007-4-15 04:28 PM 在漢化新世紀內看到一篇文是用巨集來快速的簡轉繁....
我試著用了那個巨集,但很不幸的,出現一個問題,該巨集內好像有部份是針對簡體系統的設定,所以用在繁體系統的結果就是亂碼....但的確是可用的,我試著用 AppLocale 去執行!
Originally posted by khiav at 2007-4-15 20:35:
@ PASSOLO Text Translation File
@ chs -> cht
@ 翻譯列表 - PAIDelphi:中文(繁體/台灣)
@CodePage1 936
@CodePage2 950
@ Don't modify lines starting with '@'!
@ For translation change lines after "=" Line
@ Don't modify lines starting with '@'!
@ For translation change lines after "=" Line
@ID 3545891
Originally posted by benleung at 2007-4-16 00:45:
精彩精彩,精彩得很,這主題各大前輩的回應交流實令後學增益不小...
學無先後，達者為師；謝謝 benleung 大大不嫌棄，讓您見笑了。
Quote:
Originally posted by a2213572 at 2007-4-16 01:22:
感謝khiav以及yoyo 大大兩位前輩寶貴的經驗
試用一下khiav 大大的方法很快速實在沒話說真的是一級棒.但是遇到上千甚至一萬多句的軟體時.修飾字串可會累死人.除非自用那就沒關係(.但是這種方式只能用在簡轉繁)
yoyo 大大的方法起步難.愈到後面愈輕鬆.這樣的作品較有個人特色.不會有爭議...
作者: khiav 時間: 2007-4-16 07:40 AM 其實方法是一樣的,就只差在於,文字檔的副檔名不同......
另外,關於簡轉繁,其實詞語的修正,可以自己自訂,關於這方面,我想各個簡繁轉換的工具都可以吧!
再者,老實說,中文化了那麼久,但一直沒有建立字典的習慣,因為大多是繁自己常用的東西,而且大多是模擬器,之前玩這個玩得很兇.....基本上選單的各功能都知道是在做啥的,所以沒有建立字典檔的必要性......作者: khiav 時間: 2007-4-16 07:46 AM
Quote:
Originally posted by a2213572 at 2007-4-16 01:22 AM:
感謝khiav以及yoyo 大大兩位前輩寶貴的經驗
試用一下khiav 大大的方法很快速實在沒話說真的是一級棒.但是遇到上千甚至一萬多句的軟體時.修飾字串可會累死人.除非自用那就沒關係(.但是這種方式只能用在簡轉繁)
y ...
[ Last edited by khiav on 2007-4-16 at 07:49 AM ]作者: a2213572 時間: 2007-4-16 09:27 AM 中文化就是需要不同的工具及方法才好玩.萬事起頭難第一句才是最困難的.也不能太依賴漢化版.否則永遠在人後面跟隨而已.作者: khiav 時間: 2007-4-16 10:23 AM 標題: 閒聊...
[ Last edited by hong01 on 2007-4-16 at 11:05 AM ]作者: khiav 時間: 2007-4-16 11:26 AM 嗯∼還是要把主題拉回來∼！！
重申，巨集的討論單就簡轉繁，對的，就只是單純的簡轉繁！
至於 hong01 大大說的 非標的部份，以我而言有三種處理方式！
Originally posted by hong01 at 2007-4-16 11:02:
上面討論的都很精彩，我的用法也類似，可是：這是簡體轉繁體，如果沒簡體漢化版呢？總不能長期依賴對岸吧？
英文當然還是要【自建字典】有時還要手動修正用詞，英文的翻譯同字不同意思所以要手動修飾，上面講的都是Unicode字串（還好搞！），那ASCII字串呢？那才是大麻煩！
ASCII字串...當然體簡轉繁體用CXAT是個好辦法，英文我用CXA要經驗
修改到不能中文化的字串 ，一不小心就完蛋！程式無法開啟....
有沒有【全自動又安全】的ASCII字串中文化更好的辦法呢？
總不能只有中文化Unicode字串...其他不管的『半套』中文化吧？不過真的有常下載到『半套』中文化版，所以這就是yaya版大說的中文化作品的【品質】吧！
''For trans English string format "&About...\tCtrl+H" to Chinese format "Guanyu(&A) ...\tCtrl+H"
''By: JHFQ
''E-mail: en2zh-jhfq@yahoo.com.cn
Option Explicit
Public Sub Main()
Dim TransList As PslTransList
Dim TransString As PslTransString
Dim ListIndex As Integer
Dim SourceIndex As Integer
Dim SourceIndexT As Integer
Dim STextLen As Integer
Dim STextLenC As Integer
Dim TransIndex As Integer
Dim SIndexEnd As Integer
Dim TTextLen As Integer
Dim StringCount As Integer
Dim TCount As Integer
Dim Temp As Integer
Dim SQuick As String
Dim CQuick As String
Dim TEnd As String
Dim SourceText As String
Dim TransText As String
Dim OTransText As String
Dim NearIndexS As String
PSL.OutputWnd(pslOutputWndMessages).Clear
Set TransList = PSL.ActiveTransList
If TransList Is Nothing Then Exit Sub
StringCount = TransList.StringCount
TCount = 0
For ListIndex = 1 To StringCount
Set TransString = TransList.String(ListIndex)
SourceText = TransString.SourceText
TransText = TransString.Text
If 0 <> StrComp(SourceText,TransText) Then
STextLen = Len(SourceText)
OTransText = TransText
SQuick = ""
CQuick = ""
TEnd = ""
For SourceIndex = 1 To STextLen
SourceIndex = InStr(SourceIndex,SourceText,"&")
NearIndexS = Mid(SourceText,SourceIndex+1,1)
If(0 = SourceIndex) Then
Exit For
ElseIf IsQuick(3,NearIndexS) Then
SQuick = UCase(NearIndexS)
Else
SourceIndex = SourceIndex + 1
End If
Next SourceIndex
SIndexEnd = InStr(1,SourceText,"...")
If 0 = SIndexEnd Then
SIndexEnd = InStr(1,SourceText," ")
If 0 < SIndexEnd Then
If 0 = IsQuick(98,(Mid(SourceText,SIndexEnd+1,2))) Then
SIndexEnd = 0
End If
End If
End If
If 0 < SIndexEnd Then
CQuick = Right(SourceText,STextLen-SIndexEnd+1)
End If
TTextLen = Len(TransText)
If TTextLen > 0 Then
While InStr(1," :：",Right(TransText,1)) > 0
TTextLen = TTextLen - 1
TEnd = Right(TransText,1) & TEnd
TransText = Left(TransText,TTextLen)
Wend
For TransIndex = 1 To TTextLen
TransIndex = InStr(TransIndex,TransText,"&")
If 0 = TransIndex Then
Exit For
ElseIf 0 = InStr(1,"& ",Mid(TransText,TransIndex+1,1)) Then
TransText = Left(TransText,TransIndex - 1) & Right (TransText, TTextLen - TransIndex)
End If
Next TransIndex
TransText = Replace(TransText,"(&","(")
TTextLen = Len(TransText)
Temp = InStrRev(TransText,"...")
If Temp > 0 Then
TTextLen = Temp - 1
Else
Temp = InStrRev(TransText," ")
If Temp > 0 Then
If IsQuick(98,(Mid(TransText,Temp + 1,2))) > 0 Then
TTextLen = Temp -1
End If
End If
End If
If InStrRev(TransText,")",TTextLen) = TTextLen Then
If InStrRev(TransText,"(",TTextLen - 2) = TTextLen - 2 Then
If 0 < IsQuick(3,(Mid(TransText,TTextLen - 1,1))) Then
TTextLen = TTextLen - 3
End If
End If
End If
TransText = Left(TransText,TTextLen)
Else
TransString.OutputError("★原翻譯為空，請核查！")
End If
If SQuick<>"" Then
TransText = TransText & "(&" & SQuick & ")" & TEnd & CQuick
Else
TransText = TransText & TEnd & CQuick
End If
If TransText <> OTransText Then
TransString.Text = TransText
TCount = TCount + 1
TransString.OutputError("原翻譯【" & OTransText & "】<已更新為>【" & TransText & "】，請核查！")
End If
End If
Next ListIndex
End Sub
Function IsQuick(Index As Integer, Ins As String)
IsQuick = InStr(Index,"& ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890`-=[]\\;',./~!@#$%^*()_+{}|:""<>?+CtShAlWiEsF1F2F3F4F5F6F7F8F9PrSyScNuPaBrDeHoPaEnIn",Ins)
End Function
