modoutput.bas

一个把VB原代码转换为VC原代码的软件代码。

    WriteInHead vbNewLine & "// --------------------------- Asc() function" & vbNewLine
    WriteInHead "__inline int Asc(char *);" & vbNewLine
    WriteInHead "__inline int Asc(char *AscString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "return (unsigned char) AscString[0];" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- AscB() function --- '
Public Sub Func_AscBCore()
    WriteInHead vbNewLine & "// --------------------------- AscB() function" & vbNewLine
    WriteInHead "__inline BYTE AscB(char *);" & vbNewLine
    WriteInHead "__inline BYTE AscB(char *AscString)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "return (unsigned char) AscString[0];" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Sgn() function --- '
Public Sub Func_SgnCore()
    WriteInHead vbNewLine & "// --------------------------- Sgn() function" & vbNewLine
    WriteInHead "__inline long Sgn(double);" & vbNewLine
    WriteInHead "__inline long Sgn(double a)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(a<0.0) return -1;" & vbNewLine
    WriteInHead vbTab & "if(a>0.0) return 1;" & vbNewLine
    WriteInHead vbTab & "return 0;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Space() function --- '
Public Sub Func_SpaceCore()
    WriteInHead vbNewLine & "// --------------------------- Space() function" & vbNewLine
    WriteInHead "__inline char *Space(int);" & vbNewLine
    WriteInHead "__inline char *Space(int count)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrSpaceTmp;" & vbNewLine
    WriteInHead vbTab & "StrSpaceTmp=garbagestring(count);" & vbNewLine
    WriteInHead vbTab & "memset(StrSpaceTmp,32,count);" & vbNewLine
    WriteInHead vbTab & "return StrSpaceTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- String() function --- '
Public Sub Func_StringCore()
    WriteInHead vbNewLine & "// --------------------------- String() function" & vbNewLine
    WriteInHead "__inline char *String(int,int);" & vbNewLine
    WriteInHead "__inline char *String(int count,int a)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrStringTmp;" & vbNewLine
    WriteInHead vbTab & "StrStringTmp=garbagestring(count);" & vbNewLine
    WriteInHead vbTab & "memset(StrStringTmp,a,count);" & vbNewLine
    WriteInHead vbTab & "return StrStringTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- Str() function --- '
Public Sub Func_StrCore()
    WriteInHead vbNewLine & "// --------------------------- Str() function" & vbNewLine
    WriteInHead "__inline char *Str(double);" & vbNewLine
    WriteInHead "__inline char *Str(double d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrStrTmp;" & vbNewLine
    WriteInHead vbTab & "StrStrTmp=garbagestring(32);" & vbNewLine
    WriteInHead vbTab & "sprintf(StrStrTmp," & Chr(34) & "%.15g" & Chr(34) & ",d);" & vbNewLine
    WriteInHead vbTab & "return StrStrTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- DWORDToStr() function --- '
Public Sub Func_DWORDToStrCore()
    WriteInHead vbNewLine & "// --------------------------- DWORDToStr() function" & vbNewLine
    WriteInHead "__inline char *DWORDToStr(DWORD);" & vbNewLine
    WriteInHead "__inline char *DWORDToStr(DWORD d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrStrTmp;" & vbNewLine
    WriteInHead vbTab & "StrStrTmp=garbagestring(32);" & vbNewLine
    WriteInHead vbTab & "sprintf(StrStrTmp," & Chr(34) & "%d" & Chr(34) & ",d);" & vbNewLine
    WriteInHead vbTab & "return StrStrTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- IntToStr() function --- '
Public Sub Func_IntToStrCore()
    WriteInHead vbNewLine & "// --------------------------- IntToStr() function" & vbNewLine
    WriteInHead "__inline char *IntToStr(int);" & vbNewLine
    WriteInHead "__inline char *IntToStr(int d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *StrStrTmp;" & vbNewLine
    WriteInHead vbTab & "StrStrTmp=garbagestring(32);" & vbNewLine
    WriteInHead vbTab & "sprintf(StrStrTmp," & Chr(34) & "%d" & Chr(34) & ",d);" & vbNewLine
    WriteInHead vbTab & "return StrStrTmp;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- CLng() function --- '
Public Sub Func_CLngCore()
    WriteInHead vbNewLine & "// --------------------------- CLng() function" & vbNewLine
    WriteInHead "double CLng(double);" & vbNewLine
    WriteInHead "double CLng(double d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if (d < 0.0)" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "if (fabs(floor(d)-d) < 0.5)" & vbNewLine
    WriteInHead vbTab & vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "return floor(d);" & vbNewLine
    WriteInHead vbTab & vbTab & "}" & vbNewLine
    WriteInHead vbTab & vbTab & "else" & vbNewLine
    WriteInHead vbTab & vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "return ceil(d);" & vbNewLine
    WriteInHead vbTab & vbTab & "}" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead vbTab & "else" & vbNewLine
    WriteInHead vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & "if ((d-floor(d)) <= 0.5)" & vbNewLine
    WriteInHead vbTab & vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "return floor(d);" & vbNewLine
    WriteInHead vbTab & vbTab & "}" & vbNewLine
    WriteInHead vbTab & vbTab & "else" & vbNewLine
    WriteInHead vbTab & vbTab & "{" & vbNewLine
    WriteInHead vbTab & vbTab & vbTab & "return ceil(d);" & vbNewLine
    WriteInHead vbTab & vbTab & "}" & vbNewLine
    WriteInHead vbTab & "}" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- DblToStr() function --- '
