本来这个网站是用DW开发的用的是gb2312字符集
现在放在了一级网站下面.但是一级网站的字符集是UTF-8 如果直接访问网站子目录这个网站,界面不会出错,但是如果经过一级页面进入,我的页面就是乱码?在论坛下了一个字符集转换软件,但是,试验一下不行.我现在想用delphi 搜索文件,然后自动用 记事本 打开,然后另存为 UTF-8 并且是 选择"所有文件".来实现将所有文件转换一下.问题是:我如何 自动用 记事本 打开已知文件名,然后自动另存呢? (中间最好不要人工干预),因为 文件多.
procedure TForm1.btn2Click(Sender: TObject);
begin
WinExec(PAnsiChar('notepad.exe '+self.lst1.Items.Strings[self.lst1.ItemIndex]),1) ;
//ShellExecute(0,PChar('notepad.exe '),PChar(self.lst1.Items.Strings[self.lst1.ItemIndex]),'','',1) ;
end;问题是现在不能打开,就更不用谈自动关闭?有没有办法? 或者其他办法解决这个问题.
现在放在了一级网站下面.但是一级网站的字符集是UTF-8 如果直接访问网站子目录这个网站,界面不会出错,但是如果经过一级页面进入,我的页面就是乱码?在论坛下了一个字符集转换软件,但是,试验一下不行.我现在想用delphi 搜索文件,然后自动用 记事本 打开,然后另存为 UTF-8 并且是 选择"所有文件".来实现将所有文件转换一下.问题是:我如何 自动用 记事本 打开已知文件名,然后自动另存呢? (中间最好不要人工干预),因为 文件多.
procedure TForm1.btn2Click(Sender: TObject);
begin
WinExec(PAnsiChar('notepad.exe '+self.lst1.Items.Strings[self.lst1.ItemIndex]),1) ;
//ShellExecute(0,PChar('notepad.exe '),PChar(self.lst1.Items.Strings[self.lst1.ItemIndex]),'','',1) ;
end;问题是现在不能打开,就更不用谈自动关闭?有没有办法? 或者其他办法解决这个问题.
http://www.megaupload.com/?d=CN6XRO0U截图:
http://www.smartget.net/demo.PNG
没那么复杂。