Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Запись из стрингида в фаил и обратная загрузка!

Автор: XPyCT 26.6.2008, 09:59

Добрый день! как записать со стрингрида в фаил  с использованием делемитедтекст вроде сделано! вот результат сохранения : Код ,mam,pap ,m200,p300 вот сам код! Код int f; if ( FileExists("tabl.grd") ) f = FileOpen("tabl.grd",fmOpenWrite);  else  f=FileCreate("tabl.grd");  if(f!=-1)    {      // Сохранить таблицу в фаиле for (int i = 1; i < StringGrid1->RowCount; i++) { AnsiString st = StringGrid1->Rows[i]->DelimitedText +"\r\n"; FileWrite(f, st.c_str(), st.Length()); } FileClose(f);    } как это все обратно открыть и загнать в стрингрид! пример  из учебника культина! загон фаила обратно у него ну очень сложный для меня! мне там нифига не понятно! если кто знает как по проще это выразить помогите  пожалуйста

Автор: Palladin 26.6.2008, 10:04

Забей на это все Короче из стринггрида списываешь все в Memo потом Memo1->SaveToFile("путь.txt"); Потом при надобности загружаешь Memo1->LoadFromFile("путь к сохарненному фалу.txt"); и считываеш в стринггрид по своему условию P.S. Не бей, настроение хорошее просто

Автор: XPyCT 26.6.2008, 10:08

Цитата(Palladin @ 26.6.2008,  10:04) Забей на это все Короче из стринггрида списываешь все в Memo потом Memo1->SaveToFile("путь.txt"); Потом при надобности загружаешь Memo1->LoadFromFile("путь к сохарненному фалу.txt"); и считываеш в стринггрид по своему условию P.S. Не бей, настроение хорошее просто  таким образом я сохраняю уже давно! но это геморный способ! в смысле потом считывания инфы! добавьте меня в асю есть пару вопросов! к стати и по поводу вашего мануала нужно подправить кое где 222-271-997

Автор: Palladin 26.6.2008, 10:11

Я в асе не сижу, если что PM

Автор: mrbrooks 26.6.2008, 11:11

В чем проблема то? Циклами записываешь в файл - циклами считываешь из файла.

Автор: XPyCT 26.6.2008, 11:30

Цитата(mrbrooks @ 26.6.2008,  11:11) В чем проблема то? Циклами записываешь в файл - циклами считываешь из файла. Код Memo1->Clear(); int cCol, cRow; for(cRow=1; cRow<StringGrid1->RowCount; cRow++) for(cCol=1; cCol<StringGrid1->ColCount; cCol++) Memo1->Lines->Add(StringGrid1->Cells[cCol][cRow]); Memo1->Lines->SaveToFile("Files/base.txt"); И так здесь все ясно сохраняем в фаил по событию клик на кнопке Код int cCol, cRow,cLines=0; Memo1->Clear(); Memo1->LoadFromFile("Files/base.txt"); for(cRow=1; cRow<StringGrid1->RowCount; cRow++) for(cCol=1; cCol<StringGrid1->ColCount; cCol++) {   StringGrid1->Cells[cCol][cRow]=Memo1->Lines->Strings[cLines]   cLines++; } Здесь загрузил обратно по клику на второи кнопке!  пс: это я все давно знаю! меня  интересует как сохранить целый ряд разделенный делимитером  а потом обратно загрузить потому как этот код сохранит все  в один столбец!  а делиметр упорядочит сохранение по строкам

Автор: mrbrooks 26.6.2008, 13:42

Дык я ж тебе и говорю используй вложенные циклы. Вот пример. Наваял на спех ибо работа имхо работа. Код //--------------------------------------------------------------------------- __fastcall TMForm::TMForm(TComponent* Owner)         : TForm(Owner) { Position = poDesktopCenter; } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnRunClick(TObject *Sender) // здесь я заполняю сетку { int index = 0; for(int i = 1; i<MStrGrid->ColCount;i++)         for(int j = 1; j<MStrGrid->RowCount;j++)         {                         MStrGrid->Cells[i][j] = index;                         index++;         } } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnSaveClick(TObject *Sender) //здесь я сохраняю инфу в файл и чищу сетку { TStringList *list = new TStringList; String str = ""; for(int i = 1; i<MStrGrid->RowCount;i++) {         for(int j = 1; j<MStrGrid->ColCount;j++)         {         str += MStrGrid->Cells[j][i] + ":";         MStrGrid->Cells[j][i] = "";         }         list->Add(str);         str = ""; } list->SaveToFile("res.txt"); MListBox->Items->LoadFromFile("res.txt"); delete list; } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnLoadClick(TObject *Sender) //здесь собственно загружаю из файла в сетку { TStringList *list = new TStringList; list->LoadFromFile("res.txt"); MListBox->Items->AddStrings(list); int counter = 0; for (int y = 1; y < list->Strings[0].Length()+1; y++)                                 if(list->Strings[0][y] == ':') counter++; for (int i = 0; i < list->Count; i++)                     ParsString(list->Strings[i],counter,i+1); delete list; } //--------------------------------------------------------------------------- void __fastcall TMForm::ParsString(String str, int count, int pos) //функция парсинга строки { String tmp = "";        for (int j = 1; j <= count; j++)         {                 int i = str.Pos(":");                 tmp = str.SubString(1,i-1);                 str = str.Delete(1,i);                 MStrGrid->Cells[j][pos] = tmp;         } } //--------------------------------------------------------------------------- Разделитель можешь оставить либо как я - двуеточие - либо пробел - либо чего хочешь. Не забудь естественно это учесть при парсинге. Так же перспективно использовать функцию StringReplace от Бормана для формирования файла с одним значением в строке - и далее ловкость рук. Чего непонятно спрашивай.

Автор: XPyCT 27.6.2008, 15:27

Цитата(mrbrooks @ 26.6.2008,  13:42) Дык я ж тебе и говорю используй вложенные циклы. Вот пример. Наваял на спех ибо работа имхо работа. Код //--------------------------------------------------------------------------- __fastcall TMForm::TMForm(TComponent* Owner)         : TForm(Owner) { Position = poDesktopCenter; } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnRunClick(TObject *Sender) // здесь я заполняю сетку { int index = 0; for(int i = 1; i<MStrGrid->ColCount;i++)         for(int j = 1; j<MStrGrid->RowCount;j++)         {                         MStrGrid->Cells[i][j] = index;                         index++;         } } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnSaveClick(TObject *Sender) //здесь я сохраняю инфу в файл и чищу сетку { TStringList *list = new TStringList; String str = ""; for(int i = 1; i<MStrGrid->RowCount;i++) {         for(int j = 1; j<MStrGrid->ColCount;j++)         {         str += MStrGrid->Cells[j][i] + ":";         MStrGrid->Cells[j][i] = "";         }         list->Add(str);         str = ""; } list->SaveToFile("res.txt"); MListBox->Items->LoadFromFile("res.txt"); delete list; } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnLoadClick(TObject *Sender) //здесь собственно загружаю из файла в сетку { TStringList *list = new TStringList; list->LoadFromFile("res.txt"); MListBox->Items->AddStrings(list); int counter = 0; for (int y = 1; y < list->Strings[0].Length()+1; y++)                                 if(list->Strings[0][y] == ':') counter++; for (int i = 0; i < list->Count; i++)                     ParsString(list->Strings[i],counter,i+1); delete list; } //--------------------------------------------------------------------------- void __fastcall TMForm::ParsString(String str, int count, int pos) //функция парсинга строки { String tmp = "";        for (int j = 1; j <= count; j++)         {                 int i = str.Pos(":");                 tmp = str.SubString(1,i-1);                 str = str.Delete(1,i);                 MStrGrid->Cells[j][pos] = tmp;         } } //--------------------------------------------------------------------------- Разделитель можешь оставить либо как я - двуеточие - либо пробел - либо чего хочешь. Не забудь естественно это учесть при парсинге. Так же перспективно использовать функцию StringReplace от Бормана для формирования файла с одним значением в строке - и далее ловкость рук. Чего непонятно спрашивай. Спасибо вам за дельный ответ! сейчас буду пробовать

Автор: Escort 28.6.2008, 09:55

Люди!!!! Призываю к профессиональному программированию!!!! (...вы же не дельфийсты )) Экономте память... Код void SaveGrid { TextFile f; int x,y;   assignfile(f, 'Filename');   rewrite(f);   writeln(f, stringgrid->colcount);   writeln(f, stringgrid->rowcount);   for (x = 0, x<=stringgrid->colcount - 1,x++)     for (y = 0 , stringgrid->rowcount - 1,y++)       writeln(F, stringgrid->cells[x][ y]);   closefile(f); } Добавлено через 1 минуту и 13 секунд Код procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);  var    f:          TextFile;    iTmp, i, k: Integer;    strTemp:    String;  begin    AssignFile(f, FileName);    Reset(f);    with StringGrid do    begin     Readln(f, iTmp);      ColCount := iTmp;     Readln(f, iTmp);      RowCount := iTmp;     for i := 0 to ColCount - 1 do        for k := 0 to RowCount - 1 do        begin          Readln(f, strTemp);          Cells[i, k] := strTemp;        end;    end;    CloseFile(f);  end; Добавлено через 2 минуты и 33 секунды PS против Delphi ничего против не имею. Просто новички на Delphi расставив на форме 2 кнопки считают себя программистами ))

