webden aktarılan plakanın harf gurubunu ayırmak
Tarih
12/01/2012 22:55
Konu Sahibi
iscinar
Yorumlar
7
Okunma
1832
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
webden OGS KGS Sorgulama  konusunda projeme uyarlamak üzere hazırlamış olduğum Form1 isimli Ana formda açılır kutuyla seçtiğim plakanın kaçak geçişi varsa alt forma aktarıyorum.

Sorgulama ve aktarma işinde sıkıntı yok ancak Tablo1'e atılan kayıtlarda (34XXX01 şeklinde) Plaka harf gurubu ile rakamlar arasında boşluk bırakmıyor.

Oysa benim kullandığım Projemde plakalar (34 XXX 01) şeklinde boşluk içeriyor.

webden aktarma esnasında veya bir sorgu marifetiyle Tablo1 deki plakaları Altformumuza kayıt kaynağı olması için istediğimiz formata çevirebilirmiyiz?
İlgilenecek arkadaşa ÖM ile test amaçlı gerçek plaka gönderebilirim.

Ek Dosyalar
webden_ogs iscinar.rar
[28.33 KB]

İş sadece orjinal tablomdaki plakalarla kalsa hepsini değiştireceğim ancak jpeg formatında depoladığım ruhsat, sigorta ve zeyilnamelerin isimleri işin içine girince değiştirmek gibi bir çözümü düşünemiyorum.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla


POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.846
02/04/2010
İzmir
Ofis 2003
Bugün,00:55
Çözüldü 
İncelermisiniz...


Ek Dosyalar
.rar   webden ogs.rar (Dosya Boyutu: 39,71 KB / İndirme Sayısı: 17)
Please return your positive or negative ...
Cevapla


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
Sn.POWER
webden veri alma konusunda çok iyisiniz.
Tekrar teşekkür ediyorum.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla


POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.846
02/04/2010
İzmir
Ofis 2003
Bugün,00:55
Çözüldü 
O yetenek adminimizde... Bilginiz olsun. Sledgeab bu konuda lider.
Please return your positive or negative ...
Cevapla


iscinar
İsmail ÇINAR
Kullanici Avatari
Uzman
İ.... Ç....
856
30/05/2011
272
İstanbul
Ofis 2007
17/11/2016,11:19
Çözüldü 
Liderlik konusuna girmedim ama webe veri gönderip alma konularının hepsinde imzanızı gördüm. Bu yüzden böyle bir iltifatta bulundum.

O zaman Sn. adminimizden de özür dileyelim ne olur ne olmaz Img-grin
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.023
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,01:03
Çözüldü 
Ortalığı kızıştırayım. Web olayının lideri esrefigit 'tir. Img-grin

Soru ile ilgili farklı bir yöntem.
Vba penceresinde boş bir yere aşağıdaki fonksiyonu ekle

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
Function PlakaBol(veri)
harf1 = Left(veri, 2)
say = Len(veri)
 For i = 3 To say
 If Not IsNumeric(Mid(veri, i, 1)) Then
 sayi1 = sayi1 & Mid(veri, i, 1)
 Else
 harf2 = harf2 & Mid(veri, i, 1)
 End If
 Next
PlakaBol = harf1 & " " & sayi1 & " " & harf2
End Function


Komut5'in tıklandığında olayına yazılı kodu aşağıdaki ile değiştir

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Sub Komut5_Click()
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim HTML_TableRows As Object
    Dim RetVal As Variant, X, a As Integer, SATIRSAYISI As Integer
    Dim SonPlaka As String
    
        
        Set IE = Me.WebBrowser1
        Set HTML_Body = IE.Document.All
        Set HTML_Tables = HTML_Body.tags("Table")
        Set MyTable = HTML_Tables(2)
        
        Set HTML_TableRows = MyTable.GetElementsByTagName("td")
        For Each MyRow In HTML_TableRows
            X = X + 1
        Next
        SATIRSAYISI = (X - 3) / 9

        ReDim sorgu(7, SATIRSAYISI - 1)
        
        X = 0
        For X = 0 To SATIRSAYISI - 1
            a = 1 + X
            sorgu(0, X) = MyTable.Rows(a).Cells(0).innerText
            sorgu(1, X) = MyTable.Rows(a).Cells(1).innerText
            sorgu(2, X) = MyTable.Rows(a).Cells(2).innerText
            sorgu(3, X) = MyTable.Rows(a).Cells(3).innerText
            sorgu(4, X) = MyTable.Rows(a).Cells(4).innerText
            sorgu(5, X) = MyTable.Rows(a).Cells(5).innerText
            sorgu(6, X) = MyTable.Rows(a).Cells(6).innerText
            sorgu(7, X) = MyTable.Rows(a).Cells(7).innerText
                                    
         Next X

    Dim rc As DAO.Recordset
    Set rc = CurrentDb.OpenRecordset("Tablo1")
    
    X = 0
    
    For X = 0 To SATIRSAYISI - 1
    
        rc.AddNew
         
            SonPlaka = sorgu(1, X)
            rc![Tarih] = sorgu(0, X)
            rc![Plaka] = PlakaBol(SonPlaka)
            rc![Bölge] = sorgu(2, X)
            rc![İstasyon] = sorgu(3, X)
            rc![GeçişTipi] = sorgu(4, X)
            rc![NormalÜcret] = sorgu(5, X)
            rc![CezalıÜcret] = sorgu(6, X)
            rc![İndirimliÜcret] = sorgu(7, X)

        rc.Update
    Next X
    
    Set rc = Nothing
    Me![Tablo1 alt formu].Requery
    
        GoTo SafeExit:
'ErrHandler:
SafeExit:
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set HTML_TableRows = Nothing
    Set HTML_TableDivisions = Nothing
    Set IE = Nothing
 End Sub


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Dışa Aktarılan excel dosyasını şifreleme QATLET 5 368 27/04/2016, 08:48 QATLET
  Butondan hücreye harf yazdırma firtina 13 685 26/04/2016, 16:17 afatsum75
Çözüldü Access Tablodan Excele Aktarılan Bilgi Sürun Başlıklarını Dikey Yazdırma hturkavci03 7 708 08/12/2015, 18:49 hturkavci03
Çözüldü Tek form üzerinde çalışan formları ayırmak. fascioğlu 4 591 14/10/2015, 16:27 fascioğlu
Çözüldü Webden veri alma idrisy 8 1.367 25/08/2015, 14:05 idrisy


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya