richedin içeriğini Web Sayfası(Süzülmüş) kaydetme

[mepc]

Merhaba Arkadaşlar

Richeditin içeriğini süzülmüş web sayfası olarak nasıl kaydedebilirim? (Word ile bu işi manuel yapabiliyorum ama ben döngü ile yaklaşık 100.000 kaydı bu şekilde kaydedeceğim)

Not: Normal html kaydedebiliyorum. Ancak bu belgeler internet ortamında content manager ile sorgulanıyor. Content manager normal web sayfası içerisinde geçenleri bulamıyor. Ancak süzülmüş web sayfaları içerisinde kelime bulabiliyor.

[naile]

Cahilliğimi mazur görün süzülmüş web sayfası ne demek?

[mepc]

Valla bende farkını tam bilmiyorum. Ama Word ile kaydederken kayıt tipi olarak süzülmüş web sayfası seçeneği var.

Bu şekilde kayıt yapınca metin içi arama yapılabiliyor. Normal web sayfası olarak kayıt yapınca sayfada arama yapılamıyor (content manager ile)

[mege]

bende word 2000 var, ancak menülerde bulamadım bunu? farklı kaydet veya web sayfası olarak kaydette olsaydı dener söylerdim.

öyleyse yazınızı worde aktarıp oradan kaydedin..

Kod: Tümünü seç

ActiveDocument.SaveAs FileName:= _
        "Denemem denemedenemdem dnemdendem dendn end.htm", FileFormat:= _
        wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

sizde kodu öğrenmek için makro kaydeti tıklayarak işleminizi yapın, sonra makroyu durdurun vb editörde makronun koduna bakın yukarıdaki kodu böyle aldım.

[mepc]

Ben de Word 2000 kullanıyorum. Menülerde var. Şu an ekran görüntüsünü koyamıyorum.

Kod: Tümünü seç

 Dosya/Farklı kaydet/Kayıt türü

bölümünde var

Worde aktarıp kaydetmek kolayda kayıt sayısı 100.000 olunca biraz zorlaşıyor.[[/quote]

[derya]

Doğru anladıysam rtf'i html'e cevirmek istiyorsunuz. Jedi'nin rtf'i html sitesi okuyup yazabiliyor. Jedi Demolarina bir göz atin.
Torry.net'de bir rtf 2 html arayın. Orada bir convert dll bulunuyor ve ayrıca birde bir kodlu program var.

[mepc]

Teşekkür ederim bi bakayım.

[shadowmann]

doc to suzulmuş web sayfası.
Bir klasördeki docları süzülmüş web sayfasına çevirebilirsiniz.
Megeye teşekkürler.
Download için http://www.mukellef.net/files/shadowman.doc

(İyi bir sistem gerekiyor gibi görünüyor.)
10 dakika içinde 1512 sayfayı dönüştürdüm.
Benim sistemin özellikleri 1 gb ram p4 2.4 işlemci.
Bu hesapta yaklaşık 662.251655629139 dakikada iş biter.
Bu da 11.037527593819 saat yapar. (11 saat)

[mepc]

Üstad makroyu çalıştıramıyorum.

Kod: Tümünü seç

The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros

hatası veriyor.

[mege]

Üstad makroyu çalıştıramıyorum.

Kod: Tümünü seç

The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros

hatası veriyor.

hoccam vb yi aç makrolardan makro textini kopyala. kendin bi dosya oluştur. onda makro oluştur.. bunu yapıştır

veya kodu delphi ile yap daha kolay

[shadowmann]

macro textini kopyala yapıştırla sorunu çözemezsin. Çünkü bu doc dosyası açılışda karşınıza form getiriyor. Wordde macro güvenligini düşük seviyeye indirmeniz gerekiyor. O zaman çalışır.

Bu konuda delphi kodunu yazan varsa burada yazarsa çok iyi olur.

[mepc]

Güvenlik seviyesini düşüğe indirince sorun çözüldü

Teşekkürler üstad.

[shadowmann]

İşinize yaradığına sevindim. İsteyen arkadaşlar kendileri macro kodun gerekli kısmını değiştirip ofisdeki dökümanların formatlarını değiştirmek için kullanabilirler.

Kolay gelsin.

[mege]

gel vatandaş süzülmüş çorba aman html burda


sayfa 3 saniyede hizmete hazır , 2. denemede 2 saniye sürdü

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
    // word için
    WordFile  :variant;
begin
  label1.caption:= timetostr(now);
  WordFile:=createoleobject('word.application'); 
  WordFile.Documents.open(ExtractFilePath(Application.ExeName)+'a.rtf',EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam);

  WordFile.ActiveDocument.SaveAs(FileName := ExtractFilePath(Application.ExeName)+'a.html',
    FileFormat:=8, AddToRecentFiles := False);

  WordFile.Quit;
  WordFile:=Unassigned;
  label2.caption:= timetostr(now);
end;

tabi bunun kötü tarafı beraberinde wordü de taşımanız gerekecek hehe

file formatı değiştirip doc text veya htmlden doc yapabilirsiniz.
4 wdFormatDOSText
8 wdFormatHTML
6 wdFormatRTF
7 wdFormatUnicodeText
vs.. vs..

[mepc]

Tebrik ederim arkadaşlar

Olayı hallettik şimdi bu işi kim daha hızlı yaparın yarışını yapıyoruz.

Varmı bu işi 1. sn. de yapacak