Автор: Riply 28.6.2008, 10:52

Вместо задавания кучи вопросов на форуме, решила поробовать сохранить и прочитать. Очень надеюсь, что кому-нибудь будет не лень потыкать меня носом в ошибки  Код #include <vcl.h> #pragma hdrstop #include "Main.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner)     : TForm(Owner) {         int aColCount = 8;         int aRowCount = 64;         if (grdTest->ColCount != aColCount) grdTest->ColCount = aColCount;         if (grdTest->RowCount != aRowCount) grdTest->RowCount = aRowCount;         for (int i = 0; i != aColCount; ++i)             {                 for (int j = 0; j != aRowCount; ++j)                     {                             grdTest->Cells[i][j] = "C: " + IntToStr(i) + "  R: " + IntToStr(j);                     };             }; } const     LenOffset = sizeof(int); void * PByte_MoveData(const void * pBuffer, const void * pData, const int cbData) {         memmove((void *)pBuffer, &cbData, LenOffset);         if (cbData) memmove((void *)((unsigned long)pBuffer + LenOffset), pData, cbData);         return (void *)((unsigned long)pBuffer + cbData + LenOffset); }; void * PByte_MoveString(const void * pBuffer, const AnsiString aStr) {     return PByte_MoveData(pBuffer, aStr.data(), aStr.Length()); }; AnsiString PByte_ReadString(void ** ppBuffer) {     void * pTmp = * ppBuffer;     int aLen = *(int *)pTmp;     pTmp = (void *)((unsigned long)pTmp + LenOffset);     AnsiString aStr;     aStr.SetLength(aLen);     if (aLen) memmove((void *)aStr.data(), pTmp, aLen);     * ppBuffer = (void *)((unsigned long)pTmp + aLen);     return aStr; }; int AnsiDumpSize(const AnsiString aStr) {     return aStr.Length() + LenOffset; }; void GreedToPByte(TStringGrid * Greed, void ** ppBuffer, PULONG cbBuffer) {         ULONG DumpSize = LenOffset + LenOffset;         for (int i = 0; i != Greed->ColCount; ++i)             {                 for (int j = 0; j != Greed->RowCount; ++j)                     {                             DumpSize += AnsiDumpSize(Greed->Cells[i][j]);                     };             };         if (*cbBuffer != DumpSize)             {                 * ppBuffer = realloc(* ppBuffer, DumpSize);                 *cbBuffer = DumpSize;             }         void * pTmp = * ppBuffer;         int aCount = Greed->ColCount;         memmove((void *)pTmp, &aCount, LenOffset);         pTmp = (void *)((unsigned long)pTmp + LenOffset);         aCount = Greed->RowCount;         memmove((void *)pTmp, &aCount, LenOffset);         pTmp = (void *)((unsigned long)pTmp + LenOffset);                  for (int i = 0; i != Greed->ColCount; ++i)             {                 for (int j = 0; j != Greed->RowCount; ++j)                     {                         pTmp =    PByte_MoveString(pTmp, Greed->Cells[i][j]);                     };             }; } void GreedFromPByte(TStringGrid * Greed, void * pBuffer, ULONG cbBuffer) {         void * pTmp = pBuffer;         int aCount = *(int *)pTmp;         pTmp = (void *)((unsigned long)pTmp + LenOffset);         if (Greed->ColCount != aCount) Greed->ColCount = aCount;   aCount = *(int *)pTmp;         pTmp = (void *)((unsigned long)pTmp + LenOffset);         if (Greed->RowCount != aCount) Greed->RowCount = aCount;         for (int i = 0; i != Greed->ColCount; ++i)             {                 for (int j = 0; j != Greed->RowCount; ++j)                     {                             Greed->Cells[i][j] = PByte_ReadString(&pTmp);                     };             }; } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton2Click(TObject *Sender) {     void * pBuffer = NULL;     void * pTmp = NULL;     ULONG  cbBuffer = 0;     GreedToPByte(grdTest, &pBuffer, &cbBuffer);     grdTest->ColCount = 1;     grdTest->RowCount = 1;     Application->ProcessMessages();     ShowMessage("Dump Size: " + IntToStr(cbBuffer));     pTmp = pBuffer;     GreedFromPByte(grdTest, pTmp, cbBuffer);     free(pBuffer); }

