VSTO入门问题集

VBA万岁 · 发表于 2016-1-14 10:14

lipton 发表于 2016-1-13 06:21
207楼的链接发错了，是一个嵌入型的小型数据库。
网页提取的类库是
http://htmlagilitypack.codeplex.com ...

多谢，按照你提供的网址已成功下载HtmlAgilityPack.1.4.6，有空再测试看看。

HtmlAgilityPack.1.4.6.zip (1.53 MB, 下载次数: 34)

VBA万岁 · 发表于 2016-1-14 15:57

VBA万岁发表于 2016-1-14 10:14
多谢，按照你提供的网址已成功下载HtmlAgilityPack.1.4.6，有空再测试看看。

顺便附上对网页源码按指定的网页标签进行分行（有些网页源码复制到工作表后是没有分行的文本）以便于对源码进行解析的代码：

customUI.zip (1.47 MB, 下载次数: 36)

VBA万岁 · 发表于 2016-1-14 21:32

VBA万岁发表于 2016-1-13 11:25
今用VBA做了一个，如附件，看看VSTO能否实现。

VSTO测试成功，主要代码如下：

using HtmlAgilityPack;
public static string GetWebClient(string url)
{
string strHTML = "";
WebClient myWebClient = new WebClient();
Stream myStream = myWebClient.OpenRead(url);
StreamReader sr = new StreamReader(myStream, Encoding.Default);//注意编码
strHTML = sr.ReadToEnd();
myStream.Close();
return strHTML;
}
private void button5_Click(object sender, EventArgs e)
{
comboBox1.Items.Clear();
//更加链接格式和省份代码构造URL
String url = "http://www.tianqihoubao.com/lishi/";
//下载网页源代码
var docText = GetWebClient(url);
//加载源代码，获取文档对象
var doc = new HtmlAgilityPack.HtmlDocument();
doc.LoadHtml(docText);
//更加xpath获取总的对象，如果不为空，就继续选择dl标签
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]/div[1]/div[7]/div[1]/div[1]/div[3]");
if (res != null)
{
var list = res.SelectNodes(@"dl");//选择标签数组
if (list.Count < 1) return;
foreach (var item in list)
{
var dd = item.SelectSingleNode(@"dt").SelectNodes("a");
foreach (var node in dd)
{
var text = node.InnerText.Trim();
//拼音代码要从href属性中进行分割提取
var herf = node.Attributes["href"].Value.Trim().Split('/', '.');
//Console.WriteLine("{0}:{1}", text, herf[herf.Length - 2]);
comboBox1.Items.Add(text + ":" + herf[herf.Length - 2]);
}
}
}
comboBox1.TabIndex = 0;
}
private void comboBox1_SelectedIndexChanged(object sender, EventArgs e)
{
comboBox2.Items.Clear();
try
{
String cityCode = comboBox1.Text.Substring(comboBox1.Text.LastIndexOf(":") + 1);
//更加链接格式和省份代码构造URL
String url = String.Format("http://www.tianqihoubao.com/lishi/{0}.htm", cityCode);
//下载网页源代码
var docText = GetWebClient(url);
//加载源代码，获取文档对象
var doc = new HtmlAgilityPack.HtmlDocument();
doc.LoadHtml(docText);
//更加xpath获取总的对象，如果不为空，就继续选择dl标签
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]/div[1]/div[6]/div[1]/div[1]/div[3]");
if (res != null)
{
var list = res.SelectNodes(@"dl");//选择标签数组
if (list.Count < 1) return;
foreach (var item in list)
{
var dd = item.SelectSingleNode(@"dd").SelectNodes("a");
foreach (var node in dd)
{
var text = node.InnerText.Trim();
//拼音代码要从href属性中进行分割提取
var herf = node.Attributes["href"].Value.Trim().Split('/', '.');
//Console.WriteLine("{0}:{1}", text, herf[herf.Length - 2]);
comboBox2.Items.Add(text + ":" + herf[herf.Length - 2]);
}
}
}
}
catch (WebException webEx)
{
Console.WriteLine(webEx.Message.ToString());
}
}
private void comboBox2_SelectedIndexChanged(object sender, EventArgs e)
{
listBox1.Items.Clear();
try
{
String cityCode = comboBox2.Text.Substring(comboBox2.Text.LastIndexOf(":") + 1);
//更加拼音代码，月份信息构造URL
String url = String.Format("http://www.tianqihoubao.com/lishi/{0}/month/{1}{2}.html", cityCode, comboBox3.Text, comboBox4.Text);
//获取该链接的源代码
var docText = GetWebClient(url);
//加载源代码，获取页面结构对象
var doc = new HtmlAgilityPack.HtmlDocument(); doc.LoadHtml(docText);
//更加Xpath获取表格对象
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]/div[2]/div[6]/div[1]/div[1]/table[1]");
if (res != null)
{
//获取所有行
var list = res.SelectNodes(@"tr");
list.RemoveAt(0);//移除第一行，是表头
// 遍历每一行，获取日期，以及天气状况等信息
foreach (var item in list)
{
var dd = item.SelectNodes(@"td");
//日期 - - 气温 - 风力风向
if (dd.Count != 4) continue;
//获取当前行日期
var date1 = dd[0].InnerText.Replace("\r\n", "").Replace(" ", "").Trim();
//获取当前行天气状况
var tq = dd[1].InnerText.Replace("\r\n", "").Replace(" ", "").Trim();
//获取当前行气温
var qw = dd[2].InnerText.Replace("\r\n", "").Replace(" ", "").Trim();
//获取当前行风力风向
var fx = dd[3].InnerText.Replace("\r\n", "").Replace(" ", "").Trim();
//输出
//Console.WriteLine("{0}:{1},{2},{3}", date1, tq, qw, fx);
listBox1.Items.Add(date1 + ":" + tq + ":" + qw + ":" + fx);
}
}
}
catch (WebException webEx)
{
Console.WriteLine(webEx.Message.ToString());
}
}

复制代码

VBA万岁 · 发表于 2016-1-14 21:37

本帖最后由 VBA万岁于 2016-1-15 14:41 编辑

VBA万岁发表于 2016-1-13 11:25
今用VBA做了一个，如附件，看看VSTO能否实现。

C#制作测试源码见218楼。

VBA万岁 · 发表于 2016-1-15 09:57

VBA万岁发表于 2016-1-14 21:32
VSTO测试成功，主要代码如下：

VBA获取农历、星座、宜忌的代码稍作更改：

Private Sub ListBox1_Change()
On Error Resume Next
Dim url, html, n
url = Replace(ListBox1.List(ListBox1.ListIndex, 4), "about:", "http://www.tianqihoubao.com/")
Set html = CreateObject("htmlfile")
With CreateObject("msxml2.xmlhttp")
.Open "get", url, False
.send
'rs = StrConv(.responseBody, vbUnicode, &H804)
't = Split(Split(rs, "阳历")(1), "")(0)
't = Replace(Replace(Replace(t, " ", ""), "", ";"), "", ";")
't = Replace(Replace(t, " ", ""), "", "")
't = t & ";忌: " & Split(Split(rs, " 忌: ")(1), "")(0)
'TextBox1.Text = "阳历" & t
html.body.innerhtml = StrConv(.responseBody, vbUnicode, &H804)
t = Split(Split(html.all.tags("div")(1).innertext, "阳历")(1), "-")(0)
TextBox1.Text = "阳历" & Mid(t, 1, Len(t) - 12)
End With
End Sub

复制代码

VBA万岁 · 发表于 2016-1-15 21:30

VBA万岁发表于 2016-1-15 09:57
VBA获取农历、星座、宜忌的代码稍作更改：

VS获取农历、星座、宜忌的代码如下：

using HtmlAgilityPack;//此用于提取全国天气后报数据
using System.Text.RegularExpressions;//用于listBox1的代码引用正则Regex.Split
private void listBox1_SelectedIndexChanged(object sender, EventArgs e)
{
try
{
String cityCode = comboBox2.Text.Substring(comboBox2.Text.LastIndexOf(":") + 1);
//更加链接格式和省份代码构造URL
String url = String.Format("http://www.tianqihoubao.com//lishi/{0}/{1}.html", cityCode, listBox1.Text.Substring(0, 4) + listBox1.Text.Substring(5, 2) + listBox1.Text.Substring(8, 2));
//下载网页源代码
var docText = GetWebClient(url);
//加载源代码，获取文档对象
var doc = new HtmlAgilityPack.HtmlDocument();
doc.LoadHtml(docText);
//更加xpath获取总的对象，如果不为空，就继续选择dl标签
var res = doc.DocumentNode.SelectSingleNode(@"/html[1]/body[1]");
if (res != null)
{
String t = Regex.Split(res.InnerText, "阳历")[1].Split('-')[0];
textBox1.Text = "阳历" + t.Substring(0, t.Length - 12).Replace(" ", "").Replace("\r\n","");
}
}
catch (Exception exception)
{
MessageBox.Show(exception.Message);
}
}

复制代码

VBA万岁 · 发表于 2016-1-15 21:33

VBA万岁发表于 2016-1-14 21:32
VSTO测试成功，主要代码如下：

随感：通过以上两个实例，感觉VSTO采集网页数据比VBA快很多。

VBA万岁 · 发表于 2016-1-15 21:44

VBA万岁发表于 2016-1-15 21:33
随感：通过以上两个实例，感觉VSTO采集网页数据比VBA快很多。

制作测试源码如下：

ExcelHelpTaskPane.rar (718.24 KB, 下载次数: 17)

excelhomesnake · 发表于 2016-1-15 22:06

VBA万岁发表于 2016-1-15 21:33
随感：通过以上两个实例，感觉VSTO采集网页数据比VBA快很多。

建议你可以尝试一下写自己的功能类库,封装常用的功能,尽可能不要把逻辑都直接写在控件的关联方法上.
可能到时候你才明白用C#的生成效率有多高.

lipton · 发表于 2016-1-15 22:57

excelhomesnake 发表于 2016-1-15 22:06
建议你可以尝试一下写自己的功能类库,封装常用的功能,尽可能不要把逻辑都直接写在控件的关联方法上.
可 ...

同感，把变与不变隔离开来，封装不变部分。单一职责职责清晰，领会了，写代码会有质的飞跃。
有位大师提过，一个过程超过25行算法就应该重写，里面就包含了隔离封装的意思。实际上不但CSharp,VBA也适用。

		自动登录	找回密码
密码			免费注册

[求助] VSTO入门问题集

评分

评分