Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Python i Visual Basic
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003
Python i Visual Basic

Witam,
Napewno to co napisze ucieszy wiele osob. Otoz nie musicie rezygnowac ze swoich przyzwyczajen nabytych podczas pracy z jezykiem Visual Basic aby programowac w Pythonie. Istnieje program konwerterujacy kod vb do kodu Pythona nazywa sie vb2py i dokładnie poczytac mozna o niem na stronie:
+ http://vb2py.sourceforge.net/index.html
Zachęcam do pobrania najnowszej wersji 0.2.1 oraz najstabilniejszej (jak do tej pory) wersji Pythona 2.3.4 i wypróbowania tego cudeńka samemu
Jeżeli nuzy was szukanie podam kilka linków:
  * http://vb2py.sourceforge.net/downloads.htm - dział download
  * http://vb2py.sourceforge.net/documentation.htm - dokumentacja
  * http://vb2py.sourceforge.net/screenshots.htm - zrzuty z ekranu (te same programy pod Win i pod Linuxem)
  * http://vb2py.sourceforge.net/demo.htm - demonstracyjny skrypt cgi konwerterujacy kod na stronie www
  * http://vb2py.sourceforge.net/links.htm - linki do stron majacych Pythona do pobrania + tutoriale i Vb5 CCE + tutoriale
  * http://vb2py.sourceforge.net/contribute.htm - możliwość dołączenia sie do projektu jako programista VB lub Pythona sa inne mozliwosci wsparcia projektu

Poniżej zamnieszczam dla porownania zkonwerterowany kod vb na kod Pythona
Kod VB:
funkcja usuwajaca zadane wyrazenie (z wielu linkow w kodzie html) np.: www.cos.nazwa_serwera.pl i pozostawiajac a www.cos.pl

Sub Kedit(ByVal sc As String, ByVal sc2 As String, ByVal tedit As String)
  Dim t As String
  Dim t1 As String
  Dim t2 As String
  'Dim l As Integer
 
  On Error GoTo errh ' <<-- konwerter nie potrafi przetlumaczyc
 
  Open sc For Input As #1
    Open sc2 For Output As #2
      Line Input #1, t
        'If t <> String(Len(t), Chr(32)) Then
        If InStr(1, t, tedit) <> 0 Then
            Do Until InStr(1, t, tedit) = 0
                t1 = Mid(t, 1, InStr(1, t, tedit) - 1)
                t2 = Mid(t, InStr(1, t, tedit) + Len(tedit) + 1)
                t = t1 & t2
                'l = l + 1
                DoEvents
            Loop
            Print #2, t
        Else
            Print #2, t
        End If
        'End If
      Do Until (EOF(1) = True)
        Line Input #1, t
          'If t <> String(Len(t), Chr(32)) Then
          If InStr(1, t, tedit) <> 0 Then
              Do Until InStr(1, t, tedit) = 0
                  t1 = Mid(t, 1, InStr(1, t, tedit) - 1)
                  t2 = Mid(t, InStr(1, t, tedit) + Len(tedit) + 1)
                  t = t1 & t2
                  'l = l + 1
                DoEvents
              Loop
              Print #2, t
          Else
              Print #2, t
          End If
          'End If
        DoEvents
      Loop
      'Form1.Print "Przeanalizowano: "; sc
    Close #2
    Close #1
  'Form1.Caption = Form1.Caption & "-" & l
Exit Sub
errh:
MsgBox Err.Number & Space(1) & Err.Description, vbOKOnly, "Błąd: Kedit"
Close #2
Close #1
End Sub

Kod Pythona:

from vb2py.vbfunctions import *

def Kedit(sc, sc2, tedit):
    #Dim l As Integer
    # VB2PY (UntranslatedCode) On Error GoTo errh
    VBFiles.openFile(1, sc, 'r')
    VBFiles.openFile(2, sc2, 'w')
    t = VBFiles.getLineInput(1, 1)
    #If t <> String(Len(t), Chr(32)) Then
    if InStr(1, t, tedit) <> 0:
        while not (InStr(1, t, tedit) == 0):
            t1 = Mid(t, 1, InStr(1, t, tedit) - 1)
            t2 = Mid(t, InStr(1, t, tedit) + Len(tedit) + 1)
            t = t1 + t2
            #l = l + 1
            DoEvents()
        VBFiles.writeText(2, t, '\n')
    else:
        VBFiles.writeText(2, t, '\n')
    #End If
    while not (( EOF(1) == True )):
        t = VBFiles.getLineInput(1, 1)
        #If t <> String(Len(t), Chr(32)) Then
        if InStr(1, t, tedit) <> 0:
            while not (InStr(1, t, tedit) == 0):
                t1 = Mid(t, 1, InStr(1, t, tedit) - 1)
                t2 = Mid(t, InStr(1, t, tedit) + Len(tedit) + 1)
                t = t1 + t2
                #l = l + 1
                DoEvents()
            VBFiles.writeText(2, t, '\n')
        else:
            VBFiles.writeText(2, t, '\n')
        #End If
        DoEvents()
    #Form1.Print "Przeanalizowano: "; sc
    VBFiles.closeFile(2)
    VBFiles.closeFile(1)
    #Form1.text = Form1.text & "-" & l
    return
    MsgBox(Err.Number + Space(1) + Err.Description, vbOKOnly, 'Błąd: Kedit')
    VBFiles.closeFile(2)
    VBFiles.closeFile(1)