Автор: mrbrooks 28.6.2008, 13:23

Escort че ее экономить? Тем более что она динамическая. Использовал - освободил.  Чай не гигабайты пережевываем. Если уж работать с файлом на прямую чисто на Си тогда будет более гуманно использовать FILE *file а не TextFile f - это уже есть использование Дельфятинки. Уж если трястись над использованием памяти WinAPI в руки и  вперед. Будет тебе имхо экономия. Riply

Автор: Escort 28.6.2008, 17:59

mrbrooks!("Чай не гигабайты пережевываем") из-за таких программ обычно Винда и летит на...!!!!!!!

Автор: XPyCT 28.6.2008, 19:15

Цитата(Escort @ 28.6.2008,  17:59) mrbrooks!("Чай не гигабайты пережевываем") из-за таких программ обычно Винда и летит на...!!!!!!! молодой человек! вы первый пост читали? я не считаю себя суппер пуппер программистом - мне это и не надо! мне нужен был простои пример!  вот и все! пс:  спасибо за ответ! спс всем вот такой способ есть оцените! сохранение Код void __fastcall TForm1::saveClick(TObject *Sender) { TStringList *lst = new TStringList; AnsiString delimiter="|";   lst->Add(IntToStr(SG->RowCount) + delimiter); lst->Add(IntToStr(SG->ColCount) + delimiter);   for (int i=0;i<SG->RowCount;i++)         for (int j=0;j<SG->ColCount;j++)                 lst->Add(SG->Cells[j][i] + delimiter); lst->SaveToFile ("MyFile.txt"); delete lst;         } загрузка Код void __fastcall TForm1::loadClick(TObject *Sender) { TStringList *lst = new TStringList; lst->LoadFromFile ("MyFile.txt");   AnsiString delimiter="|"; AnsiString buff;   buff=lst->Text.SubString(1,AnsiPos(delimiter,lst->Text)-1); lst->Delete(0); SG->RowCount=StrToInt(buff);   buff=lst->Text.SubString(1,AnsiPos(delimiter,lst->Text)-1); lst->Delete(0); SG->ColCount=StrToInt(buff);   for (int i=0;i<SG->RowCount;i++) for (int j=0;j<SG->ColCount;j++)    {    buff="";    buff=lst->Text.SubString(1,AnsiPos(delimiter,lst->Text)-1);    lst->Delete(0);      SG->Cells[j][i] = buff;    } delete lst; } Автор  "moskk" что скажете?

