|
1. 일단 올려주신 답변의 파일 형식은 탭구분 파일 같습니다. 이런 파일은 엑셀에서 읽으면 엑셀이 자동으로 나눠서 보여주기에 편하게 읽혀지지만 엑셀파일형식은 아닙니다.
★만약 엑셀파일이라면 OLE를 통하지 않고 ADO로 DB형식으로도 읽을 수 있습니다.
2. 이런 파일은 탭으로 구분하면 정확한데
1) 실제 탭문자를 파싱하시던지
2) TStringList에 넣어서 Delimiter로 구분하시던지 하심 됩니다.
3. 일단 데이터를 한줄 읽고
while(!feof(sfp)) {
if(fgets(buffer, sizeof(buffer), sfp) == NULL) break;
여기서 buffer에 데이터 한줄 통째로 들어가겠죠?
4. 탭문자로 구분하여 변수(or배열)에 넣습니다.
AnsiString에 넣어서 Pos메소드로 찾으셔도 되고요. char 하나씩 Tab문자인지 확인하셔서 각 데이터를 분류합니다.
a = buffer.pos(char(9)); // 9번 ASCII코드가 TAB문자에요.
RecodeTime = buffer.SubString(1, a); // 처음부터 탭문자까지 날짜로 읽음
buffer = buffer.SubString(a, buffer.Length() - a); // 읽은 글자는 지웁니다.
b = buffer.pos(char(9));
Data01 = FormatFloat("0,00", buffer.SubString(a, b)); // 첫번째 탭문자부터 다음 탭문자까지 데이터 읽음
buffer = buffer.SubString(b, buffer.Length() - b); // 읽은 글자는 지웁니다.
c = buffer.pos(char(9));
Data02 = FormatFloat("0,00", buffer.SubString(b, c)); // 두번째 탭문자부터 다음 탭문자까지 데이터 읽음
원리만 이해하시고 좀더 논리적인 코드로 만드시면 됩니다.
구조체 배열 쓰시면 더 편하겠네요.
struct DataRecord{
TDateTime dtRecordTime;
double dData01;
double dData02;
double dData03;
}
DataRecord drData(100);
5. 각 데이터를 비교합니다.
if drData(1).dData > 500 then ErrorFunction(); // 에러처리
6. 대신 한번이라도 탭이 어긋나면 밀려날 수 있으므로 각 행의 첫번째에 날짜데이터가 들어왔는지등 검사항목도 있어야 겠죠.
※ 약식 코드이므로 Copy&Paste로 절!대! 작동 안되는 코드입니다ㅋㅋ
네버 님이 쓰신 글 :
: 답변 고맙습니다.
:
: 이래저래 하다가 결국 엑셀파일을 텍스트 파일로 여는 방법을 선택했어요
: fopen사용해서.
:
: 그런데 텍스트 파일로 열었는데. 텍스트 파일안에 있는 데이타 진단은 어떻게 해야할지 감이 안잡히네요.
: char buffer[250];
: File_Name = ExtractFileName(Form3->OpenDialog1->FileName);
: File_Path = ExtractFilePath(Form3->OpenDialog1->FileName);
:
: File_Open = File_Path + File_Name;
:
: if((sfp = fopen(File_Open.c_str(),"r")) == NULL) return;
:
: while(!feof(sfp)) {
: if(fgets(buffer, sizeof(buffer), sfp) == NULL) break;
: 여기서
: 저장된 데이타값들중 깨진문자는 없는지.
: if(data1 , data2 깨진문자가 있나요?)
: if(data1 > 500 || data2 >800)
: {
: 에러.
: }
: 저장된 값이 max값을 초과하는지 비교하고 싶습니다.
: 이럴경우 어떻게 텍스트 파일안에 데이타를 건드려야 할지 모르겠네요.
:
:
: }
:
:
: 이렇게 파일을 열었는데.
: 현재 텍스트 파일에는 밑에처럼 저장이 되어있습니다.
:
: ==========================
: 버젼 : ver 1.1.0
: Date : 07/10/22
: hh:mm:ss data1 data2 data3
: 6:31:53 204 25 2
: 6:31:55 213 29 2
: 6:31:57 207 32 2
: 6:31:59 gdg 32 2
: 6:32:01 213 12 2
: 6:32:03 200 43 2
: 6:32:05 196 43 2
: 6:32:07 188 45 2
: 6:32:09 111 44 2
: 6:32:11 182 46 2
: 6:32:13 199 dd 2
: 6:32:15 191 48 2
: 6:32:17 177 46 2
: 6:32:19 199 50 2
:
: ==========================
: 이때 버퍼에 들어가는 데이타를 확인해보면 버퍼에 버전 날짜 시간 데이타값이 한꺼번에 다 들어가있거든요.
:
: 다시한번 답변 부탁드립니다.
:
: 장성호 님이 쓰신 글 :
: : 일단 데이타가 시간이 많이 걸리는것은 어쩔수 없을것입니다.
: : 그런데 그동안 화면에 버벅거리지 않으려면...
: :
: : 방법1. for문안에 Application->ProcessMessages()를 넣으세요
: :
: : bFindStop=false;
: : for(int j=5;j<row;j++){
: : Form1->edit1->Text = sh.OlePropertyGet("Cells",j,3).OlePropertyGet("Value");
: : Form1->graph->DigitCh1 = sh.OlePropertyGet("Cells",j,3).OlePropertyGet("Value");
: :
: : Application->ProcessMessages(); //이부분에서 다른 윈도우 메세지및 화면처리를 합니다.
: :
: : if(bFindStop)break;// 검색을 중지하려면 for문을 빠져나옴
: :
: : }
: :
: : 방법2. excel을 open하여 data를 검색하는 부분을 쓰레드로만드세요
: : 검색 결과만을 메인 쓰레드로 주면 되니까...
: :
: : 방법3. excel에도 검색기능이 있습니다.
: : 저도 해보진 않았지만 ole를 이용해서 excel에 자체 검색 기능을 이용하는것이 더욱좋을것 같습니다.
: :
: : excel(office2003)로 메크로를 저장해 보니까 아래와 같은것이 ...
: : "BorderStyle"은 제가 검색한 text입니다.
: :
: : Cells.Find(What:="BorderStyle", After:=ActiveCell, LookIn:=xlFormulas, _
: : LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
: : MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
: : Cells.FindNext(After:=ActiveCell).Activate //다음검색
: : Cells.FindNext(After:=ActiveCell).Activate //다음검색
: :
: : 방법4. 엑셀에서 각 Cell을 하나하나씩 읽어오는것은 속도가 느립니다.
: : 좀더 빠르게 하는 대안으로 ClipBoard를 많이들 이용하지요
: : - 엑셀에 내용을 ClipBoard로 copy하고
: : - ClipBoard의 내요을 다시 가져와서 그런다음.. 검색한다면.. 빠를듯...
: :
: :
: : 방법3을 잘만들어서 방법2와 조합한다면....더욱 좋을듯...
: :
: :
: : 그럼..
: :
: :
: :
: :
: : 네버 님이 쓰신 글 :
: : : 컴퓨터에 있는 엑셀파일을 열어서 검사하는 부분을 하는데.
: : : 엑셀에 row데이타가 17000개 정도 됩니다.
: : : 데이타 양이 많아지니까 검사하는데 속도도 오래 걸리고 17000개 정도되면
: : : 아예 프로그램이 다운이 되버리더라구요.
: : :
: : : Form1->ListView1->Items->BeginUpdate();
: : : ex.OlePropertyGet("WorkBooks").OleProcedure("Open",File_Open.c_str());
: : :
: : : Variant awb=ex.OlePropertyGet("ActiveWorkBook");
: : : Variant sh=awb.OlePropertyGet("ActiveSheet");//엑티브sheet
: : :
: : : int row=sh.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count"); //row갯수
: : :
: : : for(int j=5;j<row;j++){
: : : Form1->edit1->Text = sh.OlePropertyGet("Cells",j,3).OlePropertyGet("Value");
: : : Form1->graph->DigitCh1 = sh.OlePropertyGet("Cells",j,3).OlePropertyGet("Value");
: : :
: : : }
: : : Form1->ListView1->Items->EndUpdate();
: : : awb.OleProcedure("Close");
: : : ex.OleProcedure("Quit");
: : :
: : : awb=Unassigned;
: : : ex=Unassigned;
: : :
: : : 이렇게 하는데 row값이 17000값이 되면 이게 다운이 되고 그래프에 표기도 안되더라구요.
: : : 또한 실행파일을 꺼도 엑셀파일이 계속 살아있구요~
: : :
: : : 찾아봐도 해결방법을 찾지 못해서 질문드립니다.
: : :
: : : 해결방법을 찾을수 있는 검색어나 힌트만 주셔도 괜찮습니다. 답변 부탁드려요
|
