Find Jobs
Hire Freelancers

Scraping sports results from a website

£20-250 GBP

진행 중
게시됨 5년 이상 전

£20-250 GBP

제출할때 지불됩니다
Hi, I have a macro that was written for me some years back by a user, that scraped data from a website. It is now in need of updating as the website has updated/changed a little. basically i get sports results and fixtures from the website, usually 2 or 3 times per week. It was set up so that i could get a whole range of dates of results or fixtures. i.e. results for a certain month etc, each would return on a different tab for each day. Would also be great to get results for just a particular league too. data used to return in this format Date League Fixture Team1 Team2 28.10.2017 Africa: CAF Champions League Al Ahly - Wydad Al Ahly Wydad 28.10.2017 Albania: Super League Lushnja - Teuta Lushnja Teuta 28.10.2017 Albania: Super League Skenderbeu - Luftetari Gjirokastra Skenderbeu Luftetari Gjirokastra displayed in 5 columns, each day on a different tab. If anybody could help, it would be so greatly appreciated. Many thanks macro below: Sub Ombir_13Dec16() Dim i As Long Dim j As Long Dim rw As Long Dim cl As Long Dim url As String Dim mdate As String Dim leagname As String Dim matchdate As String Dim output() As String Dim dt As String Dim ele As Variant Dim daterng As Variant Dim Doc As HTMLDocument Dim ie As InternetExplorer Dim league As HTMLTableSection Dim leagues As IHTMLElementCollection Dim ws As Worksheet mdate = InputBox("Enter Match date/dates in dd/mm/yyyy format." & vbCrLf & _ vbCrLf & "For ex :" & vbCrLf & vbCrLf & "14/12/2016" & vbCrLf & vbCrLf & "or" _ & vbCrLf & vbCrLf & "10/12/2016,11/12/2016,12/12/2016,13/12/2016") If InStr(mdate, ",") Then daterng = Split(mdate, ",") Else ReDim daterng(1 To 1) daterng(1) = mdate End If For Each ele In daterng If Not IsDate(ele) Then MsgBox "Incorrect Date" Exit Sub End If dt = Replace(ele, "/", "-") On Error Resume Next Set ws = [login to view URL](dt) If ws Is Nothing Then [login to view URL]().Name = dt Set ws = [login to view URL](dt) End If On Error GoTo 0 [login to view URL] Set ie = New InternetExplorer url = "[login to view URL]" & Split(dt, "-")(2) & "&month=" & Split(dt, "-")(1) & "&day=" & Split(dt, "-")(0) With ie .Visible = True .Navigate url Do While .Busy Or .ReadyState <> 4: DoEvents: Loop End With Set Doc = [login to view URL] Set leagues = [login to view URL]("table-matches js-nrbanner-t")(0).getElementsByTagName("tbody") ReDim output(1 To [login to view URL] * 15, 1 To 11) i = 0 For Each league In leagues With league If .className <> "js-nrbanner-tbody h-display-none" Then leagname = [login to view URL](.Children(0).innerText) matchdate = [login to view URL]("in-date-navigation__cal js-window-trigger")(0).innerText For rw = 1 To .[login to view URL] - 1 j = 0 If .Rows(rw).className <> "js-newdate" Then i = i + 1: j = j + 1 output(i, j) = matchdate output(i, j + 1) = leagname output(i, j + 2) = .Rows(rw).Cells(0).Children(0).innerText output(i, j + 3) = .Rows(rw).Cells(0).Children(1).innerText output(i, j + 4) = Split(output(i, j + 3), "- ")(0) output(i, j + 5) = Split(output(i, j + 3), "- ")(1) j = 7 For cl = 1 To .Rows(rw).[login to view URL] - 1 output(i, j) = .Rows(rw).Cells(cl).innerText j = j + 1 Next Else matchdate = .Rows(rw).innerText End If Next End If End With Next [login to view URL] [login to view URL]("A1:K1") = Array("Date", "League", "Time", "Fixture", "Team1", "Team2", "Col1", "Col2", "Col3", "Col4", "Col5") [login to view URL]("A1:K1").[login to view URL] = xlThemeColorAccent1 [login to view URL]("A2").Resize(UBound(output, 1), UBound(output, 2)) = output With [login to view URL] .[login to view URL] .[login to view URL] = xlThin .WrapText = False End With Set ws = Nothing Next End Sub
프로젝트 ID: 18139413

프로젝트 정보

5 제안서
원격근무 프로젝트
활동 중 5년 전

돈을 좀 벌 생각이십니까?

프리랜서 입찰의 이점

예산 및 기간 설정
작업 결과에 대한 급여 수급
제안의 개요를 자세히 쓰세요
무료로 프로젝트에 신청하고 입찰할 수 있습니다
5 이 프로젝트에 프리랜서들의 평균 입찰은 £116 GBP입니다.
사용자 아바타
i can do you work and i need more description and do worry from any think .
£200 GBP 3일에
5.0 (100 건의 리뷰)
6.5
6.5
사용자 아바타
Hello boss, I can make script for you in python which will work fast then that old macro. Please message me so I can share further details.
£50 GBP 1일에
4.9 (121 건의 리뷰)
6.5
6.5
사용자 아바타
"Hi, I have just gone through your project description and reviewed everything. Yes, I’m able to work as per your stated requirements in your current project. Also, I'm able to provide accurate and quick service. You know! I’m efficient and experienced Web researcher and scraper. If you consider me for this job, I will try my level best to complete your project within our committed deadline. I look forward to hearing from you about the project. Regards, "
£70 GBP 3일에
4.9 (25 건의 리뷰)
4.8
4.8
사용자 아바타
I define myself as a perfectionist. Who competes to beat his very own performance and then celebrates. This is something that brings me immense pleasure in the , I used to say, "I am a business student and intend to hold a degree in finance" but now I introduce myself as a blogger or as a writer because writing is something I find myself at ease where and love doing and aim to achieve folks, this is just the beginning and there is a lot more to come!
£111 GBP 3일에
5.0 (10 건의 리뷰)
3.7
3.7
사용자 아바타
Professional software engineer from USA.
£150 GBP 3일에
0.0 (0 건의 리뷰)
0.0
0.0

고객에 대한 정보

국기 (UNITED KINGDOM)
NOTTINGHAM, United Kingdom
5.0
1
결제 수단 확인
11월 11, 2018부터 회원입니다

고객 확인

감사합니다! 무료 크레딧을 신청할 수 있는 링크를 이메일로 보내드렸습니다.
이메일을 보내는 동안 문제가 발생했습니다. 다시 시도해 주세요.
등록 사용자 전체 등록 건수(일자리)
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
미리 보기 화면을 준비 중...
위치 정보 관련 접근권이 허용되었습니다.
고객님의 로그인 세션이 만료되어, 자동으로 로그아웃 처리가 되었습니다. 다시 로그인하여 주십시오.