A oto inne ciekawe linki:
* http://mail.python.org/pipermail/python-win32/2004-July/002051.html
* http://altis.pycs.net/categories/python/2003/07/13.html
* http://www.awaretek.com/jythonoutput.html
* http://www.hps1.demon.co.uk/users/andy/pyvb/
* http://forums.devshed.com/archive/t-158692
* http://www.brunningonline.net/simon/blog/archives/001514.html
* http://www.mail-archive.com/activepython@listserv.activestate.com/msg00913.html
* http://itconnection.ru/pipermail/zopyrus/2003-August/004610.html
* http://www.vilchjo.lunarpages.com/Python/Boa_for_VB_users.htm

Proszę o dopisywanie do tego posta wszelkich ciekawych informacji na temat łączenia VB i Pythona badz konwersji kodu

Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

07-09-2004 00:24
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Witam,
Kolejne linki o tematyce Visual Basic i Pythona łączącego siły
* http://www.oooforum.org/forum/viewtopic.php?t=4772 - troche o Pythonie w Open Office niby nie na temat ale moze komus sie przyda
* http://www.beust.com/weblog/archives/000015.html
* http://www.xmlrpc.com/discuss/msgReader$1147?mode=day
* http://www.hps1.demon.co.uk/users/andy/pyvb/faq.htm
* http://python.scripting.com/discuss/msgReader$268
* http://dot.kde.org/1003877941/1003903702/1003909892/
* http://lists.community.tummy.com/pipermail/frpythoneers/2001-June/000281.html
* http://pythonjournal.cognizor.com/pyj1/Reifschneider_pythonlikeVB-V1.html
* http://www.perfectxml.com/articles/xml/vbsoap.asp
* http://conferences.oreillynet.com/cs/os2004/view/e_sess/5145
* http://archive.devx.com/opensource/articles/PythonFAQ/PythonFAQ-1.shtml
* http://mail.python.org/pipermail/tutor/2002-April/013993.html
* http://www.faqts.com/knowledge_base/view.phtml/aid/3243
* http://www.needscripts.com/Resource/6899.html
* http://freshmeat.net/articles/view/187/
* http://www.mail-archive.com/activepython@listserv.activestate.com/msg01224.html

Na razie chyba tyle mam nadzieje ze temat was zaciekawił. Nie pozwolmy VB umrzec - moze łączac go z takimi projektami jak Python dodamy mu nowych sił.
Pozdraiwam
Andrzej

[Post edytowany dnia 07-09-2004 00:46 przez andrey]


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

07-09-2004 00:38
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Witam,
Zamieszczam następne linki do różnych dyskusji na temat VB i Pythona:
* http://mail.python.org/pipermail/python-list/2003-December/200040.html
* http://c2.com/cgi/wiki?VbIsBadForNewbies

Jeżeli zamierzacie poeksperymentowac z programem vb2py w celu zamiany programów napisanych w VB na kod Pythona napewno z chęcią zobaczycie swoj zkonwerterowany kod na innej maszynie w postaci działającego exe.
Służy do tego program py2exe dzięki niemu programy napisane w Pythonie nie potrzebują by działać na innej maszynie interpretatora Pythona
Oto potrzebne linki:
  * http://starship.python.net/crew/theller/py2exe/ - główna strona projektu
  * http://forums.devshed.com/showthread.php?t=170960
  * http://www.pycs.net/users/0000231/weblog/2004/08/14.html
  * http://www.free2code.net/tutorials/programming/python/13/py2exe.php
  * http://forums.devshed.com/t168366/s.html
  * http://www.anti-particle.com/py2exe.shtml
  * http://forums.devshed.com/archive/t-155032
  * http://vsbabu.org/mt/archives/2002/02/27/py2exe_great_utility.html
  * http://biopython.org/pipermail/biopython/2004-January/001805.html
  * http://www.devarchives.com/archive/newsgroups/comp.lang.python/58/SOLVED-py2exe-and-dynamic-service-installation-

Zamieszczę jeszcze linki do tutoriali i wszelkich helpów mówiących o programowaniu w Pythonie - ale chyba dorzucę je do istniejącego już posta - Python
Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

07-09-2004 09:59
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1