Make(delphi)
ver(4.01 build 175)
Add(MainForm,2953706,112,112)
{
 Width=696
 Height=562
 Caption="AutoCodePage"
 Position=1
}
Add(VBJScript,15978143,245,126)
{
 WorkPoints=#6:doWork|
 EventPoints=#6:TxtOut|4:Info|
 Script=#23:Sub doWork(Data, Index)|41:Dim objStream, ArrStr, Arrmax, str, resul|46:Dim intCp866, intKoi8r, intIso88595, intCp1251|0:|61:intCp866 = 0 : intKoi8r = 0 : intIso88595 = 0 : intCp1251 = 0|0:|44:Set objStream = CreateObject("ADODB.Stream")|0:|34:objStream.Charset = "Windows-1251"|14:objStream.Open|27:objStream.LoadFromFile Data|24:str = objStream.ReadText|15:objStream.Close|0:|29:ArrStr = Split(str," ",200,1)|30:If UBound(ArrStr,1) < 200 Then|27:  ArrMax = UBound(ArrStr,1)|4:Else|14:  ArrMax = 200|6:End If|9:         |19:For i = 0 to ArrMax|25:    Select Case ArrStr(i)|67:           Case "äà","íåò","êàê","÷òî","÷åì","Âû","Âàñ","äëÿ","âñå"|41:                intCp1251 = intCp1251 + 1|16:                |67:           Case "¤ ","­¥â","ª ª","çâ®","祬","‚ë","‚ á","¤«ï","¢á¥"|39:                intCp866 = intCp866 + 1|16:                |67:           Case "ÄÁ","ÎÅÔ","ËÁË","ÞÔÏ","ÞÅÍ","÷Ù","÷ÁÓ","ÄÌÑ","×ÓÅ"|39:                intKoi8r = intKoi8r + 1|11:           |67:           Case "ÔÐ","ÝÕâ","ÚÐÚ","çâÞ","çÕÜ","²ë","²Ðá","ÔÛï","ÒáÕ"|45:                intIso88595 = intIso88595 + 1|32:                                |21:    End Select       |5:Next |0:|25:If resul < intCp1251 Then|25:        resul = intCp1251|28:        idx = "Windows-1251"|29:Else If resul < intCp866 Then|24:        resul = intCp866|21:        idx = "cp866"|29:Else If resul < intKoi8r Then|24:        resul = intKoi8r|22:        idx = "koi8-r"|32:Else If resul < intIso88595 Then|27:        resul = intIso88595|26:        idx = "iso-8859-5"|12:        Else|28:        idx = "Windows-1251"|6:End If|6:End If|6:End If|7:End If |0:|23:objStream.Charset = idx|14:objStream.Open|27:objStream.LoadFromFile Data|24:str = objStream.ReadText|15:objStream.Close|0:|17:sys.TxtOut str   |12:            |24:Set objStream = Nothing |8:str = ""|3:   |30:sys.Info "CodePage = " & idx  |4:    |7:End Sub|
 UseName=0
 link(TxtOut,8501795:doText,[])
 link(Info,9224804:doText,[(293,139)(293,174)])
}
Add(Memo,8501795,308,105)
{
 Width=688
 Height=528
 Align=5
 ScrollBars=3
}
Add(DropFile,12890118,161,112)
{
 link(onDropFile,3380629:doEvent1,[])
}
Add(Hub,3380629,210,112)
{
 link(onEvent1,8501795:doClear,[])
 link(onEvent2,15978143:doWork,[(231,125)(231,132)])
}
Add(StatusBar,9224804,308,168)
{
}