Çözüldü CSV Dosya İçeriğindeki Tarihe Göre Veri Aktarımı

[noartist]

Merhaba arkadaşlar,

Ekteki dosyada Makro içerikli Rapor dosyası ve 3 adet CSV dosyası bulunuyor, CSV dosyasındaki veriler dosya ismindeki tarihe göre Rapor dosyasındaki ilgili tarih alanına aktarılıyor.

Ancak CSV dosyalarında şöyle bir durum söz konusu dosya ismindeki tarih ile CSV içeriğinde "G" sütunundaki tarihler farklı olabiliyor.

Mesela dosya adı "UserProductivitySummaryGridReport_28-11-2022_13-17-53" şeklinde olan dosyada normalde "UserProductivitySummaryGridReport_28-11-2022" dosya ismindeki tarihe bakarak Rapor dosyasında aynı tarihin altına verileri aktarıyor.

Ancak CSV içeriğinde 29.11.2022 / 30.11.2022 gibi bir sonraki veya önceki tarihlere ait verilerde oluyor.

Bu yüzden değişiklik yaparak tarihi dosya isminden okumak yerine CSV dosyalarındaki "G" sütununda bulunan tarihlere göre kullanıcı verilerinin rapor dosyasına aktarılması konusunda yardımcı olabilir misiniz ?

Yardımlarınız için şimdiden teşekkür ederim.

 

[Alicimri]

Boş olan hücrelere hangi veriler girilecek.

Kullanıcı Bilgileri

28.11.2022

Per no

Username

İsim Soyisim

Lokasyon

Görev

First Activity Time

Last Activity Time

Total Time Spent

Active Time

wfica32

Diger Uygulamalar

Tarayıcılar

Toplam

100​

DOMAIN\test.user1

test user1

istanbul

satınalma

08:39:18​

21:13:50​

12:34:00​

09:10:00​

101​

DOMAIN\test.user13

test user13

Ankara

idari işler

08:35:34​

18:11:56​

09:36:00​

08:25:00​

102​

DOMAIN\test.user3

test user3

İzmir

Bilgi işlem

00:00:40​

17:55:17​

17:54:00​

05:11:00​

103​

DOMAIN\test.user4

test user4

Trabzon

Güvenlik

08:36:59​

16:53:29​

08:16:00​

07:10:00​

104​

DOMAIN\test.user5

test user5

Samsun

Operasyon

08:32:41​

19:32:03​

10:59:00​

07:17:00​

105​

DOMAIN\test.user10

test user10

Eskişehir

Ulaşım

07:55:39​

17:33:13​

09:37:00​

08:17:00​

106​

DOMAIN\test.user7

test user7

Adana

Depo

08:31:55​

23:59:56​

15:28:00​

12:09:00​

107​

DOMAIN\test.user8

test user8

istanbul

Atölye

08:18:36​

17:56:55​

09:38:00​

05:55:00​

108​

DOMAIN\test.user9

test user9

Ankara

idari işler

109​

DOMAIN\test.user6

test user6

İzmir

Bilgi işlem

08:28:16​

00:00:12​

15:31:00​

11:10:00​

110​

DOMAIN\test.user11

test user11

Trabzon

Güvenlik

07:39:52​

17:30:40​

09:50:00​

07:47:00​

111​

DOMAIN\test.user12

test user12

Samsun

Operasyon

112​

DOMAIN\test.user2

test user2

Eskişehir

Ulaşım

113​

DOMAIN\test.user14

test user14

Adana

satınalma

 

[noartist]

Alicimri hocam mevcut rapor dosyasında bulunan veri akışıyla ilgili değişiklik olmayacak. Normalde verileri dosya adındaki tarihe göre CSV dosyasından çekiyordu. Artık dosya adındaki tarihe bakmadan CSV dosyasının "G" sütununda bulunan tarihlere göre kullanıcı verileri rapor dosyasına aktarılması gerekmektedir.

 

[Alicimri]

G sütunundaki tarihler teker teker test edilmesi gerektiğinden sizin kodlarınızı revize edemedim, başka bir mantık ile çözüm üretmeye çalıştım.
Eksik de olsa bir noktaya vardım. kodlar aşağıda.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

#2 nolu mesajdaki resimde boş sütunların hesaplanma mantığı konusunda bilgi verirseniz yardıma devam edebilirim.

 

[halily]

aşağıdaki kodu dener misiniz?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[halily]

Yanlışlıkla dosya adındaki tarih kontrolünü devre dışı bırakmışım onu düzeltmem gerek Şu haliyle klasördeki tüm CSV dosyalarını kontrol ediyor Bu nedenle çok fazla CSV dosyası varsa işlem uzun sürer, uygun bir zamanda ilgilenmeye çalışırım.
Bu arada aklıma birşey takıldı
CSV dosyalarinda sadece birgün önceki yada sonraki veriler mi var?
Bu durumda sadece excel sayfasındaki tarihe bakarak dosyaları incelersek eksik bilgi alınmış olmaz mı?
Yani diyelim sayfada 1.Aralık.2022 -7.Aralık.2022 arası tarih girildiği için sadece bu tarihlere sahip CSVler incelenecek ama 30 kasım dosyasında da 1 aralık verisi olmayacak mı?
Not: tüm CSV dosyalarını arama sorununu duzelttim gibi ama kodu deneme imkanim olmadi. önceki mesaj düzeltildi

 

