Excel dosyasını alıp okuyup üzerinde işlem yapabilirsin.
Eğer ki dosyanın içindeki veriyi okuyup satır ekleme işlemi yapacaksan: https://www.docs.clomosy.com/index.php?title=WriteLn" rel="nofollow - https://www.docs.clomosy.com/index.php?title=WriteLn
edit işlemi yapacaksan veriyi önce geçici bir stringliste alıp sonrasında düzenleme yaptıktan sonraa kayıt edebilirsin: https://www.docs.clomosy.com/ReWrite" rel="nofollow - https://www.docs.clomosy.com/ReWrite
Dosya işleme kodlarını inecelemk için : https://www.docs.clomosy.com/index.php?title=File_Handling" rel="nofollow - https://www.docs.clomosy.com/index.php?title=File_Handling
var originalFile, updatedFile : TclStringList; myFilePath, currentLine : String; i : Integer;
{ myFilePath = Clomosy.AppBasePath; //myFilePath = clPathCombine('myCompanyData.csv', Clomosy.AppBasePath); originalFile = Clomosy.StringListNew; updatedFile = Clomosy.StringListNew;
if ((clFileExists('myCompanyData.csv',myFilePath) == True)) { originalFile.LoadFromFile(myFilePath + 'myCompanyData.csv',0); for (i = 0 to originalFile.Count - 1) { currentLine = Clomosy.StringListItemString(originalFile, i); if ((Pos('Ali Yilmaz', currentLine) > 0)) { updatedFile.Add('101;Ali Yilmaz;65000'); } else { updatedFile.Add(currentLine); } } updatedFile.SaveToFile(myFilePath +'myCompanyData.csv',0); ShowMessage('Kayıt güncellendi ve eski dosyanın üzerine yazıldı!'); ShowMessage('Dosyanın bulunduğu konum: '+myFilePath); } else { updatedFile.Add('ID;Name;Salary'); updatedFile.Add('101;Ali Yilmaz;65000'); updatedFile.SaveToFile(myFilePath + 'myCompanyData.csv',0); ShowMessage('Dosya bulunamadı, bu yüzden yeni dosya oluşturuldu ve veriler eklendi!'); ShowMessage('Dosyanın bulunduğu konum: '+myFilePath); } }
.
|