Public Sub Func_DblToStrCore()
    WriteInHead vbNewLine & "// --------------------------- DblToStr() function" & vbNewLine
    WriteInHead "__inline char *DblToStr(double);" & vbNewLine
    WriteInHead "__inline char *DblToStr(double d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *DblToStrStrTmp;" & vbNewLine
    WriteInHead vbTab & "DblToStrStrTmp=garbagestring(32);" & vbNewLine
    WriteInHead vbTab & "sprintf(DblToStrStrTmp," & Chr(34) & "%.15g" & Chr(34) & ",d);" & vbNewLine
    WriteInHead vbTab & "return Replace(DblToStrStrTmp," & Chr(34) & "." & Chr(34) & "," & Chr(34) & "," & Chr(34) & ");" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- SngToStr() function --- '
Public Sub Func_SngToStrCore()
    WriteInHead vbNewLine & "// --------------------------- SngToStr() function" & vbNewLine
    WriteInHead "__inline char *SngToStr(float);" & vbNewLine
    WriteInHead "__inline char *SngToStr(float d)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "char *SngToStrStrTmp;" & vbNewLine
    WriteInHead vbTab & "SngToStrStrTmp=garbagestring(32);" & vbNewLine
    WriteInHead vbTab & "sprintf(SngToStrStrTmp," & Chr(34) & "%.7g" & Chr(34) & ",d);" & vbNewLine
    WriteInHead vbTab & "return Replace(SngToStrStrTmp," & Chr(34) & "." & Chr(34) & "," & Chr(34) & "," & Chr(34) & ");" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- StrToDbl() function --- '
Public Sub Func_StrToDblCore()
    WriteInHead vbNewLine & "// --------------------------- StrToDbl() function" & vbNewLine
    WriteInHead "__inline double StrToDbl(char *);" & vbNewLine
    WriteInHead "__inline double StrToDbl(char *Str)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "return atof(Replace(Str," & Chr(34) & "," & Chr(34) & "," & Chr(34) & "." & Chr(34) & "));" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- StrToSng() function --- '
Public Sub Func_StrToSngCore()
    WriteInHead vbNewLine & "// --------------------------- StrToSng() function" & vbNewLine
    WriteInHead "__inline float StrToSng(char *);" & vbNewLine
    WriteInHead "__inline float StrToSng(char *Str)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "float strtosngfloat=0.0;" & vbNewLine
    WriteInHead vbTab & "sscanf(Replace(Str," & Chr(34) & "," & Chr(34) & "," & Chr(34) & "." & Chr(34) & ")," & Chr(34) & "%g" & Chr(34) & ",&strtosngfloat);" & vbNewLine
    WriteInHead vbTab & "return strtosngfloat;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- StrToBool() function --- '
Public Sub Func_StrToBoolCore()
    WriteInHead vbNewLine & "// --------------------------- StrToBool() function" & vbNewLine
    WriteInHead "__inline BOOL StrToBool(char *);" & vbNewLine
    WriteInHead "__inline BOOL StrToBool(char *Str)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(stricmp(Str," & Chr(34) & "TRUE" & Chr(34) & ")==0) return TRUE;" & vbNewLine
    WriteInHead vbTab & "if(stricmp(Str," & Chr(34) & "FALSE" & Chr(34) & ")==0) return FALSE;" & vbNewLine
    WriteInHead vbTab & "return FALSE;" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- BoolToStr() function --- '
Public Sub Func_BoolToStrCore()
    WriteInHead vbNewLine & "// --------------------------- BoolToStr() function" & vbNewLine
    WriteInHead "__inline char *BoolToStr(BOOL);" & vbNewLine
    WriteInHead "__inline char *BoolToStr(BOOL Boolean)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(Boolean==TRUE) return " & Chr(34) & "True" & Chr(34) & ";" & vbNewLine
    WriteInHead vbTab & "return " & Chr(34) & "False" & Chr(34) & ";" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- BoolToStrNum() function --- '
Public Sub Func_BoolToStrNumCore()
    WriteInHead vbNewLine & "// --------------------------- BoolToStrNum() function" & vbNewLine
    WriteInHead "__inline char *BoolToStrNum(BOOL);" & vbNewLine
    WriteInHead "__inline char *BoolToStrNum(BOOL Boolean)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(Boolean==TRUE) return " & Chr(34) & "-1" & Chr(34) & ";" & vbNewLine
    WriteInHead vbTab & "return " & Chr(34) & "0" & Chr(34) & ";" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- LongToBool() function --- '
Public Sub Func_LongToBoolCore()
    WriteInHead vbNewLine & "// --------------------------- LongToBool() function" & vbNewLine
    WriteInHead "__inline BOOL LongToBool(DWORD);" & vbNewLine
    WriteInHead "__inline BOOL LongToBool(DWORD LongToConvert)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(LongToConvert==0) return(FALSE);" & vbNewLine
    WriteInHead vbTab & "return(TRUE);" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- DblToBool() function --- '
Public Sub Func_DblToBoolCore()
    WriteInHead vbNewLine & "// --------------------------- DblToBool() function" & vbNewLine
    WriteInHead "__inline BOOL DblToBool(double);" & vbNewLine
    WriteInHead "__inline BOOL DblToBool(double DblToConvert)" & vbNewLine
    WriteInHead "{" & vbNewLine
    WriteInHead vbTab & "if(DblToConvert==0.0) return(FALSE);" & vbNewLine
    WriteInHead vbTab & "return(TRUE);" & vbNewLine
    WriteInHead "}" & vbNewLine
End Sub

' --- SngToBool() function --- '
Public Sub Func_SngToBoolCore()