百度地圖裡面搜尋到的公司商家電話匯出表格?怎樣將把百度地圖裡面搜尋到的公司 電話 地址 等資料匯出excel裡?

來源:互聯網
上載者:User

標籤:

好多人在問:如何將百度地圖裡面搜尋到的公司商家電話匯出表格?怎樣將把百度地圖裡面搜尋到的公司 電話 地址 等資料匯出excel裡?

現在,很多人都在網路上找商家,聯絡業務。 百度地圖裡有很多的商家連絡方式地址等資料,這便成為很多人的便捷方式。但是一個個地複製出來商家的電話,地址是一件很痛苦的事情, 於是想到開發一個程式,類比人的操作,將所有的資料提取儲存到EXCEL裡。

交流學習QQ:3125547039

主要代碼思路:

 m_objConnection.Open();             button1.Enabled = false;

            txtInfo.Text = "";             txtInfo.BackColor = Color.White;             ///////////////////////////////////////////////////////////////////////////             m_iCount = 0;             int itemCount = comboQItems.Count;             for (int i = 0; i < itemCount; i++)             {                 string str1 = comboQ.Items[i].ToString();                 Application.DoEvents();                 //////////////////////////////////////////////////////////////////////////////////////////////////////////                 //第一次 提取資訊                 string strResult = clsDownLoad.GetHtml(strHttp);                 //string strResult = textBox3.Text ;

                POIinfoList = GetFirstALLinfo(strResult);                 if (POIinfoList == null)                 {                     MessageBox.Show(strQuxian + "沒有擷取任何數值--null,可能出現異常了");                 }                 else                 {                     foreach (POIParameter POIinfo in POIinfoList)                     {                         AddtoTable(POIinfo, 0);                     }                 }                 lblStatus.Text = "第0";

                //第2次到最後一次                 for (int iPage = 1; iPage < m_iPageCount; iPage++)                 {                     strResult = clsDownLoad.GetHtml(strHttp);

                    POIinfoList2 = GetALLinfo(strResult, iPage);                     if (POIinfoList2 == null)                     {                         Thread.Sleep(200);                         iPage = iPage - 1;                         continue;                     }                     else                     {                         foreach (POIParameter POIinfo in POIinfoList2)                         {                             AddtoTable(POIinfo, iPage);                             Application.DoEvents();                         }                     }                     lblStatus.Text = "第" + iPage.ToString();                     Application.DoEvents();

                }                 ///////////////////////////////////////////////////////////////////////////////////////////////             }             txtInfo.Text = txtInfo.Text + "  總共條數:" + m_iCount.ToString();             txtInfo.BackColor = Color.Green;

            m_objConnection.Close();             Thread.Sleep(1000);

            //儲存到Excel裡去             if (checkSaveToExcel.Checked)             {                 string strExcelFile = "";                 if (m_strOldAccess.Length < 7)                 {                     strExcelFile = Application.StartupPath + "\\Data\\Over\\Excel\\" + comboShenfen.Text + "\\" + txtCity.Text + txtAim.Text + m_iCount.ToString() + ".xls";                  }                 else                 {//WYF: insert into Old Access.                     int iPos1 = m_strOldAccess.LastIndexOf(‘_‘); // BaiduPOI_昌都市景點94.mdb                     int iPos2 = m_strOldAccess.LastIndexOf(‘.‘); // .mdb                     string strCityAimOldCount = m_strOldAccess.Substring(iPos1 + 1, iPos2 - iPos1 - 1);

                    strExcelFile = Application.StartupPath + "\\Data\\Over\\Excel\\" + comboShenfen.Text + "\\" + strCityAimOldCount + "_" + m_iCount.ToString() + ".xls";  //信陽燈具187.xls                 }

                EasyExcel.Access2Excel(strAccessFile, strExcelFile);             }

 

百度地圖裡面搜尋到的公司商家電話匯出表格?怎樣將把百度地圖裡面搜尋到的公司 電話 地址 等資料匯出excel裡?

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.