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
Đăng trả lời
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 531 times

Function Giá Vàng Dollar hôm nay

Gửi bài by truongphu »

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/ty ... gnuoc.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


Đâ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 6153 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 về 1734 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: Thứ 6 11/11/2011 11:34 am

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

Gửi bài by Vu Viet Chien »

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: Thứ 6 29/03/2013 4:20 pm
Has thanked: 2 times

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

Gửi bài by kenshin83 »

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: Thứ 6 04/06/2010 12:35 pm
Has thanked: 27 times
Been thanked: 1 time

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

Gửi bài by miucon20 »

Ko cài vb6 để test thử
hoangthai308
Bài viết: 1
Ngày tham gia: Thứ 5 09/05/2013 1:11 pm
Has thanked: 1 time

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

Gửi bài by hoangthai308 »

Một function đơn giản mà rất hay, thanks bác Trường.
Hình đại diện của thành viên
truongphu
VIP
VIP
Bài viết: 4785
Ngày tham gia: Chủ nhật 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 531 times

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

Gửi bài by truongphu »

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
Đăng trả lời

Quay về