BCB6-kod za import tab delimited file
baza-InterBase
Naime sve na oko radi savrseno do dela kada treba da prebaci podatke u bazu :-(
int j =1, duzina;
AnsiString f, string="";
if (uvoz->Execute() )
{
f=uvoz->FileName;
memo->Lines->LoadFromFile(f);
//uvoz je TOpenDialog
//memo je TMemo
//Sve radi on click
}
for(int i=0; i<= memo->Lines->Count; i++){
duzina=memo->Lines->Strings[i].Length();
while (j <= duzina) {
if(memo->Lines->Strings[i].SubString(j,1) != '\t' ) {
string = string + memo->Lines->Strings[i].SubString(j,1);
}
else {
ShowMessage (string);
string="";
//ovo sve odradi bez problema i pokaze tacno polj koja mi trebaju-nastavaj izbaci gresku EConvertError with message ''' is not valid number
//dm->cdskasastavke->Append();
//dm->cdskasastavke->FieldValues["ARTIKAL_SIFRA"]= StrToInt(string="") ;
//dm->cdskasastavke->FieldValues["ID"] = 1;
//dm->cdskasastavke->FieldValues["VEZA"] = dm->cdskasastavke->RecordCount;
//dm->cdskasastavke->FieldValues["ARTIKAL_SIFRA"] = StrToInt(string="");
//dm->cdskasastavke->FieldValues["OPIS"] = StrToBool (string="") ;
//dm->cdskasastavke->FieldValues["CENAIZKASE"] = StrToFloat (string="");
//dm->cdskasastavke->FieldValues["KOLICINA"] = StrToFloat (string="");
//dm->cdskasastavke->Post();
}
j++;
}
j=1;
ShowMessage (string);
string="";
//takodje greska
//dm->cdskasastavke->Insert();
//dm->cdskasastavke->FieldValues["IZNOS"] = StrToFloat (string="");
//dm->cdskasastavke->Post();
}
}
EDIT: X Files : Molim Vas da zbog preglednosti, kod upisujete između tag-ova predviđenih za to:
[code]
int main ( int argc, char *argv[] )
{
// ...
return 0;
}
[/code]
[Ovu poruku je menjao X Files dana 10.04.2007. u 10:45 GMT+1]