VBS (VBScript) Dosyaları isimlendirmek

Bazen bilgisayar ortamında halletmeniz gereken basit ancak çokluğu nedeniyle insanı üşendiren bir durumla karşılaşabilirsiniz. Bu durumda genelde bilgisayar programı yazarız. Kullanabileceğimiz bir çok dil var ancak bu editörleri açmak bazen sıkıcı oluyor, bazende fazlaca vakit alıyor. Ayırca yeni birşeyler eklemek için tekrardan açıp derlemek işkenceye dönüşüyor.

ADF (automatik document feeder – otomatik döküman besleyici) ile taramış olduğum bir sürü evrak için dosya isimlendirmesi yapmam gerekiyordu. Evraklar arkalı önlüydü. Bu nedenle bir yüzünü taradığımda sayfa numaraları 1-3-5 şeklinde giderken sırasını bozmadan kağıtları çevirip tekrar cihaza koyduğımda sayfa numaraları tersten 12-10-8 gibi ilerliyordu. Total Commander ile bu şekilde bir numaralandırma yapmak imkansızdı. Elimin altında bulunan Delphi ve VS C# bu iş için biraz büyük kalacaktı. Bende Excel ve Word içinde bol bol kullandığımızdan VBS ile yapmaya karar verdim.

Tek numaraları sıralayan kod aşağıda:

Dim fso, folder, files, NewsFile,sFolder
Set fso = CreateObject("Scripting.FileSystemObject")
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
sFolder = currentDirectory
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files

Set sFiles = CreateObject("System.Collections.ArrayList")
For each folderIdx In files
If Right(folderIdx.Name, 3) = "JPG" then
sFiles.Add folderIdx.Name
End If
Next
SFiles.Sort()

iSayac = 1
Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
for each file in sFiles
sYeniIsim = sFolder & "Sayfa-" & String(3 - Len(Cstr(iSayac)), "0") & Cstr(iSayac) & ".JPG"
iSayac = iSayac + 2
NewFile.WriteLine(sYeniIsim & " " & file)
fso.MoveFile sFolder & file, sYeniIsim
Next
NewFile.Close

Tersten giden çift numaralar için ise:

Dim fso, folder, files, NewsFile,sFolder
Set fso = CreateObject("Scripting.FileSystemObject")
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
sFolder = currentDirectory
Set folder = fso.GetFolder(sFolder)
Set files = folder.Files

Set sFiles = CreateObject("System.Collections.ArrayList")
For each folderIdx In files
If Right(folderIdx.Name, 3) = "JPG" then
sFiles.Add folderIdx.Name
End If
Next
SFiles.Sort()
SFiles.Reverse()

iSayac = 2
Set NewFile = fso.CreateTextFile(sFolder&"\FileList.txt", True)
for each file in sFiles
sYeniIsim = sFolder & "Sayfa-" & String(3 - Len(Cstr(iSayac)), "0") & Cstr(iSayac) & ".JPG"
iSayac = iSayac + 2
NewFile.WriteLine(sYeniIsim & " " & file)
fso.MoveFile sFolder & file, sYeniIsim
Next
NewFile.Close

