• 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
User avatar
truongphu
VIP
VIP
Posts: 4764
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Function Giá Vàng Dollar hôm nay

Postby truongphu » Sat 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) Viewed 4396 times


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) Downloaded 1662 times


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
Posts: 8
Joined: Fri 11/11/2011 11:34 am

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

Postby Vu Viet Chien » Wed 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
Posts: 5
Joined: Fri 29/03/2013 4:20 pm
Has thanked: 2 times

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

Postby kenshin83 » Wed 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
Posts: 193
Joined: Fri 04/06/2010 12:35 pm
Has thanked: 27 times
Been thanked: 1 time

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

Postby miucon20 » Fri 05/04/2013 6:37 pm

Ko cài vb6 để test thử

hoangthai308
Posts: 1
Joined: Thu 09/05/2013 1:11 pm
Has thanked: 1 time

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

Postby hoangthai308 » Thu 09/05/2013 1:19 pm

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

User avatar
truongphu
VIP
VIP
Posts: 4764
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

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

Postby truongphu » Sat 20/07/2013 9:37 am

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

kenshin83 wrote: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


Return to “[VB] Mẹo vặt khác”

Who is online

Users browsing this forum: No registered users and 0 guests