[noartist]

Yanlışlıkla dosya adındaki tarih kontrolünü devre dışı bırakmışım onu düzeltmem gerek Şu haliyle klasördeki tüm CSV dosyalarını kontrol ediyor Bu nedenle çok fazla CSV dosyası varsa işlem uzun sürer, uygun bir zamanda ilgilenmeye çalışırım.
Bu arada aklıma birşey takıldı
CSV dosyalarinda sadece birgün önceki yada sonraki veriler mi var?
Bu durumda sadece excel sayfasındaki tarihe bakarak dosyaları incelersek eksik bilgi alınmış olmaz mı?
Yani diyelim sayfada 1.Aralık.2022 -7.Aralık.2022 arası tarih girildiği için sadece bu tarihlere sahip CSVler incelenecek ama 30 kasım dosyasında da 1 aralık verisi olmayacak mı?
Not: tüm CSV dosyalarını arama sorununu duzelttim gibi ama kodu deneme imkanim olmadi. önceki mesaj düzeltildi

halily
Hocam elinize emeğinize sağlık paylaştığınız kodlar tam istediğim gibi çalışıyor.

Konuyu şu şekilde özetleyeyim CSV dosyalarını çektiğimiz program kullanıcı bilgisayarlarındaki çalışma sürelerini hesaplıyor. Normalde program gün sonunda 00:00 da kayıt aldığı oturumu sonlandırıp yeni oturum başlatması gerekiyor, ancak program henüz böyle bir kabiliyete kavuşmadı. Kullanıcı bilgisayarını kapatmadığı sürece, diyelim 30 Kasımda kayıt almaya başladı ve bilgisayarını kapatmadı veya yeniden başlatmadığı sürece sadece 3 Kasım için rapor çektiğimizde rapor boş gözüküyor. 30-1-2-3 Kasım raporları 30 Kasım raporunda gözüküyor. Bu yüzden bu konudaki gibi bir talepte bulundum. En kötü ihtimal iki haftalık bir rapor çekeceğim. Bu konuda sizin başka bir öneri görüşünüz olur mu acaba ?

 

[halily]

CSV dosyalarını taramayı 1 hafta öncesi ve 1 hafta sonrasını dahil edecek şekilde kod yeniden düzenlenebilir. Diyelim ki 1-7 aralık tarihi girildi tarama 23 kasım-14 aralık tarihleri arasındaki tüm dosyaları tarayıp sadece 1-7 aralık tarihleri olan verileri alabilir, yada ilgili klasörde çok fazla CSV dosyası yoksa tüm csvler taranabilir,
yada duzenli olarak her gun CSV dosyaları access tablosuna aktarılır accessten tarih aralığına gore veriler çekilir.
Yani insanın aklına farklı farklı şeyler geliyor ama hepsinin kendine gore + ve - leri bulunuyor

 

[noartist]

CSV dosyalarını taramayı 1 hafta öncesi ve 1 hafta sonrasını dahil edecek şekilde kod yeniden düzenlenebilir. Diyelim ki 1-7 aralık tarihi girildi tarama 23 kasım-14 aralık tarihleri arasındaki tüm dosyaları tarayıp sadece 1-7 aralık tarihleri olan verileri alabilir, yada ilgili klasörde çok fazla CSV dosyası yoksa tüm csvler taranabilir,
yada duzenli olarak her gun CSV dosyaları access tablosuna aktarılır accessten tarih aralığına gore veriler çekilir.
Yani insanın aklına farklı farklı şeyler geliyor ama hepsinin kendine gore + ve - leri bulunuyor

halily hocam, dediğiniz gibi ilgili klasörde çok fazla CSV dosyası olmayacak klasöre atılan tüm CSV dosyalarının taranması daha iyi olacaktır.

 

[halily]

En fazla kaç dosya olabilir?

 

[noartist]

En fazla kaç dosya olabilir?

Normalde 7 dosya oluyor en fazla, ancak 1 hafta geriye dönük alırsak 14 dosya diyebiliriz hocam.

 

[halily]

aşağıdaki kod ile 1100 küsür dosyadan veriler 3 sn'de geldi
doğruluğunu kontrol etmedim denersiniz.HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[noartist]

aşağıdaki kod ile 1100 küsür dosyadan veriler 3 sn'de geldi
doğruluğunu kontrol etmedim denersiniz.HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

halily hocam öncelikle elinize sağlık, ancak denediğimde aşağıdaki gibi bir hata aldım.

 

[halily]

Deneme yaparken her yöntem için farklı sayfa oluşturmuştum sayfa adı kalmış
Orası Rapor_free değil sadece Rapor olacak

 

[noartist]

Deneme yaparken her yöntem için farklı sayfa oluşturmuştum sayfa adı kalmış
Orası Rapor_free değil sadece Rapor olacak

halily, hocam gerçekten çok teşekkür ederim, elinize emeğinize sağlık. Bu kadar karmaşık, parçalı verileri net ve anlaşılır bir hale getirdiniz.

 

[halily]

rica ederim
iyi çalışmalar

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu satırda verileri ekleyeceğimiz alandaki sütun sayısını buluyoruz
Sutun başlıkları 2. Satırda olacağından vergideki sütun sayısı bu satırdaki sütun sayısı kadardır
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu satırda verileri depolayacagimiz diziyi oluşturuyoruz dizideki sütun sayısı başlık sayısı kadar olacağından sütun sayısı SonStn sayısına eşittir ama satır sayımız yani kullanıcı sayısı belirsizdir bu nedenle bu sayıyı 10.000 olarak belirledim ama belli bir maksimun personel sayısı varsa o da seçilebilirdi.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu satırda ilk 2 satır dışındaki -başlıkların olduğu satırlar- tüm veriler silinerek sayfa temizlenir.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu kod bloğunda önce 1 satırdaki tüm hücreler taranarak tarihler bulunup dictionary/sözlüğe eklenir. Hem tarih saklanır hem de tarihin kaçıncı sütun bloguna kaydedileceği saklanır. Böylece verilerden sadece ihtiyacımız olan tarih aralığındakiler hesaba katılır.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu satır kullanıcı isimlerini ve kullanıcının kaçıncı sırada olduğunu kaydedecek dictionary/sözlüğü oluşturmak için kullanılacak.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

açılacak CSV dosyasına sayı ataması yapılır.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

burada her tarih için kaç sütun ayırmamız gerektiğini hesapliyoruz
Ilk 5 sütun kullanıcı bilgilerini içeriyorken geriye kalanlar 7ye -7 tarih olduğundan- bölünerek tarih başına sütun sayısı bulunur
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu 2 satırda önce dosyaların atanacağı klasör sonrada hangi özelliklere sahip dosyalar aranacağı belirtilir
Dosya adları UserProductivitySummaryGridReport_ ile başlayacak ile *.CSV ile bitecek

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu kod ile klasordeki belirttiğiniz özelliklere sahip tüm dosyalar teker teker taranır
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

ilgili dosya açılıp tüm içerik txtIcerik değişkenine atanır ve dosya kapatılır.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Her kullanıcı tanımlamadan önce User Name;;;;;Date;;;;Total .... satırı olduğundan split komutuyla kullanıcılar diziye aktarilir
Mesela "ali,veli,halil" diye bir metin split("gereksiz bilgi ,ali,veli,halil",",") dersek 4 değerli bir diziye dönüştürülür
0 - gereksiz bilgi
1 - ali
2 - veli
3 - halil
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

kodu ile dizeye aktarılmış kullanıcılar arasında dolaşılır Not: dizi 0 dan başlatılmaz, çünkü her dosya kullanıcı adlarından önce ilgisiz veri içerir, o bilgileri atlamak için 1 den baslanir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

kullanıcıya ait bilgiler ";" ile ayrılmıştır. Bu kod ile dizideki kullanıcıya ait her bilgi split(veri,";") ile sütunlara ayrilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

StrDz(15); bu dizinin 15 elemanını yani uygulamaların yer aldığı sütundaki bilgileri içeriyor. Uygulamalar çift yeni satır komutuyla -vbNewLine & vbNewLine- birbirinden ayrılmıştır, burada çift yeni satır , noktalı virgül ( ile değiştirilir
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Burada da yeni satır komutu, "|" ile değiştiriliyor
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

7. sütundaki tarih değeri alınıyor
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

eğer kullanıcıya ait tarih değeri birinci satırdaki tarihlerden biri değilse döngüden çıkılıp diğer kullanıcıya geçilir.

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

x = dicTrh(Trh): ilgili tarih kaçıncı kümede saptanır
ty = KtSy * (x - 1) + 6: ilgili tarihe ait veri hangi sütundan başlıyor o saptanır
TmpD = StrDz(0): kullanıcı adı geçici değişkene atanir
TmpD = Replace(Evaluate("=lower(""" & TmpD & """)"), "domaın", "DOMAIN"): büyük/küçük harf farkını ortadan kaldırmak ve DOMIN kelimesini büyük yapmak için
If Not dic.Exists(TmpD) Then dic.Add TmpD, dic.Count: sözlükte kullanıcı adı yoksa kullanıcı adı ve sırasını ekler
Geriye kalan satırlar ilgili verinin ekleneceği sütünü belirlemek ve belirlenen yere veriyi eklemek için kullanılır
Not: SureCvr() fonksiyonu veriyi saniyeye çevirmek için kullanılır

 

[halily]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bu blok uygulamalarin yer aldığı sütundaki verileri uygun sütuna işlemek için