【紧急求助】win32:gui中文复制问题

3chi01

请教各位大侠！

$outcome->Append( "$str\r\n";
$str可顺利输出中文结果“测试文本”， 但是把“测试文本”四个字复制粘贴到word中，出现乱码，请问各位老师如何解决。

1. 
   
2. use Win32::GUI qw();
   
3. 
   
4. my $main = Win32::GUI::Window->new (
   
5.     -title =>"test",
   
6.     -size   => [388, 410],
   
7.     -pos  => [100,100],
   
8.   -maxsize => [388, 410],
   
9.   -minsize => [388, 410],
   
10. -topmost => 0,
    
11.         );
    
12. 
    
13. ###########
    
14. my $outcome=$main->AddTextfield(
    
15.    -pos => [ 7, 130 ],
    
16.    -name   => "outcome",
    
17.    -size => [ 365, 250 ],
    
18.    -multiline => 1,
    
19.    -vscroll=>1,
    
20.    -hscroll=>1,
    
21.    );
    
22. $main->AddButton(
    
23.     -pos => [ 305,100 ],
    
24.     -name   => "btnStart",
    
25.     -size => [ 65, 20 ],
    
26.     -title => "处理",
    
27.     );
    
28. 
    
29. 
    
30. # initialization
    
31. my $w = $main->ScaleWidth();
    
32. my $h = $main->ScaleHeight();
    
33. my $desk = Win32::GUI::GetDesktopWindow();
    
34. my $dw = Win32::GUI::Width($desk);
    
35. my $dh = Win32::GUI::Height($desk);
    
36. my $x = ($dw - $w) / 2;
    
37. my $y = ($dh - $h) / 2;
    
38. $main->Move($x, $y);
    
39. $main->Show();
    
40. Win32::GUI::Dialog();  
    
41. exit(0);
    
42. 
    
43. 
    
44. sub btnStart_Click{
    
45. Win32::SetChildShowWindow(0);
    
46. $str="测试文本";
    
47. $outcome->Append( "$str\r\n");
    
48. 
    
49. }
    
50. 
    

复制代码

[ 本帖最后由 3chi01 于 2009-3-22 22:07 编辑 ]

3chi01

把显示框中的文字复制到word中，出现乱码。

wxlfh

在我地方是正确的。

machine

你先贴到UltraEdit或者记事本 里看看，顺便查看一下它的编码。

3chi01

多谢各位了。 今天发现好了，没找到原因。