• 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

Function Giá Vàng Dollar hôm nay

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
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi truongphu » T.Bảy 10/12/2011 3:03 pm

Thủ thuật: Function Giá Vàng Dollar hôm nay
Tác giả: truongphu
Mô tả: Function Giá Vàng Dollar hôm nay


Function Giá Vàng Dollar hôm nay dùng số liệu do trang http://www.sacombank-sbj.com cung cấp
Function hoạt động nhờ một function khác: SourceURL_Stream để load source trang web
2 function có code như sau:
MODULE:
  1. 'us-ascii, utf-8, unicode, iso-8859-1, _autodetect
  2. Public Function SourceURL_Stream(Url As String, _
  3. Optional ByVal uCharset As String = "_autodetect") As String
  4.     Dim XMLHT As Object: Set XMLHT = CreateObject("Microsoft.XMLHTTP")
  5.     Dim ADOstream As Object: Set ADOstream = CreateObject("ADODB.Stream")
  6.         With ADOstream
  7.             .Charset = uCharset:       .Type = 1
  8.             XMLHT.Open "GET", Url, False, "", ""
  9.             XMLHT.Send
  10.             .Open
  11.             .Write XMLHT.responseBody: .Flush
  12.             .Position = 0:             .Type = 2
  13.             SourceURL_Stream = .ReadText(-1)
  14.         End With
  15.     Set XMLHT = Nothing: Set ADOstream = Nothing
  16. End Function
  17.  
  18. Public Function GiáVàngDollar() As String
  19.     GiáVàngDollar = "Giá vàng hôm nay, Mua: "
  20.     Dim MM$: MM = SourceURL_Stream("http://www.sacombank-sbj.com/service/tygiatrongnuoc.ashx?", "utf-8")
  21.     Dim NN() As String: NN = Split(MM, "Vàng")
  22.     Dim OO() As String: OO = Split(NN(2), "</b></td><td><b>")
  23.     GiáVàngDollar = GiáVàngDollar & OO(1) & ". Bán: " & Left(OO(2), 9) & " VNÐ"
  24.     OO = Split(NN(7), "</td><td>")
  25.     GiáVàngDollar = GiáVàngDollar & vbCrLf & "Giá Dollar hôm nay, Mua: "
  26.     GiáVàngDollar = GiáVàngDollar & OO(3) & " Bán: " & Left(OO(4), 6) & " VNÐ"
  27. End Function
  28.  


Đây là số liệu sẽ được Function GiáVàngDollar sử dụng;
Giá vàng Dollar.JPG
Giá vàng Dollar.JPG (19.73 KiB) Đã xem 2772 lần


Ngoài ra, các bạn có thể dùng Function SourceURL_Stream để load source các trang web khác...
PROJECT:
Function Source Url ADODB.Stream.rar
(2.2 KiB) Đã tải 1577 lần


Ghi chú: Nếu trang http://www.sacombank-sbj.com/service/ty ... gnuoc.ashx? không hoạt động, Function sẽ gặp lỗi, các bạn cần tìm địa chỉ khác.


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Vu Viet Chien
Bài viết: 8
Ngày tham gia: T.Sáu 11/11/2011 11:34 am

Re: Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi Vu Viet Chien » T.Tư 28/12/2011 6:40 pm

Chào bạn

Có cách nào để lấy được thêm thông tin ngày nữa không?

Cảm ơn bạn
Chiến

kenshin83
Bài viết: 5
Ngày tham gia: T.Sáu 29/03/2013 4:20 pm
Has thanked: 2 time

Re: Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi kenshin83 » T.Tư 03/04/2013 4:59 pm

Bác truongphu cho xin đoạn code lấy giá vàng trên 24h nhé

miucon20
Thành viên tích cực
Thành viên tích cực
Bài viết: 193
Ngày tham gia: T.Sáu 04/06/2010 12:35 pm
Has thanked: 27 time
Been thanked: 1 time

Re: Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi miucon20 » T.Sáu 05/04/2013 6:37 pm

Ko cài vb6 để test thử

hoangthai308
Bài viết: 1
Ngày tham gia: T.Năm 09/05/2013 1:11 pm
Has thanked: 1 time

Re: Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi hoangthai308 » T.Năm 09/05/2013 1:19 pm

Một function đơn giản mà rất hay, thanks bác Trường.

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 509 time

Re: Function Giá Vàng Dollar hôm nay

Gửi bàigửi bởi truongphu » T.Bảy 20/07/2013 9:37 am

Vu Viet Chien đã viết:Có cách nào để lấy được thêm thông tin ngày nữa không?

kenshin83 đã viết:Bác truongphu cho xin đoạn code lấy giá vàng trên 24h nhé


link trên trục trặc, các bạn có thể chỉnh sửa.
Project mới với bài viết:
Giá dollar, Giá vàng thế giới và Việt Nam
http://truongphu111.blogspot.com/2013/0 ... t-nam.html
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


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