Автор: mrbrooks 29.6.2008, 10:29

Escort Куда она летит. Хватит нести чушь. В эпоху C# и dot.net ты мне тут будешь лепить про нерацианальное использование памяти? Автор тебе уже написал свою точку зрения. Чего лезешь со своими оптимизациями туда куда не надо. Еще раз повторяю - хочешь быстроты и минимизации - забудь про VCL и фигач на WinAPI и не надо "ФАК МОЙ МОЗГ" XPyCT На мой взгляд не плохо имхо для начала. Ты по сути реализовал файловый ввод/вывод с помощью компонентов, а теперь попробуй то же самое только с использованием файлового ввода/вывода с помощью потоков в стиле C++. А то некоторые особо рьяные борцы за рационализм спать спокойно не будут.

Автор: XPyCT 29.6.2008, 15:32

Цитата(mrbrooks @ 29.6.2008,  10:29) Escort Куда она летит. Хватит нести чушь. В эпоху C# и dot.net ты мне тут будешь лепить про нерацианальное использование памяти? Автор тебе уже написал свою точку зрения. Чего лезешь со своими оптимизациями туда куда не надо. Еще раз повторяю - хочешь быстроты и минимизации - забудь про VCL и фигач на WinAPI и не надо "ФАК МОЙ МОЗГ" XPyCT На мой взгляд не плохо имхо для начала. Ты по сути реализовал файловый ввод/вывод с помощью компонентов, а теперь попробуй то же самое только с использованием файлового ввода/вывода с помощью потоков в стиле C++. А то некоторые особо рьяные борцы за рационализм спать спокойно не будут. mrbrooks! смотри вчера весь вечер ковырял голова квадратная! я не силен еще )) помоги плз смотрите мне нужно к примеру есть  2 поля и 3 записи Код ------------------ | Вася  | 200  | ------------------ | Вика | 300  | ------------------ | Петр | 700  | ------------------ после сохранения чтоб в файле выгледело  так Код 2| 3|   Вася  | 200  |  Вика | 300  |  Петр | 700  | соответсвенно потом и загруз потом его обратно!  просто не исключено что по фаилу до момента передачи его в стрингид нужно будет проводить поиск типа по выбору! плз оч надо

