nineaddnine的部落格

一次讀取
Dim szAllFileData As String<br />
Dim arr() As String<br />
szAllFileData = My.Computer.FileSystem.ReadAllText("a.txt")<br />
arr = szAllFileData.Split(",".ToCharArray())<br />
Dim i As Object<br />
For Each i In arr<br />
    RichTextBox1.Text += i + " "<br />
Next i

Dim tmp, path as String
path = "c:\xxx.txt" '定義路徑
tmp = File.ReadAllText(path) '讀取文字檔
InStr(tmp, "欲搜尋之字串") '文字搜尋

瑞士 ROLLOMATIC
德國 WALTER
澳洲 ANCA
台灣 TOPWORK

客戶出現了在重開後出現 BOOTMGR is compressed 訊息的問題，並要求按 Ctrl + Alt + Del重開系統，不過問題一直重覆，在詢問使用者後，知道他有針對C碟執行過“壓縮這個磁碟機來節省磁碟空間”，做完後，開啟系統，就出現這個問題，但使 用者系統為 XP，而BOOTMGR，這是Vista以上版本使用的開機管理程式，使用BCD做管理，再詢問之下，得知該系統為win 7 降版為XP，可是towns 並不清楚降版的方式，但看起來是直接使用安裝好的win 7系統再執行降版動作，所以才會出現這個訊息。
        到google中找資料，多數的資料都是使用bootrec.exe /fixmbr、bootrec.exe /fixboot，不過，在這一次的問題中，這方式是無效的，bootrec 指令是針對vista以上的系統來修復開機檔 BOOTMGR，但這個系統為 xp，這麼做到是沒有用，最後是用了古老的方式，重建了NTLDR及NTDETECT.com檔，完成這次的系統求援。
        以下說明關於幾個常見的開機失敗訊息簡單說明及問題處理

---

一、開啟檔案
語法：
Open pathname For mode[Access accmode]  [lock] As [#]filenumber [Len=reclength]
Open 陳述式語法單元

以下部份引用自 Visual Studio 6 MSDN 光碟
OpenTextFile 方法
描述
開啟一個指定的檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入。

//---------------------------------------------------------------------------   複製資料夾
void CopyFolder(AnsiString srcPath, AnsiString aimPath)
{
        TSearchRec sr;
        if (!DirectoryExists(srcPath)){return ;}
        if (!DirectoryExists(aimPath)){ForceDirectories(aimPath);}
        if (FindFirst(srcPath + "//*.*", faAnyFile, sr) == 0){
            do{
               try{
                   if ((sr.Attr & faDirectory) != 0){
                       if (sr.Name != "." && sr.Name != ".."){//folder
                           CopyFolder(srcPath+"//"+sr.Name, aimPath+"//"+sr.Name);}
                       }else{//file
                             CopyFile((srcPath + "//" + sr.Name).c_str(),(aimPath + "//" + sr.Name).c_str(),0);}
                   }catch(...){}
               } while (FindNext(sr) == 0);
            FindClose(sr);
        }
}
//---------------------------------------------------------------------------   複製資料夾

1.搜尋該資料夾內的資料夾與檔案
2.判斷是檔案還是資料夾
TStringList *lstFiles = new TStringList;
AnsiString str = "C:\\path1\\path2";
TSearchRec sr;
str += "\\*.*"; //尋找資料夾內的內容
if (FindFirst(str, faAnyFile, sr) == 0){
  do{
    lstFiles->Add( sr.Name );
  } while (FindNext(sr) == 0);
  FindClose(sr);
}
//到此已經取得該資料夾內的所有資料夾與檔案的名稱
//利用lstFiles->Strings[x]取得該名稱,
//lstFiles->Count則為該資料夾內的檔案的數目
for(int i=2;iCount;i++){
  if (FindFirst(str, faDirectory, sr) == 0){
    if(sr.Attr==faDirectory){ //判斷是否為資料夾
      //資料夾處理程式碼
    }else{
      //檔案處理程式碼
    }
  }
}
delete lstFiles;
參考資料：
http://www.programmer-club.com/pc2020v5/forum/showSameTitleN.asp?board_pc2020=cb&id=12081&keyword

GDI+是微軟公司推出的新一代圖形設備接口，功能強大。不再像傳統的GDI那樣讓人的心志嚴重地受挫，GDI+具有很多新特性（如支持Alpha、漸 變色填充、反鋸齒等），並具有面向對象特性，這使得開發人員可以更方便、更形象地進行GDI+開發。有關GDI+更詳細的介紹大家可以查閱MSDN中的專 欄。
　　但目前在BCB環境中使用GDI+進行開發則還需要進行一定的設置和步驟才能成功編譯和鏈接。以下我就以BCB6為例進行簡單的說明：