[公告测试]感谢Lars GreedWind WC3C的Zoxc 论坛已支持触发JASS高亮显示 欢迎大家测试

<font c

原帖由 greedwind 于 2006-4-2 15:34 发表
不知道谁有PHP的 ANSI2UNICODE程序？

偶只有C#版的...

冬之冷傲

不是人人都回JASS的

一定要支持中文！

illlusion

原帖由 greedwind 于 2006-4-2 16:21 发表
应该是特殊字符的使用问题，程序没对一些特殊字符做处理。
把你不能显示的TRIGGER用[ code ][ /code ]粘贴出来看看。

其他的都能正常显示 就这两个什么都显示不出来:L

1. Goldbachs conjecture 1
   
2.     Events
   
3.         Player - Player 1 (Red) types a chat message containing G as A substring
   
4.     Conditions
   
5.         (Integer((Substring((Entered chat string), 2, (Length of (Entered chat string)))))) Greater than 2
   
6.     Actions
   
7.         For each (Integer A) from 3 to (Integer((Substring((Entered chat string), 2, (Length of (Entered chat string)))))), do (Actions)
   
8.             Loop - Actions
   
9.                 Set P[1] = ((Integer A) + 1)
   
10.                 Set P[2] = ((Integer A) - 1)
    
11.                 Trigger - Run Goldbachs conjecture 2 <gen> (ignoring conditions)
    
