solid PRT0001
  facet normal 0.000000e 000 -1.000000e 000 0.000000e 000
    outer loop
      vertex 0.000000e 000 0.000000e 000 -1.714942e 002
      vertex 1.485200e 002 0.000000e 000 8.575000e 001
      vertex -1.485200e 002 0.000000e 000 8.575000e 001
    endloop
  endfacet
  facet normal 0.000000e 000 6.575920e-001 7.533742e-001
    outer loop
      vertex 0.000000e 000 9.824000e 001 0.000000e 000
      vertex -1.485200e 002 0.000000e 000 8.575000e 001
      vertex 1.485200e 002 0.000000e 000 8.575000e 001
    endloop
  endfacet
  facet normal -6.524508e-001 6.575794e-001 -3.766926e-001
    outer loop
      vertex 0.000000e 000 9.824000e 001 0.000000e 000
      vertex 0.000000e 000 0.000000e 000 -1.714942e 002
      vertex -1.485200e 002 0.000000e 000 8.575000e 001
    endloop
  endfacet
  facet normal 6.524508e-001 6.575794e-001 -3.766926e-001
    outer loop
      vertex 0.000000e 000 9.824000e 001 0.000000e 000
      vertex 1.485200e 002 0.000000e 000 8.575000e 001
      vertex 0.000000e 000 0.000000e 000 -1.714942e 002
    endloop
  endfacet
endsolid PRT0001

 
OpenDialog1->Filter = "Data files (ave*.dat)|ave*.DAT|Text files(*.txt)|*.TXT";
OpenDialog1->Options.Clear();    if(OpenDialog1->Execute())
{
  Edit1->Text = OpenDialog1->FileName;
  strcpy( fin, Form1->Edit1->Text.c_str());
}    int n;
// create an instance of ifstream
ifstream file;
// open the file
file.open(fin);
// something went wrong
if (!file) return;
// create a buffer for storage
char buff[80];
n=0;
while (!file.eof())
{
  // read a line from the file
  n  ;
  file >>T[n] >> B[n];
  // close the file
  file.close();
}

引言: 要如何寫使開檔時只可選副檔名STL，與用ASCII編碼開啟呢??

String lc_strFex;
if(OpenDialog1->Execute())
{
   lc_strFex = ExtractFileExt(OpenDialog1->FileName); //取得副檔名
   if(lc_strFex == ".stl")
   {
      Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
   }
}

引言: int SelPos; String FindText; String strSource = "facet normal 6.524508e-001 6.575794e-001 -3.766926e-001";// 從stl讀進一行資料。 FindText = "facet normal"; TStringList strList = new TStringList(); strList->Delimiter = " ";// space做區隔 SelPos = strSource Pos(FindText); strList->DelimitedText = strSource.SubString(SelPos FindText.Length(),strSource.Length()-SelPos); a[0] = StrToFloat(strList->Strings[0]); a[1] = StrToFloat(strList->Strings[1]); .... delete strList;

引言: 這個我不太懂~~ 把memo的資料一行一行讀進來我會了，謝啦~~ 可是在讀進來時，我想判別(用if)其每一行前的單字是什麼，做別的事情，要如何寫其判別式?? 你是指要判別facet, outer loop, vertex 這些字是嗎? 是的話,用if(strList->Strings[0] == facet) 請你先查BCB HELP中TStringList的用法。 上面程式在執行時有一些錯誤: TStringList *strList = new TStringList(); =>Cannot convert 'TStringList *' to 'TStringList' SelPos = strSource.Pos(FindText); =>Cannot convert 'AnsiString' to 'int' (更正紅色字體部分)

引言: 再問一個怕被你揍的問題!! strList->Delimiter = " "; // space做區隔 =>[C Error] Unit1.cpp(54): E2034 Cannot convert 'char *' to 'char' 出現這樣的問題啊!! 不好意思啊~~

strList->Delimiter = ' '; // space做區隔 改成單引號就可以了。因為strList->Delimiter的型態是char。 這種問題查

引言: 哇~~真的很對不起~~我的程式功力真的很不行~~我有看help的說明，可是還是不懂~我會努力的~~ 問題又來了~ if(strList->Strings[0] == "solid") 出現錯誤??

應該是strList沒有資料造成的。 先把資料讀進strList吧。 ---------- 我看過你的參與討論的文章明細。 嚴格來說,你的程式功力只在超級新手的階段。 如果你要提昇程式功力,help一定要會看(<-- 這是基本功力)。 加油! 加油! ------------------------------- 數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