• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lấy một đoạn text ở một vị trí bất kì trong file txt

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Lấy một đoạn text ở một vị trí bất kì trong file txt

Gửi bàigửi bởi T7 » T.Ba 27/05/2008 7:59 am

Thủ thuật: Lấy một đoạn text ở một vị trí bất kì trong file txt
Tác giả: T7
Mô tả: Có lẽ đoạn code này sẽ hữu ích đối với ai đó ;)


Offset: vị trí bắt đầu lấy text
Length: độ dài của text cần lấy bắt đầu từ vị trí Offset

Mã: Chọn hết

  1. Public Function StrInFile(ByRef Path As String, ByVal Offset As Long, _
  2.     ByVal Length As Long) As String
  3.    
  4.     If Length < 1 Then Exit Function
  5.    
  6.     Dim intFF As Integer, bytData() As Byte
  7.     Dim lonLen As Long
  8.     intFF = FreeFile
  9.    
  10.     Open Path For Binary Access Read As #intFF
  11.         If Offset <= LOF(intFF) Then
  12.             If LOF(intFF) - Offset >= Length Then
  13.                 ReDim bytData(0 To Length) As Byte
  14.                 Get #intFF, Offset, bytData
  15.             Else
  16.                 lonLen = LOF(intFF) - Offset
  17.                 ReDim bytData(0 To lonLen) As Byte
  18.                 Get #intFF, Offset, bytData
  19.             End If
  20.         End If
  21.     Close #intFF
  22.    
  23.     StrInFile = StrConv(bytData, vbUnicode)
  24.     Erase bytData
  25. End Function


While (i <= you) i++;

Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách