BOOL CADORecordset::Find(LPCTSTR lpFind, int nSearchDirection)
{
m_strFind = lpFind;
m_nSearchDirection = nSearchDirection;
ASSERT(!m_strFind.IsEmpty());
if(m_nSearchDirection == searchForward)
{
m_pRecordset->Find(_bstr_t(m_strFind), 0, adSearchForward, "");
if(!IsEof())
{
m_varBookFind = m_pRecordset->Bookmark;
return TRUE;
}
}
else if(m_nSearchDirection == searchBackward)
{
m_pRecordset->Find(_bstr_t(m_strFind), 0, adSearchBackward, "");
if(!IsBof())
{
m_varBookFind = m_pRecordset->Bookmark;
return TRUE;
}
}
else
{
TRACE("Unknown parameter. %d", nSearchDirection);
m_nSearchDirection = searchForward;
}
return FALSE;
}
BOOL CGuiRecordSet::Find(LPCTSTR Criteria , long SkipRecords ,
SearchDirectionEnum SearchDirection,_variant_t Start)
{
CString szCri=Criteria;
if (!szCri.IsEmpty())
m_Criteria=Criteria;
else
return FALSE;
try{
m_rs->Find(_bstr_t(Criteria),SkipRecords,SearchDirection,Start);
if (SearchDirection ==adSearchForward)
{
if (!IsEof())
{
vtPointer= m_rs->Bookmark;
return TRUE;
}
}else if (SearchDirection ==adSearchBackward)
{
if (!IsBof())
{
vtPointer= m_rs->Bookmark;
return TRUE;
}
}else return FALSE;
}catch(_com_error &e)
{
GetError(e);
return FALSE;
}
return FALSE;
}
BOOL CADORecordset::FindNext()
{
if(m_nSearchDirection == searchForward)
{
m_pRecordset->Find(_bstr_t(m_strFind), 1, adSearchForward, m_varBookFind);
if(!IsEof())
{
m_varBookFind = m_pRecordset->Bookmark;
return TRUE;
}
}
else
{
m_pRecordset->Find(_bstr_t(m_strFind), 1, adSearchBackward, m_varBookFind);
if(!IsBof())
{
m_varBookFind = m_pRecordset->Bookmark;
return TRUE;
}
}
return FALSE;
}
TLxSym TILx::GetSym(const TFSet& Expect){
CmtStr.Clr();
if (!PrevSymStStack.Empty()){
// symbols already on the stack
PrevSymStStack.Top().Restore(*this); PrevSymStStack.Pop();
} else
if (Expect.In(syLn)){
// symbol is the whole line string
if (Ch==TCh::EofCh){
Sym=syEof;
} else {
Str.Clr();
if (IsBof()){GetCh();}
while (!ChDef->IsTerm(Ch)){Str.AddCh(Ch); GetCh();}
bool _IsRetEoln=IsRetEoln; IsRetEoln=true;
GetSym(TFSet()|syEoln|syEof); Sym=syLn;
IsRetEoln=_IsRetEoln;
}
} else
if (IsTabSep){
// symbol is between tab characters
if (IsBof()){GetCh();}
if (Ch==TCh::TabCh){ // tab character
Sym=syTab; GetCh();
} else
if (ChDef->IsTerm(Ch)){ // eoln & eof characters
bool _IsRetEoln=IsRetEoln; IsRetEoln=true; IsTabSep=false;
GetSym(TFSet()|syEoln|syEof);
IsRetEoln=_IsRetEoln; IsTabSep=true;
} else {
Str.Clr();
while ((!ChDef->IsTerm(Ch))&&(Ch!=TCh::TabCh)){
Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh();}
Sym=syStr; QuoteP=false;
}
} else {
// usual symbol
while (ChDef->IsSpace(Ch)){GetCh();}
SymLnN=LnN; SymLnChN=LnChN; SymChN=ChN;
if (ChDef->IsAlpha(Ch)){
if (IsUniStr){Sym=syStr;} else {Sym=syIdStr;}
Str.Clr(); UcStr.Clr(); QuoteP=false;
do {Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch));}
while (ChDef->IsAlNum(GetCh()));
if (!RwStrH.Empty()){
TStr RwStr=Str; if (!IsCsSens){RwStr=UcStr;}
int SymKeyId=RwStrH.GetKeyId(RwStr);
if (SymKeyId!=-1){Sym=TLxSym(int(RwStrH[SymKeyId]));}
}
if (Expect.In(syBool)){
Sym=syBool; IAssert(TBool::IsValStr(Str));
Bool=TBool::GetValFromStr(Str);
}
} else
if ((Ch=='"')||(Ch=='\'')){
if (IsUniStr){Sym=syStr;} else {Sym=syQStr;}
Str.Clr(); UcStr.Clr(); QuoteP=true; QuoteCh=Ch;
GetCh();
forever{
while ((Ch!=QuoteCh)&&(Ch!='\\')&&(Ch!=TCh::EofCh)){
Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh();}
if (Ch==TCh::EofCh){
Sym=syUndef; break;
} else if (Ch==QuoteCh){
GetCh(); break;
} else {
GetCh();
switch (Ch){
case '"': Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case '\\': Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case '\'': Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case '/': Str.AddCh(Ch); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 'b': Str.AddCh('\b'); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 'f': Str.AddCh('\f'); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 'n': Str.AddCh('\n'); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 'r': Str.AddCh('\r'); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 't': Str.AddCh('\t'); UcStr.AddCh(ChDef->GetUc(Ch)); GetCh(); break;
case 'u': {
// unicode character, represented using 4 hexadecimal digits
GetCh(); EAssertR(TCh::IsHex(Ch), "Invalid hexadecimal digit in unicode escape");
int UChCd = TCh::GetHex(Ch);
GetCh(); EAssertR(TCh::IsHex(Ch), "Invalid hexadecimal digit in unicode escape");
UChCd = 16 * UChCd + TCh::GetHex(Ch);
GetCh(); EAssertR(TCh::IsHex(Ch), "Invalid hexadecimal digit in unicode escape");
UChCd = 16 * UChCd + TCh::GetHex(Ch);
GetCh(); EAssertR(TCh::IsHex(Ch), "Invalid hexadecimal digit in unicode escape");
UChCd = 16 * UChCd + TCh::GetHex(Ch);
// get as UTF8 encoded characters
TUnicode::EncodeUtf8(UChCd, Str);
TUnicode::EncodeUtf8(UChCd, UcStr); }
GetCh(); break;
default: Sym=syUndef; break;
}
if (Sym==syUndef){
throw PExcept(new TExcept("Invalid Escape Sequence in Quoted String"));}
}
}
} else
if ((ChDef->IsNum(Ch))||(IsSigNum&&((Ch=='+')||(Ch=='-')))){
Str.Clr(); bool IntP=true;
do {Str.AddCh(Ch);} while (ChDef->IsNum(GetCh()));
if (Expect.In(syFlt)){
if (Ch=='.'){
Str.AddCh(Ch); IntP=false;
while (ChDef->IsNum(GetCh())){Str.AddCh(Ch);}
}
if ((Ch=='e')||(Ch=='E')){
Str.AddCh(Ch); GetCh(); IntP=false;
if ((Ch=='+')||(Ch=='-')){Str.AddCh(Ch); GetCh();}
while (ChDef->IsNum(Ch)){Str.AddCh(Ch); GetCh();}
}
}
UcStr=Str;
if (IntP&&(Expect.In(syInt))){
Sym=syInt; Int=atoi(Str.CStr());
} else {
Sym=syFlt; Flt=atof(Str.CStr());
}
} else
if ((Ch==TCh::CrCh)||(Ch==TCh::LfCh)){
Sym=syEoln;
if (Ch==TCh::CrCh){if (GetCh()==TCh::LfCh){GetCh();}} else
if (Ch==TCh::LfCh){if (GetCh()==TCh::CrCh){GetCh();}}
LnN++; LnChN=0; if (!IsRetEoln){GetSym(Expect);}
} else
if (Ch=='/'){
GetCh();
if ((IsCmtAlw)&&(Ch=='/')){
TChA _CmtStr;
do {_CmtStr+=GetCh();} while (!ChDef->IsTerm(Ch));
_CmtStr.Pop(); _CmtStr.Trunc();
if (Ch==TCh::CrCh){
if (GetCh()==TCh::LfCh){GetCh();}
} else
if (Ch==TCh::LfCh){
if (GetCh()==TCh::CrCh){GetCh();}
}
if (IsRetEoln){Sym=syEoln;} else {GetSym(Expect);}
CmtStr=_CmtStr;
} else
if (Ch=='*'){
TChA _CmtStr;
do {
while (GetCh()!='*'){_CmtStr+=Ch;}
_CmtStr+=GetCh();
} while (Ch!='/');
_CmtStr.Pop(); _CmtStr.Pop(); _CmtStr.Trunc();
GetCh(); GetSym(Expect);
CmtStr=_CmtStr;
} else {
Sym=sySlash;
}
} else
if (Ch==TCh::EofCh){
Sym=syEof;
} else {
switch (Ch){
case '.':
if (GetCh()=='.'){Sym=syDPeriod; GetCh();}
else {Sym=syPeriod;} break;
case ',': Sym=syComma; GetCh(); break;
case ':':
if (GetCh()==':'){Sym=syDColon; GetCh();}
else {Sym=syColon;} break;
case ';': Sym=sySemicolon; GetCh(); break;
case '+': Sym=syPlus; GetCh(); break;
case '-': Sym=syMinus; GetCh(); break;
case '*': Sym=syAsterisk; GetCh(); break;
case '/': Sym=sySlash; GetCh(); break;
case '%': Sym=syPercent; GetCh(); break;
case '!': Sym=syExclamation; GetCh(); break;
case '|': Sym=syVBar; GetCh(); break;
case '&': Sym=syAmpersand; GetCh(); break;
case '=': Sym=syEq; GetCh(); break;
case '<':
GetCh();
if (Ch=='='){Sym=syLEq; GetCh();}
else if (Ch=='>'){Sym=syNEq; GetCh();}
else {Sym=syLss;} break;
case '>':
if (GetCh()=='='){Sym=syGEq; GetCh();}
else {Sym=syGtr;} break;
case '?': Sym=syQuestion; GetCh(); break;
case '#':
if (IsCmtAlw){
TChA _CmtStr;
do {_CmtStr+=GetCh();} while (!ChDef->IsTerm(Ch));
_CmtStr.Pop(); _CmtStr.Trunc();
if (Ch==TCh::CrCh){
if (GetCh()==TCh::LfCh){GetCh();}
} else
if (Ch==TCh::LfCh){
if (GetCh()==TCh::CrCh){GetCh();}
}
if (IsRetEoln){Sym=syEoln;} else {GetSym(Expect);}
CmtStr=_CmtStr;
} else {
Sym=syHash; GetCh();
}
break;
case '(': Sym=syLParen; GetCh(); break;
case ')': Sym=syRParen; GetCh(); break;
case '[': Sym=syLBracket; GetCh(); break;
case ']': Sym=syRBracket; GetCh(); break;
case '{': Sym=syLBrace; GetCh(); break;
case '}': Sym=syRBrace; GetCh(); break;
default: Sym=syUndef; GetCh(); break;
}
}
}