Автор: mrbrooks 30.6.2008, 09:13

Дык ведь все по аналогии. В данном примере использовал работу с файлом на прямую, без TStringList - а то критикуют тут нас с тобой рационалисты    Код void __fastcall TMForm::BtnRunNewClick(TObject *Sender) //собственно заполняю сетку { MStrGrid->ColCount = 3; MStrGrid->RowCount = 4; MStrGrid->Cells[1][1] = "Вася"; MStrGrid->Cells[2][1] = 200; MStrGrid->Cells[1][2] = "Вика"; MStrGrid->Cells[2][2] = 300; MStrGrid->Cells[1][3] = "Петр"; MStrGrid->Cells[2][3] = 700; } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnSaveNewClick(TObject *Sender) //сохраняю в файл { FILE *f; f = fopen("mazafaka.txt","w+");  fprintf(f,"%d\n%d\n",MStrGrid->ColCount,MStrGrid->RowCount);  for (int i = 1; i<MStrGrid->RowCount;i++)  {         for (int j = 1; j < MStrGrid->ColCount; j++)                 {                 fprintf(f,"%s ",MStrGrid->Cells[j][i].c_str());                 MStrGrid->Cells[j][i] = "";                 }         fprintf(f,"\n");  } fclose(f); MListBox->Items->LoadFromFile("mazafaka.txt");   //проверка чего в файле  если влом смотреть сам файл (для нерационалистов) } //--------------------------------------------------------------------------- void __fastcall TMForm::BtnLoadNewClick(TObject *Sender) // загрузка в сетку { FILE *f; f = fopen("mazafaka.txt","r+"); int row, col; char buf[100]; fscanf(f,"%d\n%d\n",&col, &row);  for (int i = 1; i<row;i++)  {         for (int j = 1; j < col; j++)         {          fscanf(f,"%s",buf);          MStrGrid->Cells[j][i] = String(buf);         }         fscanf(f,"\n");  } fclose(f); } //--------------------------------------------------------------------------- Не скажу что данный пример оптимален по работе с файлом - но при известной его структуре пойдет. Иначе парсить строку. Но есть одно замечание имхо. При таких данных самое гламурное хранить их уже в БД.

