Συζήτηση
Γεια χαρά, Επισκέπτης
Όνομα χρήστη: Κωδικός: Να με θυμάσαι

ΘΕΜΑ: download

download 12 Χρόνια 3 Μήνες πριν #1587

  • jim
  • Το Άβαταρ του/της jim
  • Αποσυνδεμένος
  • p_____
  • Δημοσιεύσεις: 3
Γεια σας.Χρονια πολλά.Είμαι καινούργιος χρήστης.
Ήθελα την βοήθεια σας στο εξής:
Εχω ένα αρχείο excel και μέσα σε αυτό έχω μια μακροεντολή η οποία αντλεί δεδομένα απο μια ιστοσελίδα
www.aragon.ws/soccerdb/league/matchesAll.php?countryId=58
Αυτό πού θέλω είναι έναν αντίστοιχο κώδικα που να παίρνει τα δεδομένα απο την σελίδα και να μου τα περνάει σε έναν πίνακα σε mysql.
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.

Απ: download 12 Χρόνια 3 Μήνες πριν #1588

  • pmav99
  • Το Άβαταρ του/της pmav99
  • Αποσυνδεμένος
  • Author
  • Δημοσιεύσεις: 684
  • Ληφθείσες Ευχαριστίες 111
Οκ. Τι δεν πάει καλά? Ανέβασε τον κώδικα σου.
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.

Απ: download 12 Χρόνια 3 Μήνες πριν #1589

  • jim
  • Το Άβαταρ του/της jim
  • Αποσυνδεμένος
  • p_____
  • Δημοσιεύσεις: 3
Καλημέρα.Ο κώδικας δουλεύει μια χαρά αλλά τον έω φτιάξει σε visual basic for aplication.
Και ήθελα αν γίνεται να μετατραπεί σε python .
Μέχρι τώρα χρησιμοποιώ το excel γα την αντληση των δεδομενων.
Επειδή θέλω να περάσω ubuntu sto laptop moy αλλά όμως θέλω να έχω αυτο το αρχειο excel για να παίρνω τα δεδομένα.
Ομως αν μπορεί κάποιος να φτιάξει αυτόν το κώδικα και να πηγαίνουν κατευθείαν σε έναν πινακα mysql θα ήταν τέλειο.
Αλλιώς αν γίνεταιαυτός ο κώδικας να δουλέψει σε libre calc
κωδικας:
επεξηγηση:
Range("AA3")=πόσες φορές θα τρέξει ο κώδικας
LastROW=επικολεί τα δεδομένα σε νέα γραμμή
NUM=id πρωταθλήματος
Το τεελευταίο κομμάτι του κώδικα επικολεί το όνομα του πρωταθλήματος δίπλα στα αποτελεσματα.
Sub keraro()
'
' makroentoli
'
 
'
Dim i As Long
Dim NUM As Long
i = 1
Do While i <= Range("aa2")
i = 1 + i
    With ActiveSheet
        LastRow = (.Cells(.Rows.Count, "E").End(xlUp).Row)
    End With
    NUM = Range("b" & i)
     With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.aragon.ws/soccerdb/league/matchesAll.php?stageId=" & NUM & "", _
        Destination:=Range("c" & LastRow + 1))
        .Name = "matchesAll.php?stageId=" & NUM & ""
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = True
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    ActiveWorkbook.Connections("Óýíäåóç").Delete
    With ActiveSheet
        FirstRow = (.Cells(.Rows.Count, "E").End(xlUp).Row)
    End With
    LastRow = LastRow + 1
Range("U" & i & ":Y" & i & "").Select
    Selection.Copy
    Range("I" & FirstRow & ":I" & LastRow).Select
    ActiveSheet.Paste
    Loop
 
End Sub
Τελευταία διόρθωση: 12 Χρόνια 3 Μήνες πριν από myle.
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.

Απ: download 12 Χρόνια 3 Μήνες πριν #1590

  • myle
  • Το Άβαταρ του/της myle
  • Αποσυνδεμένος
  • Admin
  • Δημοσιεύσεις: 467
  • Ληφθείσες Ευχαριστίες 15
Γεια σου συνονόματε Δημήτρη και χρόνια πολλά!

Ουσιαστικά θες να κάνεις parse το site. Για αυτό υπάρχουν αρκετές χρήσιμες βιβλιοθήκες BeautifulSoup, pyparsing, lxml κτλ...

Δυστυχώς όμως εμείς δε μπορούμε να σου δώσουμε άμεσα κώδικα που να κάνει αυτό που ζητάς για δυο κυρίους λόγους.

α) Είναι αρκετή δουλειά.
β) Η άδεια με την οποία διατίθενται τα δεδομένα από το site.
«Αν υποθέσουμε ότι αυτό είναι δυνατό, (να μεταδώσουμε τη σοφία παντού) τότε ειλικρινά ο τρόπος ζωής των θεών θα περάσει στους ανθρώπους. Τα πάντα θα είναι γεμάτα...
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.

Απ: download 12 Χρόνια 3 Μήνες πριν #1593

  • jim
  • Το Άβαταρ του/της jim
  • Αποσυνδεμένος
  • p_____
  • Δημοσιεύσεις: 3
Χρόνια πολλά σε όλους.
Ευχαριστώ για την απάντηση.'Ασχετα αν δεν με βοήθησε.
Πάντως δεν νομίζω πως χρειάζεται κάποια άδεια γιατι στο excel μου δουλεύει κανονικά.
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.

Απ: download 12 Χρόνια 3 Μήνες πριν #1594

  • pmav99
  • Το Άβαταρ του/της pmav99
  • Αποσυνδεμένος
  • Author
  • Δημοσιεύσεις: 684
  • Ληφθείσες Ευχαριστίες 111
Χρόνια πολλά και σε εσένα jim. Αν θέλεις να γράψεις κώδικα python, πολύ ευχαρίστως να σε βοηθήσουμε. Προσπάθησε το και εδώ είμαστε ;)

Τώρα για να κάτσει να σου γράψει κάποιος κώδικα...
Πρέπει να είστε εγγεγραμμένο μέλος του Φόρουμ για να κάνετε μια δημοσίευση.
Συντονιστές: pmav99
Χρόνος δημιουργίας σελίδας: 0.311 δευτερόλεπτα

Μοιράσου το!

Powered by CoalaWeb

Λίστα Ταχυδρομείου