M sgBox(Asc{"A” ) Xor 50)
94 Chương 13: Khảo sát cấc File Text và xử lý chuỗ
vào nhữ ng kỹ th u ậ t xử lý chuỗi, nó là m ột cách tcít đ ể thực h à n h ky n ă n g lập tr ìn h V isual Basic cơ b ả n v à quan trọng. K hi b ạ n có n h iề u k in h n g h iệm hơn, b ạ n cũng có th ể sử dụng m ã hóa được cung cấp bởi .N ET F ram ew ork để bổ sung th ê m các dịch vụ an n in h và m ậ t m ã tin h vi hơn cho các chương trìn h . Để th a m k hảo lời giới th iệu về những chủ đề này, tìm k iếm "Crypto* g rap h ic T asks" tro n g tà i liệu V isual Studio Help. Bởi vì n h ữ n g dịch vụ này phụ thuộc vào m ộ t p h ầ n b ạ n hiểu các class, Container và giao tá c (transac- tion) In te rn e t, B ạn n ê n h o àn th à n h các chương tro n g p h i n III và IV của sách n ày trước k h i b ạ n th ử nghiệm chúng.
Tham khảo nhanh chương 13
Đ ể Thực h iện đ iều sa u dây
H iển th ị một hộp thoại o p en Thêm một control OpenPileDialog vào form
và sau đó sử dụng phương thức ShowDialog của đối tượng hộp thoại open fĩlẹ
ìf OpenRleDiaiog1.ShowDialog() = DialogResult.OK Then
Đọc một file tex t bằng việc sử Sử dụng đối tượng MỵComputer.PileSystem.
M A T ^ 1_ _ ♦ _ /é. 1 Ằ 11 ^ V É «
dụng nam espace My
Đọc một file tex t bằng việc sử dụng class Stream Reader.
10 và phương thức ReadAllText. Ví dụ (giả sử bạn cũng đang sử dụng m ột đối tượng hộp thoại open file có tên là ofd v à m ột đô'i tượng hộp text có tên là txtNote):
Dim AIIText As strin g =
ofd.Filter = 'Text íiies ( * . t x t ) r . t x t ”
lf ofd.SfiowDiaiog() = DialogResult.OK Then AIIText = _
MỵComputer.PileSystem.ReadAIIText (oíd.RleName)
txtNotẹText = AIIText ‘dỉsplay file End lf
Thêm câu lệnh Im ports.System .IO vào phần k h a i báo của form v à sa u đó sử dụng s tr e a m R e a d e r. Sử d ụ n g p h ư ơ n g th ứ c ReadToEnd để đọc toàn bộ íĩlẹ Khi hoàn tấ t, gọi phương thức Closẹ Ví dụ, để hiển thị file trong một hộp text có tê n là TextBoxl:
Dim StreamToDisplay As StreamReader StreamToDisplay * New StreamReader( _
C h ư ơ n g 13: K h ả o s á t c á c File T e xt v à xử íý chuỗi 9 5
Đọc một file text theo từng dòng
"c:\vb10sbs\chap13\text browseAbadbills.txt’') ĩe x tB o x U e x t = StreamToDisplaỵReadToEnd StreamToDisplaỵCloseO
Sử dụng phương thức Stream R eader và
R e a d L in e . Sứ đ ụ n g p h ư ơ n g th ứ c
OpenTextPiIeReader trong nam espace My để mở một StreamReader. Để kiểm tra nhằm tìm sự kết thúc của fĩle, sử dụng thuộc tính EndOÍStream .
Dim AIIText As strin g = LineO ữext As string
H iển th ị một hộp thoại Save As
Ghi m ột íĩle text bằng việc sử dụng namespace
Dim StreamToDisplay As StreamReader
S tream ToD ispiay = M ỵC om puter.P ileS ystem . OpenTextFileReader( _
“ C:Wb1 Osbs\chap13\text browser\badbills.txt") Do Until StreamToDisplaỵEndOíStream ‘ read lines trom file
LineOữext = StreamToDisplaỵReadLineO AIIText = AllText & LineOíText & vbCrLí Loop
T e x tB o x U e x t = AIIText 'display file StreamToDisplaỵClose{)
Thêm một control SaveFiieDialog vào form và sau đó sử dụng phương thức Show Dialog của đối tượng hộp thoại save fĩlẹ Ví dụ:
lf SaveFi!eDialog1 .ShowDiaiog() = DialogResult.OK Then
Sử dụng đối tượng MỵComputer.FileSystem Mỵvà phưcmg thức WriteAllText. Ví dụ (giả sử bạn cũng đang sử dụng một đô'i tượng hộp thoại save file có tê n là s ít và một đối tượng hộp tex t có tê n là txtNote);
s íd .n ite r = 'T e x t ỉiles
lf sfd.ShowDia!og() = DiatogResultOK Then MỵComputer,FíieSystem.WriteA!IText{
sfd.FileName, txtNotẹTexỉ, False)