Bu kodların çalışabilmesi için sisteminizde .Net Framework kurulu olması gerekiyor. Çünkü Set sFiles = CreateObject(“System.Collections.ArrayList” komutu ile oluşturmuş olduğum sFiles nesnesi .net içinde yer alıyor.Bunu yapma nedenim dosya isimlerini sıralamak istememdi. Sıfırdan bir metin sıralama fonksiyonu yazmak yerine SFiles.Sort() komutunu kullanmak daha kolay geldi. Metin listesini tersten sıralamak içinse SFiles.Sort() komutundan sonra SFiles.Reverse() komutunu kullanmak yeterli.

iSayac değişkeninin başlangıç değerini değiştirerek istediğiniz rakamdan başlamasını sağlayabilirsiniz.

Kodlarda görebileceğiniz NewFile nesnesi FileList.txt dosyasına dosyaların yeni adlarını ve eski adlarını kaydetmektedir. Böylece bir yanlışlık olduğunda geri gönebilmemizi sağlayacaktır.

Bu kodları bir metin editörüne yapıştırdıktan sonra vbs uzantılı olarak kayhdetmeniz yeterli olacaktır.

SAP Nedir?

SAP için verilen eğitimler genelde kullanıcı eğitimidir. Birde danışmanlık eğitimleri vardır. Eğitim sonunda SAP Türkiye tarafından yapılan sınavı geçebilirseniz uluslararası geçerliliğe sahip bir sertifika edinebilirsiniz. Danışmanlık eğitimleri çok pahallı, 2500€-3000€.

SAP’ın Client kısmı C ortamında ABAP için yazılmış bir derleyiciden ibaret, bu nedenle multiplatform sayılabilir. Veritabanı olarak Oracle, MSSQL, MySQL gibi birçok veri tabanını kullanabilir. Yazılan Abap kodlarını derleyip çalıştıran birde Application Server kısmı mevcuttur.Tüm SAP, Abap ile yazılmıştır, kodlarını inceleyebiliyor, debug edebiliyorsunuz. Kodlar içerisine müdehale edilebiliecek alanlar (user-exit, enhancement, badi) bırakılmış durumdadır. Bu alanlara kod ekleyebiliyorsunuz. Kendiniz sıfırdan bir ekran oluşturabilirsiniz, yada izin verilmişse yeni alanlar ekleyebilirsiniz. Eğer kurallara uyarak kodlarınızı geliştirirseniz SAP güncelleme sonucunda, programlarınızda bir aksaklık olmayacağını garanti eder, bu nedenlede hızla büyüyor.

SAP’a eklediğiniz herşey Z harfi ile başlamalıdır, bu nedenle üzerinde çok fazla kod yazılan SAP’a ZAP derler.

Sertifikanızı aldıktan sonra bir firmada junior olarak çalışmaya başlarsınız, sizi ekip olarak işlere gönderirler. Ne zaman sizi tek başınıza işe gönderirlerse senior oldunuz sayılır. Bu süre azminize göre değişmekle birlikte 1,5-2 yıl sürer. Senior olduktan sonra paraya artık dolar diyebilirsiniz.

SAP bünyesinde çalışabileceğiniz birden fazla alan vardır:

Basis: genel donanım, veri tabanı, işletim sistemi, application server hataları ve optimizasyonu gibi işleri yaparlar.

Danışman: Modüllerin parametreleri vardır, her firmanın çalışma sistemine göre programın uyarlanabilmesi için bu parametrelerden yararlanılır. Danışmanlar parametreleri iyi bilirler.

Abap: Parametrelerin yetersiz kaldığı yerde abap kodları ile sorunlara çözüm üretirler, danışmanlarla birlikte çalışırlar.

SAP içinde aşağıdaki ana modüller bulunur. Her bir danışman bu modüllerden birinde uzmanlaşır, çünkü her bir modül çok kapsamlıdır. Abapçılar bir yada daha fazla modüle hakim olabilir, çünkü danışmanlardan yardım alabilmektedirler.

  • SD = Satış ve Dağıtım Modülü
  • MM = Malzeme Yönetimi Modülü
  • PP = Üretim Planlama Modülü
  • QM = Kalite Yönetimi Modülü
  • PM = Fabrika Yönetimi Modülü
  • HR = İnsan Kaynaları Modülü
  • FI = Finans Modülü
  • CO = Finans Kontrol Modülü
  • AM = Varlık Yönetim Modülü
  • PS = Proje Modülü
  • WF = İş Akışı Modülü
  • IS = Sanayi Çözümleri Modülü
    • IS-U = Enerji Dağıtım
    • IS-R = Parakende

Tüm modüllerin listesi için buradan bakabilirsiniz.

Ayrıntılı bilgi için aşağıdaki adresleri ziyaret edebilirsiniz.

http://en.wikipedia.org/wiki/SAP_R/3http://www.sapdocs.info

User Exist

SMODUser existlerin listelendiği ekrandır.Örneğin SUSR0001, kullanıcıların giriş yaptıktan sonra çalışan user exist’tir.User-existleri bulmak için firmalar özel programlar kullanırlar, SMOD içinden arama yaparak yada mevcut ekranların kodları incelenerek user-existler bulunabilir ancak yorucu olabilir.

Excel – Hücre değerlerini topla ve birleştir

Sum cells and merge 

Toplam = 0
    For i = 1 To Selection.Rows.Count
      Toplam = Toplam + Selection.Cells(i, 1)
      Selection.Cells(i, 1).Clear
    Next i
    With Selection
        .Merge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    Selection.Cells(1, 1) = Toplam

Bilgi Mühendisliği

İnternet üzerinde bir insan hakkında bilgi toplamak için aşağıda vereceğim kaynakları kullanabilirsiniz.

Eğer adını ve soyadını biliyorsunuz KYK (Kredi Yurtlar Kurumu) vasıtasıyla aradağınız kişinin baba adını öğrenebilirsiniz.

SGK (Sosyal Güvenlik Kurumu) sayfalarında yer alan sigortalılık tescil kaydı sorgulaması yardımıyla aradığınız kişinin tam doğum tarihini ve TC Kimlik numarasını öğrenebilirsiniz.

Kişisel bilgiler için Facebook sitesine bakabilirsiniz.

Bunun için devlet memuru olmuyorum

Bir ilimizdeki Çevre ve Orman İl Müdürü Dünya Su Forumu’na katılmıştı. Facebook’da forum ile ilgili yaptığı yorum çok manidar:

paylaşım

Bu tipten memurlarla dolu devlet daireleri, bu nedenle onların arasında bile yer almak boğuyor beni.

Diyecek başka birşey bulamıyorum.

NOT: Bu paylaşım 10.10.2015 tarihinde ilgilinin uyarısı üzerine kişilik haklarını korumak için ismini içermeyecek şekilde değiştirilmiştir.

Eti TMP ödülü almış

http://www.haberler.com/2-5-milyon-euro-ya-daha-verimli-oldu-36-6-milyon-haberi sitesindeki habere göre Eti ödüle layık görülmüş. Güzel bir ödül, Eti’yi tebrik ediyorum. Katılmadığım bazı noktaları da var. Müşteri şikayetlerinin azaldığını hiç sanmıyorum. Ben kendim 3-4 şikayette bulundum ancak bir müdahale olmuyor, yapılması imkansız önerilerde bulunuyor temsilciler. Örnekler:

Eti puflar artık aliminyum kapaklı olarak üretilmiyor, plastik poşetle kapatılıyor. Eskiden olduğun gibi tek hamlede kutuyu açmanız mümkün değil, poşet yırtılıyor. Eti bundan büyük kar etmiştir eminim, ancak ben uyuz olduğum için artık almıyorum. Müşteri temsilcisi bu şikayetim için açılmayan ürünü göndermemi istedi 🙁

Eti baharatlı çubuk krakerler ilk çıktığında daha baharatlıydı bende bu nedenle birkaç arkadaşım gibi severdim. Crax serisine geçince baharat oranı azaltıldı. Bizimde hoşumuza gitmedi tabi. Şikayet bildirdik, baharatı az olan ürünü göndermemi istedirler 🙁 Sonraları acılı versiyonu çıktı ama eski tadı yoktu onuda bıraktık.

Daha fazla para kazanmak için ayrıntılar önemlidir. Bir değişiklik yaptığınızda müşteriler kazanabileceğiniz gibi kaybedebilirsinizde.

Ençok takıldığım konu ise eti’nin web sitesi. Şu 36 milyon euronun 5-10 milyarı ile www.eti.com.tr sitesini satın alsalar ne iyi olacak. Eskiden kalan bir slogan olarak kullanılan www.etietieti.com.tr adresi hakketen komik bence, kurumsal değil.

Nokia telefonlara program yüklemenin en kolay yolu

Nokia telefonların yeni serilerinde (6120c, 6220, N95, N93, v.s.) yazılım yüklerken karşılaşılan en sık hata sertifika sorunları. İnternette bir çok crack var ancak bunlar telefonun ana yazılımına (firmware) müdahale ettiği için hem sakıncalı hemde ana yazılımı güncellediğinizde yada fabrika ayarlarına döndüğüzde tekrar aynı hatalarla karşılaşabiliyorsunuz. Bunun kesin çözümü yüklediğiniz programların sertifikalı olması. Aşağıda analatacağım yöntemle telefonunuza özel bir sertifika edinip programları imzalayarak telefonunuza sorunsuzca yükleyebilirsiniz.

http://cer.s603rd.cn/ adresindeki soldaki metin kutusuna telefonunuzun IMEI numarasını ve sağdaki metin kutusuna ise güvenlik kodunu girin. 12 saat sonra aynı siteye girerek tekrar gerekli bilgileri girin, karşınıza iki düğme içeren bir sayfa gelecek. Sağdaki düğmeye basarak sertifikanızı bilgisayarınıza kaydeniz. Signed Tool yazısına tıklayarak sertifikalama işlemini yapan bilgisayar programını indirin.

İndirdiğiniz programı çalıştırdığınızda sertifika dosyasını ve uygulama dosyasını seçerek sertifikalandırma işlemeni kolayca yapabilirsiniz.

e-alışveriş siteleri

Son dönemde elektronik alış veriş siteleri sayısında bir azalma söz konusu. Sözkonusu sitelerin (webleli, yeterkiiste,tio) hiç birisinin ekonomik krizden dolayı kapandığına inanmıyorum. Bu sitelerden en fazla 2. kez alış-veriş yapmışımdır. Müşteri ilişkileri çok kötü olan bu firmaların kapanması doğaldır. Gerekli bilgiler için sikayetvar.com gibi sitelere ve forumlara bakılabilir. Bu firmaların işlendiği en büyük kusurlar;

  • Stok bilgilerini güncel tutmuyorlar, ürünü şipariş ediyorsunuz 1 hafta sonra ancak ellerinde olmadıklarını söylüyorlar.
  • Bir tıklama ile ödemeyi yaparken 4-5 mail 3-4 telefon görüşmesi ile ancak paranızı geri iade alabiliyorsunuz.
  • Ürününüz kargoya vermişmiş görünüyor ama kargoda hiçbir kaydı çıkmıyor, yani kargoya verilmemiş ürünü sanki hemen sevk edilmiş gibi gösteriyorlar.
  • Kendilerine ulaşabilmek için telefon, email, faks alt yapıları eksik yada bu bilgileri bir detektif gibi sitelerinde aramanız gerekiyor.
  • Ürün detaylarında eksik yada hatalı bir çok bilgi bulunabiliyor, şahsen ben almadan önce birde üreticinin sitesine bakarım her zaman.
  • Sitelerinin tasarımı bir işportacı dükkanını hatırlatıyor çoğu zaman buda güven sorunu meydana getiriyor.

Şuanda piyasa çok büyük oyuncular olduğu için yeni kurulan firmalara pek yaşam şansı tanınmıyor, onların farklı şeyler yapmaları gerekiyor. Güven aşılamak için büyük şehirlerde sabit ofis şeklinde küçük yerler bulundurabilirler. Buradaki personelleri boş durmaz, gelen maillere cevap yazabilirler en azından.