Автор: XPyCT 30.6.2008, 11:44

спасибо вам огромное! пошел колдовать

Автор: Riply 1.7.2008, 15:16

В дополнение к коду, который я здесь выкладывала, попробовала написать еще две процедуры: сохранение "грида" в файл и загруза. Код unsigned long GreedToFile(const wchar_t * pFileName,  TStringGrid * Greed) {         HANDLE hFileObj = CreateFileW(pFileName, GENERIC_WRITE, FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);         if (hFileObj != INVALID_HANDLE_VALUE)         __try                 {    void * pBuffer = NULL;                         unsigned long cbBuffer = 0;                         __try                                 {    GreedToPByte(Greed, &pBuffer, &cbBuffer);                                         unsigned long cbBytesWritten = 0;                                         if (WriteFile(hFileObj, pBuffer, cbBuffer, &cbBytesWritten, NULL))                                         if (SetEndOfFile(hFileObj)) return ERROR_SUCCESS;                                 }                         __finally                                 { if (pBuffer) free(pBuffer);                                 };                 }         __finally                 {    CloseHandle(hFileObj);                 }  return GetLastError(); }; unsigned long GreedFromFile(const wchar_t * pFileName,  const int RestrictSize, TStringGrid * Greed) {   unsigned long RetError = ERROR_SUCCESS;         HANDLE hFileObj = CreateFileW(pFileName, GENERIC_READ, FILE_SHARE_READ, NULL,                                                                                                                                 OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);         if (hFileObj != INVALID_HANDLE_VALUE)             __try                     {    LARGE_INTEGER cbFileSize;                             if (GetFileSizeEx(hFileObj, &cbFileSize))                                 if ((cbFileSize.QuadPart > LenOffset - 1) & (cbFileSize.QuadPart < RestrictSize))                                     { unsigned long cbBuffer = cbFileSize.QuadPart;                                             void * pBuffer = malloc(cbBuffer);                                             if (pBuffer)                                                 __try                                                         { unsigned long cbBytesWritten = 0;                                                                 if (ReadFile(hFileObj, pBuffer, cbBuffer, &cbBytesWritten, NULL))                                                                     if (cbBuffer == cbBytesWritten)                                                                         { GreedFromPByte(Greed, pBuffer, cbBuffer);                                                                                 return ERROR_SUCCESS;                                                                         }                                                                     else RetError = ERROR_BAD_FORMAT;                                                         }                                                 __finally                                                         { free(pBuffer);                                                         }                                             else RetError = GetLastError();                                     }                                 else RetError = ERROR_BAD_FORMAT;                             else RetError = GetLastError();                     }             __finally                     { CloseHandle(hFileObj);                     }         else RetError = GetLastError();     return RetError; }; Как и раньше, буду благодарна за "тыканье меня носом в ошибки"   Добавлено через 2 минуты и 43 секунды P.S.  Почему код так "съезжает" ?   Как от этого избавиться ?

Автор: XPyCT 1.7.2008, 19:08

я бы тыкнул в ошибки но для меня пока это сложно! спс за ответы! огромное

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)