12.         If (GoldbachsTrueOrFalse Equal to True) then do (Game - Display to (All players) for 60.00 seconds the text: ((|cffffcc00 + (Substring((Entered chat string), 2, (Length of (Entered chat string))))) +  浠ュ?绗??Goldbach\'s conjecture|r)) else do (Set GoldbachsTrueOrFalse = True)
    
13.         Set index = 1
    

复制代码

1. Goldbachs conjecture 2
   
2.     Events
   
3.     Conditions
   
4.     Actions
   
5.         Set P[1] = (P[1] - 1)
   
6.         Set P[2] = (P[2] + 1)
   
7.         If (All Conditions are True) then do (Then Actions) else do (Else Actions)
   
8.             If - Conditions
   
9.                 P[1] Equal to 2
   
10.             Then - Actions
    
11.                 Game - Display to (All players) for 60.00 seconds the text: ((String((Integer A))) +  涓????oldbach\'s conjecture)
    
12.                 Set GoldbachsTrueOrFalse = False
    
13.                 Skip remaining actions
    
14.             Else - Actions
    
15.         Set index = 1
    
16.         Trigger - Run Goldbachs conjecture 3 <gen> (ignoring conditions)
    
17.         Set index = 2
    
18.         Trigger - Run Goldbachs conjecture 3 <gen> (ignoring conditions)
    
19.         If (All Conditions are True) then do (Then Actions) else do (Else Actions)
    
20.             If - Conditions
    
21.                 PrimeTrueOrFalse[1] Equal to True
    
22.                 PrimeTrueOrFalse[2] Equal to True
    
23.             Then - Actions
    
24.                 Game - Display to (All players) for 60.00 seconds the text: (((String((Integer A))) + =() + ((String(P[1])) + (+ + ((String(P[2])) + )/2))))
    
25.                 Skip remaining actions
    
26.             Else - Actions
    
27.                 Set PrimeTrueOrFalse[1] = True
    
28.                 Set PrimeTrueOrFalse[2] = True
    
29.                 Trigger - Run (This trigger) (ignoring conditions)
    

复制代码

[ 本帖最后由 illlusion 于 2006-4-2 17:28 编辑 ]

啊丹

1.         If (GoldbachsTrueOrFalse Equal to True) then do (Game - Display to (All players) for 60.00 seconds the text: ((|cffffcc00 + (Substring((Entered chat string), 2, (Length of (Entered chat string))))) +  Goldbach\'s conjecture|r)) else do (Set GoldbachsTrueOrFalse = True)

复制代码

应该是这句的原因造成的

greedwind

经初步确认，是个 \' 的问题！！！
会修改的。

[ 本帖最后由 greedwind 于 2006-4-2 19:12 编辑 ]

蚊子叮

[trigger]
Quest2 Discovered
    浜?欢
    ???
        (浠诲?Q_JiaMeng[TempQuestActionIndex] ??????) 绛?? ??True)
        (浠诲?Q_JiaMengRenWu1[TempQuestActionIndex] ??凡缁???扮?) 绛?? ??False)
        (?遍? RoleByPlayer[TempQuestActionIndex] ???绾? 澶т????绛??QuestRuqLV[2]
    ?ㄤ?
        浠诲? - 璁剧疆 Q_JiaMengRenWu1[TempQuestActionIndex] 涓???ず
        浠诲? - ?剧ず (?╁?缁?Player[TempQuestActionIndex]))  ???浠诲? 娑??: |cffffcc00???浠?..
        浠诲? - 浣夸换?℃??????



[/trigger]

[ 本帖最后由 蚊子叮 于 2006-4-2 22:56 编辑 ]

amp34

呃。还是没支持utf8.嗯嗯。

greedwind

原帖由 啊丹 于 2006-4-2 18:48 发表
[code]        If (GoldbachsTrueOrFalse Equal to True) then do (Game - Display to (All players) for 60.00 seconds the text: ((|cffffcc00 + (Substring((Entered chat string), 2, (Length of (Entered ch ...

是Goldbach\'s中的 \' 号引起的

greedwind

原帖由 白银の游戏王 于 2006-4-2 16:32 发表


偶只有C#版的...

给我参考一下？

记得MYSQL 内置好像ANSI ->UNICODE的库文件

zyl910

似乎现在的数据库都支持转换编码
有个VB的

http://www.mndsoft.com/blog/blogview.asp?logID=492

解决多国语言乱码的编码问题   [ 2005-08-20 | 作者：Mndsoft | 来自：本站转载]
  

忙呼了几天,终于解决多国语言乱码的编码问题

open  方法打开文本文件经常遇到乱码问题,今天俺尝试打开一法文文本 和 英文文本,notepad 中出现问题,后来在 CSDN 重赏,竟然无人能解决.,查了两天,也无结果.无意中在 microsoft msdn 新闻组中发现 adodb.stream 在上传下载中可以进行 charset , 正合吾意, 马上试试,果然成功.

不要用 StrConv(InputB$(LOF(hFile), #hFile), vbUnicode) 这种方式来解决问题,因为你打开的文本编码是不确定的,另外还存在大容量文本的问题.

现归纳成如下函数,该函数能解决由于 utf-8,unicode,ansi,..... 等任何已知编码出现的乱码问题.

\'http://spaces.msn.com/members/standardtrip
Function UTFDecode(filePathName As String, writeCode As String, readCode As String) As String
    Dim adoSd As ADODB.Stream
    Set adoSd = New ADODB.Stream
\'   adoSd.Mode = adModeRecursive
    adoSd.Type = adTypeText
    adoSd.Open
    adoSd.Charset = writeCode \'UTF-8
   
    adoSd.LoadFromFile filePathName
    adoSd.Position = 0
    adoSd.Charset = readCode \'gb2312
    UTFDecode = adoSd.ReadText
    adoSd.Close
    Set adoSd = Nothing
End Function

greedwind

使用系统功能的无参考价值的
要从BYTE分析

Danexx

太专业了~~不的不拜！！

Danexx

[trigger]Melee Initialization
    Events
        Map initialization
    Conditions
    Actions
        Melee Game - Use melee time of day (for all players)
        Melee Game - Limit Heroes to 1 per Hero-type (for all players)
        Melee Game - Give trained Heroes a Scroll of Town Portal (for all players)
        Melee Game - Set starting resources (for all players)
        Melee Game - Remove creeps and critters from used start locations (for all players)
        Melee Game - Create starting units (for all players)
        Melee Game - Run melee AI scripts (for computer players)
        Melee Game - Enforce victory/defeat conditions (for all players)
[/trigger]

Danexx

拉啦啦~~成功~~

啊丹

[jass]function Trig_Shape_Shift_Meta_Conditions takes nothing returns boolean
    return (( GetSpellAbilityId() == \'A607\' ) or ( GetSpellAbilityId() == \'A608\' ))
endfunction

function Trig_Shape_Shift_Dragon_SelectUnits takes nothing returns nothing
    call SelectUnitAdd( GetEnumUnit() )
endfunction

function Trig_Shape_Shift_Meta_Actions takes nothing returns nothing
    local unit u_caster = GetSpellAbilityUnit()
    local group selection
    local integer HeroID = 2
    local integer i
    local integer j
    local integer k
    local real    distance
    local group   selection
    local boolean item_on_ground

    if ( GetUnitTypeId(u_caster) == \'E601\' ) then
        set HeroID = 1
    endif
    //call IssueImmediateOrderBJ( udg_Heroes[HeroID], \"holdposition\" )
    set selection = GetUnitsSelectedAll(Player(0))
    //Make sure you can land
    call SetUnitPositionLocFacingBJ( udg_Heroes[3 - HeroID], GetUnitLoc(udg_Heroes[HeroID]), GetUnitFacing(udg_Heroes[HeroID]) )
    set distance = DistanceBetweenPoints(GetUnitLoc(udg_Heroes[1]), GetUnitLoc(udg_Heroes[2]))
    if ( distance > 300 ) then
        call SetUnitManaBJ( udg_Heroes[HeroID], ( GetUnitStateSwap(UNIT_STATE_MANA, udg_Heroes[HeroID]) + 50.00 ) )
        call DisplayTextToForce( GetPlayersAll(), \"Cannot transform to spider form - Cannot land here\" )
        return
    endif[/jass]

amp34

eGust用delphi写的。我看不懂。好像是用指针操作的。

1. 
   
2. function A2U(us:PChar):PChar;
   
3. var
   
4.   ws    : PWCHAR;
   
5.   cs    : PChar;
   
6.   nLen  : integer;
   
7. begin
   
8.   nLen := MultiByteToWideChar(CP_ACP, 0, us, -1, nil, 0);
   
9.   GetMem(ws, Sizeof(WCHAR) * (nLen + 2));
   
10.   MultiByteToWideChar(CP_ACP, 0, us, -1, ws, nLen);
    
11.   nLen := WideCharToMultiByte(CP_UTF8, 0, ws, -1, nil, 0, nil, nil);
    
12.   if bolHaveHead then
    
13.   begin
    
14.     GetMem(cs, Sizeof(char) * (nLen + 4));
    
15.     Result := cs;
    
16.     cs^ := #$ef;
    
17.     Inc(cs);
    
18.     cs^ := #$bb;
    
19.     Inc(cs);
    
20.     cs^ := #$bf;
    
21.     Inc(cs);
    
22.   end else
    
23.   begin
    
24.     GetMem(cs, Sizeof(char) * (nLen + 1));
    
25.     Result := cs;
    
26.   end;
    
27.   WideCharToMultiByte(CP_UTF8, 0, ws, -1, cs, nLen, nil, nil);
    
28.   FreeMem(ws);
    
29. end;
    
30. 
    
31. function U2A(us:PChar):PChar;
    
32. var ws:PWCHAR;cs:PChar;nLen:integer;
    
33. begin
    
34.   if us^=#$ef then
    
35.   begin
    
36.     Inc(us);
    
37.     if us^=#$bb then
    
38.     begin
    
39.       Inc(us);
    
40.       bolHaveHead := us^=#$bf;
    
41.       if bolHaveHead then
    
42.         Inc(us)
    
43.       else
    
44.         Dec(us, 2);
    
45.     end
    
46.     else
    
47.       Dec(us);
    
48.   end;
    
49.   nLen := MultiByteToWideChar(CP_UTF8, 0, us, -1, nil, 0);
    
50.   GetMem(ws, sizeof(WCHAR) * (nLen + 2));
    
51.   MultiByteToWideChar(CP_UTF8, 0, us, -1, ws, nLen);
    
52.   nLen := WideCharToMultiByte(CP_ACP, 0, ws, -1, nil, 0, nil, nil);
    
53.   GetMem(cs, sizeof(char) * (nLen + 3));
    
54.   Result  := cs;
    
55.   WideCharToMultiByte(CP_ACP, 0, ws, -1, cs, nLen, nil, nil);
    
56. end;
    

复制代码

&lt;font c

关键就素一个API:MultiByteToWideChar

greedwind

原帖由 白银の游戏王 于 2006-4-4 13:50 发表
关键就素一个API:MultiByteToWideChar

又是一个系统函数，
不过PHP也又iconv()

不过，我就是搞不懂他的codepage的对应。

amp34

呃。因为没学过php。所以不知道php用的函数和系统无关。
还有这几句也不明白。
    cs^ := #$ef;
    Inc(cs);
    cs^ := #$bb;
    Inc(cs);
    cs^ := #$bf;
    Inc(cs);
不懂#$是什么意思。。

piky

[trigger]function Trig________________u_Actions takes nothing returns nothing     call MeleeStartingVisibility(  )[/trigger]
怎么搞的 不明白 发个教程八

[ 本帖最后由 piky 于 2006-4-4 23:38 编辑 ]