Kosul kontrol programi V3.0

Merhaba,

  netsis deki vbscript ile yazilan kosul dosyasi için hata kontrol programi yazmistim.

Version 3.0 Özellikleri.
- Referans.ini dosyasi kullanarak kelime bazinda yazim hatalari kontrolü.
- yazimhatalari.ini dosyasi kullanarak parantez ve tirnak (")" yada
  sizin belirleyeceginiz hatali yazim kelimeleri kontrolü.
- LEFT komutunda alinan parça ile karsilastirilan karakter lerin uzunluklarinin
  esit olup olmadiginin kontrolü.
- LEFT deki ve diger STOKKODU,STOKGRUP,CARIGRUP, VADEKODU, VADEHANGIISK degerlerinin
  ilgili txt data dosyalarinda olup olmadiklarinin kontrolü.
- IF ... THEN ve END IF  bloklarinin kontrolü. END IF ile bitmeyenlerin tespiti.
- THEN ile bitmeyenlerin kontrolü.
- Yazim hatalari için kirmizi renk, Deger hatalari için pembe, Kodlama hatalari
  için Mavi renk kullanimi.
- Kod aralarindaki fazla bosluklarin silinmesi.
- Tüm hata islemleri için log kayitlarinin yapilmasi.Her bir hata için satir numaralarinin eklenmesi saglandi.
- Bosluk silme, Deger kontrolü ve Çift tirnak hata kontrolünün seçimli olmasi saglandi.
- ' ile yapilan açiklamalarin dikkate alinmamasi.
- Kosul editör sayfasi eklendi. Kosul yazimi aninda VB kodlarinin renklendirilmesi saglandi.

* Deger kontrollerinin yapilabilmesi için ilgili firmanin
  STOKKODU,STOKGRUP,CARIGRUP, VADEKODU, VADEHANGIISK degerlerinin ilgili txt dosyaya yazilmis olmasi gerekiyor.
* Program tarafindan hatali görünen ancak hatali olmadigi düsünülen kelimelerin. Referans.ini
  dosyasina kayit edilmis olmasi gerekiyor.
  Program Referans olustur butonu ile bu islemi otomatik olarak yapacaktir. Ancak bu islem yapilmadan önce
  referans a eklenecesk kosul dosyasinin hatasiz olmasi gerekmektedir.

Örnek Log Dosyasi: Bu hatalar ayni zamanda görsel olarak renklendiriliyor.

4. satirda -->CARIKOD1 = NETDB.FIELDS(1).ASSTRIN
Bu satirda hatali kelime ASSTRIN yazimi mevcut.
 
3. satirda -->CARIGRU = NETDB.FIELDS(0).ASSTRING
Bu satirda hatali kelime CARIGRU yazimi mevcut.
 
33. satirda -->IF(CARIGRU = "212") THEN SONUCDETAY.ISKORANLARI() = 3
Bu satirda hatali kelime CARIGRU yazimi mevcut.
 
23. satirda -->IF(CARIGRUP"203") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda hatali kelime CARIGRUP"203" yazimi mevcut.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
Bu satirda hatali kelime STOKKOD yazimi mevcut.
 
27. satirda -->IF(CARIGRUP = "") THENN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda hatali kelime THENN yazimi mevcut.
 
21. satirda -->IF(CARIGRUP = "201" THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda parantez () hatasi mevcut.
 
30. satirda -->IF(CARIGRUP = "210")) THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda parantez () hatasi mevcut.
 
22. satirda -->IF(CARIGRUP = 202") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda tirnak "" eksikligi mevcut.
 
28. satirda -->IF(CARIGRUP = ") THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
29. satirda -->IF(CARIGRUP = 209") THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
31. satirda -->IF(CARIGRUP = "211) THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
25. satirda -->F(CARIGRUP = "205") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF ile baslanmasi gerekiyor.
 
26. satirda -->I(CARIGRUP = "206") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF ile baslanmasi gerekiyor.
 
24. satirda -->IF(CARIGRUP = "204") SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF den sonra THEN kullanilmamis.
 
27. satirda -->IF(CARIGRUP = "") THENN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda hataliyazim.ini dosyasindaki "" yazim hatasi mevcut.
 
33. satirda -->IF(CARIGRU = "212") THEN SONUCDETAY.ISKORANLARI() = 3
Bu satirda hataliyazim.ini dosyasindaki () yazim hatasi mevcut.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
LEFT de 2 karakter alinmis. Karsilastirma 3 karakter ile yapiliyor.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
Bu 000 degeri STOKKOD dosyasinda ilk 2 karakterde bulunamadi.
 
53. satirda -->IF( LEFT (STOKKODU,4) = "0101" AND STOKKODU <> "0101006" ) THEN
Bu 0101 degeri STOKKODU dosyasinda ilk 4 karakterde bulunamadi.
 
48. satirda -->IF(LEFT(STOKKODU,2) = "00") THEN
IF .. THEN blogundan sonra END IF kullanilmamis.

Programin indirme linki:

http://rapidshare.com/files/160998495/kosulkontrol.zip.html

Iyi çalismalar.