关于下载的英文书籍中出现乱码的解决

[littleme741]

我在下载的英文书籍中经常有些示例代码出现如下的乱码，比如下面的情况

Dim爉ySavAcct燗s燦ew燬avingsAccount
Dim爊Balance燗s燚ouble
Dim爊InterestEarned燗s燚ouble

'營f爉ySavAcct營s燦othing燭hen
'牋牋燬et爉ySavAcct?燦ew燬avingsAccount
'燛nd營f
nBalance?爉ySavAcct.Deposit(10)?燚eposit燾ash.

'營f爉ySavAcct營s燦othing燭hen
'牋牋燬et爉ySavAcct?燦ew燬avingsAccount
'燛nd營f
nInterestEarned?爉ySavAcct.IE牋'燙heck爄nterest爀arned.

'營f爉ySavAcct營s燦othing燭hen
'牋牋燬et爉ySavAcct?燦ew燬avingsAccount
'燛nd營f
mySavAcct.Owner.LName??quot;Jones"?燯pdate燼ccount爋wner's爈ast
牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋牋'爊ame爐o燡ones.



我用VC写了一段小程序来解决这种乱码情况，不知道大家有没有兴趣。呵呵。
附：解码后的情况：

Dim mySavAcct As New SavingsAccount
Dim nBalance As Double
Dim nInterestEarned As Double

' If mySavAcct Is Nothing Then
' Set mySavAcct = New SavingsAccount
' End If
nBalance = mySavAcct.Deposit(10) = Deposit cash.

' If mySavAcct Is Nothing Then
' Set mySavAcct = New SavingsAccount
' End If
nInterestEarned = mySavAcct.IE ' Check interest earned.

' If mySavAcct Is Nothing Then
' Set mySavAcct = New SavingsAccount
' End If
mySavAcct.Owner.LName = "Jones" = Update account owner's last
' name to Jones.

[iwxg]

有兴趣 你公布出来吧

[oicq8]

在浏览器里的查看,编码里选中文

[littleme741]

To iwxg()
代码写的很烂，但是应该能解决实际问题，你用VC建一个工程，调用该函数就可以了。呵呵。

void CDealLuanMaDoc::OnFileDeal()
{
CFile myFile;
CFile TargetFile;

CString myFileName;
CString TargetFileName;

BYTE singleByte;
CString tmpStr;

CString strBuf;

UINT TargetFileLength;
UINT i;

CString m_SourceStrLess;
CString m_SourceStrGreater;
CString m_SourceStrQuote;
CString m_SourceStrEqual;
CString m_SourceStrQuestion;

CString m_TargetStrLess;
CString m_TargetStrGreater;
CString m_TargetStrQuote;
CString m_TargetStrEqual;
CString m_TargetStrQuestion;

//关于一些字符串的转化
m_SourceStrLess="?lt;?";
m_SourceStrGreater="?gt;?";
m_SourceStrQuote="??quot;";
m_SourceStrEqual="? ";
m_SourceStrQuestion="?";

m_TargetStrLess=" < ";
m_TargetStrGreater=" > ";
m_TargetStrQuote=" = \"";
m_TargetStrEqual=" = ";
m_TargetStrQuestion=0x20;

myFileName="c:\\temp\\kk.txt";
TargetFileName="c:\\temp\\result.txt";

myFile.Open(myFileName,CFile::modeRead);
TargetFile.Open(TargetFileName,CFile::modeWrite|CFile::modeCreate);

m_pSize=myFile.GetLength();
m_pData=new BYTE[m_pSize];
myFile.ReadHuge(m_pData,m_pSize);
strBuf="";

for(i=0;i<m_pSize;i++)
{
singleByte=*(m_pData+i);
if(singleByte<=127)
tmpStr=singleByte;
else
tmpStr=0x20;
strBuf=strBuf+tmpStr;
}

UINT nSum;
nSum=strBuf.Replace(m_SourceStrLess,m_TargetStrLess);
nSum=strBuf.Replace(m_SourceStrGreater,m_TargetStrGreater);
nSum=strBuf.Replace(m_SourceStrQuote,m_TargetStrQuote);
nSum=strBuf.Replace(m_SourceStrEqual,m_TargetStrEqual);
nSum=strBuf.Replace(m_SourceStrQuestion,m_TargetStrQuestion);

TargetFileLength=strBuf.GetLength();
TargetFile.WriteHuge(strBuf.GetBuffer(TargetFileLength),TargetFileLength);
strBuf.ReleaseBuffer();

TargetFile.Close();

delete [] m_pData;
m_pData=NULL;
}

TO oicq8(龙飞):
这乱码本身就是一个文本文件，你在浏览器换中文方式也没有用，因为文本本身就有错。呵呵。

[iwxg]

实用的东西就是好东西啊 我也遇到了同样的问题 谢谢你了