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

Boş olan hücrelere hangi veriler girilecek.

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.

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: #2 nolu mesajdaki resimde boş sütunların hesaplanma mantığı konusunda bilgi verirseniz yardıma devam edebilirim.

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

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' Alıntı:

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

Genişletmek için tıkla...

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 ?

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' Alıntı:

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

Genişletmek için tıkla...

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.

En fazla kaç dosya olabilir?

halily' Alıntı:

En fazla kaç dosya olabilir?

Genişletmek için tıkla...

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

halily' Alıntı:

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

CSS: Kodları Kopyala

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

Genişletmek için tıkla...

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

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

halily' Alıntı:

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

Genişletmek için tıkla...

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.

rica ederim
iyi çalışmalar

HTML: 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: 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: bu satırda ilk 2 satır dışındaki -başlıkların olduğu satırlar- tüm veriler silinerek sayfa temizlenir.
HTML: 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: 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: açılacak CSV dosyasına sayı ataması yapılır.
HTML: 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: 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

HTML: bu kod ile klasordeki belirttiğiniz özelliklere sahip tüm dosyalar teker teker taranır
HTML: ilgili dosya açılıp tüm içerik txtIcerik değişkenine atanır ve dosya kapatılır.
HTML: 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: 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: 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: 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: Burada da yeni satır komutu, "|" ile değiştiriliyor
HTML: 7. sütundaki tarih değeri alınıyor
HTML: 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.

HTML: 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

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