?? modoutput.bas
字號:
WriteInHead vbNewLine & "// --------------------------- SngToBool() function" & vbNewLine
WriteInHead "__inline BOOL SngToBool(float);" & vbNewLine
WriteInHead "__inline BOOL SngToBool(float SngToConvert)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "if(SngToConvert==0.0) return(FALSE);" & vbNewLine
WriteInHead vbTab & "return(TRUE);" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Instr() function --- '
Public Sub Func_InStrCore()
WriteInHead vbNewLine & "// --------------------------- InStr() function" & vbNewLine
WriteInHead "int InStr(int,char *MainString,char *SubString=0,int=VbCompareMethod_vbBinaryCompare);" & vbNewLine
WriteInHead "int InStr(int SStart,char *MainString,char *SubString,int Search)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "char *InstrMainString;" & vbNewLine
WriteInHead vbTab & "char *InstrSubString;" & vbNewLine
WriteInHead vbTab & "DWORD i=0;" & vbNewLine
WriteInHead vbTab & "DWORD MainStringLen;" & vbNewLine
WriteInHead vbTab & "DWORD SubStringLen=0;" & vbNewLine
WriteInHead vbTab & "DWORD FirstChar=0;" & vbNewLine
WriteInHead vbTab & "BOOL FoundFirstChar=FALSE;" & vbNewLine
WriteInHead vbTab & "DWORD PosInSubString=0;" & vbNewLine
WriteInHead vbTab & "DWORD FoundStart=0;" & vbNewLine
WriteInHead vbTab & "DWORD SaveFoundStart=0;" & vbNewLine
WriteInHead vbTab & "DWORD CharChecked=0;" & vbNewLine
WriteInHead vbTab & "MainStringLen=strlen(MainString);" & vbNewLine
WriteInHead vbTab & "if (SubString==0)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "if (MainStringLen==0) return 1;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "return 0;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "if (strlen(SubString)==0)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "if (MainStringLen==0) return 0;" & vbNewLine
WriteInHead vbTab & vbTab & "return(SStart);" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "if (SStart<=0) return 0;" & vbNewLine
WriteInHead vbTab & "if (SStart > MainStringLen) return 0;" & vbNewLine
WriteInHead vbTab & "InstrMainString=MainString;" & vbNewLine
WriteInHead vbTab & "InstrSubString=SubString;" & vbNewLine
WriteInHead vbTab & "if (Search==VbCompareMethod_vbTextCompare)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "InstrMainString=UCase(MainString);" & vbNewLine
WriteInHead vbTab & vbTab & "InstrSubString=UCase(SubString);" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "FirstChar=InstrSubString[0];" & vbNewLine
WriteInHead vbTab & "MainStringLen=strlen(InstrMainString);" & vbNewLine
WriteInHead vbTab & "SubStringLen=strlen(InstrSubString);" & vbNewLine
WriteInHead vbTab & "FoundStart=SStart;" & vbNewLine
WriteInHead "SearchFirstChar:" & vbNewLine
WriteInHead vbTab & "FoundFirstChar=FALSE;" & vbNewLine
WriteInHead vbTab & "PosInSubString=1;" & vbNewLine
WriteInHead vbTab & "for(i=FoundStart;i<=MainStringLen;i++)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "if(InstrMainString[i-1]==FirstChar)" & vbNewLine
WriteInHead vbTab & vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "FoundFirstChar=TRUE;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "break;" & vbNewLine
WriteInHead vbTab & vbTab & "}" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "if(FoundFirstChar==FALSE)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "return(0);" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "FoundStart=i;" & vbNewLine
WriteInHead vbTab & "SaveFoundStart=FoundStart;" & vbNewLine
WriteInHead vbTab & "FoundFirstChar=FALSE;" & vbNewLine
WriteInHead vbTab & "CharChecked=0;" & vbNewLine
WriteInHead vbTab & "while(FoundStart <= MainStringLen)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "if(PosInSubString>SubStringLen)" & vbNewLine
WriteInHead vbTab & vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "break;" & vbNewLine
WriteInHead vbTab & vbTab & "}" & vbNewLine
WriteInHead vbTab & vbTab & "CharChecked=CharChecked+1;" & vbNewLine
WriteInHead vbTab & vbTab & "if(InstrMainString[FoundStart-1]!=InstrSubString[PosInSubString-1])" & vbNewLine
WriteInHead vbTab & vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "FoundFirstChar=TRUE;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "break;" & vbNewLine
WriteInHead vbTab & vbTab & "}" & vbNewLine
WriteInHead vbTab & vbTab & "PosInSubString++;" & vbNewLine
WriteInHead vbTab & vbTab & "FoundStart++;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "if(FoundFirstChar==TRUE)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "FoundStart=SaveFoundStart+1;" & vbNewLine
WriteInHead vbTab & vbTab & "if(FoundStart>=MainStringLen)" & vbNewLine
WriteInHead vbTab & vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "return(0);" & vbNewLine
WriteInHead vbTab & vbTab & "}" & vbNewLine
WriteInHead vbTab & vbTab & "goto SearchFirstChar;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "if(CharChecked<SubStringLen)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "SaveFoundStart=0;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "return(SaveFoundStart);" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- StrComp() function --- '
Public Sub Func_StrCompCore()
WriteInHead vbNewLine & "// --------------------------- StrComp() function" & vbNewLine
WriteInHead "int StrComp(char *,char *,int=-1);" & vbNewLine
WriteInHead "int StrComp(char *String1,char *String2,int Search)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "if(Search==-1) Search=VBCompareBase;" & vbNewLine
WriteInHead vbTab & "if(Search==VbCompareMethod_vbBinaryCompare)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "return strcmp(String1,String2);" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "else" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "return stricmp(String1,String2);" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Hex() function --- '
Public Sub Func_HexCore()
WriteInHead vbNewLine & "// --------------------------- Hex() function" & vbNewLine
WriteInHead "char *Hex(DWORD);" & vbNewLine
WriteInHead "char *Hex(DWORD d)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "char *HexStrTmp;" & vbNewLine
WriteInHead vbTab & "HexStrTmp=garbagestring(30);" & vbNewLine
WriteInHead vbTab & "sprintf(HexStrTmp," & Chr(34) & "%X" & Chr(34) & ",d);" & vbNewLine
WriteInHead vbTab & "return HexStrTmp;" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Oct() function --- '
Public Sub Func_OctCore()
WriteInHead vbNewLine & "// --------------------------- Oct() function" & vbNewLine
WriteInHead "char *Oct(DWORD);" & vbNewLine
WriteInHead "char *Oct(DWORD d)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "char *OctStrTmp;" & vbNewLine
WriteInHead vbTab & "OctStrTmp=garbagestring(30);" & vbNewLine
WriteInHead vbTab & "sprintf(OctStrTmp," & Chr(34) & "%o" & Chr(34) & ",d);" & vbNewLine
WriteInHead vbTab & "return OctStrTmp;" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Replace() function --- '
Public Sub Func_ReplaceCore()
WriteInHead vbNewLine & "// --------------------------- Replace() function" & vbNewLine
WriteInHead "char *Replace(char *,char *,char *,int=1,int=-1,int=VbCompareMethod_vbBinaryCompare);" & vbNewLine
WriteInHead "char *Replace(char *MainString,char *StringToFind,char *StringToReplace,int ReplaceStart,int RepCount,int CompareType)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "char *ReturnString;" & vbNewLine
WriteInHead vbTab & "int OldPosInString;" & vbNewLine
WriteInHead vbTab & "int PosInString;" & vbNewLine
WriteInHead vbTab & "int LenToFind;" & vbNewLine
WriteInHead vbTab & "int LenToReplace;" & vbNewLine
WriteInHead vbTab & "char *TmpString;" & vbNewLine
WriteInHead vbTab & "int NbrToReplace;" & vbNewLine
WriteInHead vbTab & "char *SunMainString;" & vbNewLine
WriteInHead vbTab & "int SunMainStringLen;" & vbNewLine
WriteInHead vbTab & "char *RetReplaceString;" & vbNewLine
WriteInHead vbTab & "NbrToReplace=RepCount;" & vbNewLine
WriteInHead vbTab & "LenToFind = strlen(StringToFind);" & vbNewLine
WriteInHead vbTab & "if (LenToFind!=0)" & vbNewLine
WriteInHead vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & "LenToReplace = strlen(StringToReplace);" & vbNewLine
WriteInHead vbTab & vbTab & "if(ReplaceStart<=0) ReplaceStart = 1;" & vbNewLine
WriteInHead vbTab & vbTab & "SunMainString = Mid(MainString,ReplaceStart);" & vbNewLine
WriteInHead vbTab & vbTab & "PosInString = 1;" & vbNewLine
WriteInHead vbTab & vbTab & "OldPosInString = 1;" & vbNewLine
WriteInHead "ReplaceAll:" & vbNewLine
WriteInHead vbTab & vbTab & "if(NbrToReplace==0) goto StopReplace;" & vbNewLine
WriteInHead vbTab & vbTab & "PosInString = InStr(PosInString, SunMainString, StringToFind, CompareType);" & vbNewLine
WriteInHead vbTab & vbTab & "if(PosInString!=0)" & vbNewLine
WriteInHead vbTab & vbTab & "{" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "TmpString=Left(SunMainString,PosInString - 1);" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "TmpString = TmpString >>(VBStr) StringToReplace;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "TmpString = TmpString >>(VBStr) Mid(SunMainString, PosInString + LenToFind);" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "PosInString = PosInString + LenToReplace;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "OldPosInString = PosInString;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "if(NbrToReplace!=-1) NbrToReplace = NbrToReplace - 1;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "SunMainString = TmpString;" & vbNewLine
WriteInHead vbTab & vbTab & vbTab & "goto ReplaceAll;" & vbNewLine
WriteInHead vbTab & vbTab & "}" & vbNewLine
WriteInHead "StopReplace:" & vbNewLine
WriteInHead vbTab & vbTab & "SunMainStringLen=strlen(SunMainString);" & vbNewLine
WriteInHead vbTab & vbTab & "RetReplaceString=garbagestring(SunMainStringLen);" & vbNewLine
WriteInHead vbTab & vbTab & "strncpy(RetReplaceString,SunMainString,SunMainStringLen);" & vbNewLine
WriteInHead vbTab & vbTab & "ReturnString = RetReplaceString;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "else {" & vbNewLine
WriteInHead vbTab & vbTab & "ReturnString = MainString;" & vbNewLine
WriteInHead vbTab & "}" & vbNewLine
WriteInHead vbTab & "return ReturnString;" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Environ() function --- '
Public Sub Func_EnvironCore()
WriteInHead vbNewLine & "// --------------------------- Environ() function" & vbNewLine
WriteInHead "char *Environ(char *);" & vbNewLine
WriteInHead "char *Environ(char *EnvStr)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "char *EnvStrTmp;" & vbNewLine
WriteInHead vbTab & "EnvStrTmp=garbagestring(2048+1);" & vbNewLine
WriteInHead vbTab & "GetEnvironmentVariable(EnvStr,EnvStrTmp,2048);" & vbNewLine
WriteInHead vbTab & "return EnvStrTmp;" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- Command() function --- '
Public Sub Func_CommandCore()
WriteInHead vbNewLine & "// --------------------------- Command() function" & vbNewLine
WriteInHead "__inline char *Command();" & vbNewLine
WriteInHead "__inline char *Command()" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "return VBCommand;" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- QBColor() function --- '
Public Sub Func_QBColorCore()
WriteInHead vbNewLine & "// --------------------------- QBColor() function" & vbNewLine
WriteInHead "__inline DWORD QBColor(int);" & vbNewLine
WriteInHead "__inline DWORD QBColor(int ColorIndex)" & vbNewLine
WriteInHead "{" & vbNewLine
WriteInHead vbTab & "return vbQBColorTable[ColorIndex];" & vbNewLine
WriteInHead "}" & vbNewLine
End Sub
' --- StrReverse() function --- '
Public Sub Func_StrReverseCore()
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -