Centar za edukaciju-BiH



#11 11.06.2017 22:28
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Kod za korekciju teksta
Koliko ja vidim ovaj teks ima tocno odredena struktura , taka da ako nema nekoja druga struktura ova e lesno da se izvadi samo tekstot.
Logika bi bila da izvuces posle broja i vreme linije koi nisu prazne
↑  ↓

#12 11.06.2017 23:38
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
Nije dobar kod, evo stavicu primere da se vidi, sa prvim kodom nije izvukao sav tekst i ima 7 stranica a sa drugim je lepo poceo da izvlaci ali nema vise od pola, samo 4 stranice. Ako moze da se doradi kod? Hvala unapred.

Prilozi:
Informacije o tipu datoteke za:rar  Drugi kod.rar
Preuzimanja:409
Velicina datoteke:16.14 KB
Informacije o tipu datoteke za:rar  Prvi kod.rar
Preuzimanja:481
Velicina datoteke:21.42 KB

↑  ↓

#13 12.06.2017 10:46
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Kod za korekciju teksta
Nije ti to do koda nego do racunara jer veliko je to pa nema dovoljno memorije da odradi.
podijeli na vise datoteka.
kao sto kaze Gjoreski ovaj fajl ima strukturu pa bi se to moglo uraditi direktno iz fajla a ne iz vorda.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 12.06.2017 12:50
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
Kod os zxz-a postavi tekst kao u knjizi samo sto ne moze sve da obuhvati. Kako ste mislili da moze direktno iz fajla da se uradi? Hvala puno unapred.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.06.2017 11:35 od strane Avko. ↑  ↓

#15 12.06.2017 15:19
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Kod za korekciju teksta
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub main()
  2.     Dim wdoc As Document
  3.     Dim para As Paragraph
  4.    
  5.     'ugasi ekran
  6.    Application.ScreenUpdating = False
  7.     'brisanje praznih redova, broja titla i vrijeme umetanja titla
  8.    For Each para In ActiveDocument.Paragraphs
  9.         If Not para.Range.Information(wdWithInTable) Then
  10.             If Len(para.Range.Text) = 1 Then
  11.                 para.Range.Delete
  12.                 para.Range.Delete
  13.                 para.Range.Delete
  14.             End If
  15.         End If
  16.     Next
  17.    
  18.     'brisanje novog reda
  19.    Selection.WholeStory
  20.     Selection.Find.ClearFormatting
  21.     Selection.Find.Replacement.ClearFormatting
  22.     With Selection.Find
  23.         .Text = "^p"
  24.         .Replacement.Text = " " //NAPOMENA: OVDJE JE RAZMAK IZMEDU NAVODNIKA
  25.         .Forward = True
  26.         .Wrap = wdFindAsk
  27.         .Format = False
  28.         .MatchCase = False
  29.         .MatchWholeWord = False
  30.         .MatchWildcards = False
  31.         .MatchSoundsLike = False
  32.         .MatchAllWordForms = False
  33.     End With
  34.     Selection.Find.Execute Replace:=wdReplaceAll
  35.    
  36.     'brisanje razmaka
  37.    'ako je nesto krivo uhvati gresku
  38.    On Error GoTo ERRORHANDLER
  39.     'provjera razmaka izmedu rijeci
  40.    With Selection
  41.         .HomeKey Unit:=wdStory
  42.         With .Find
  43.             .ClearFormatting
  44.             .Replacement.ClearFormatting
  45.              'ovdje gleda razmak izmedu redova
  46.            .Text = " [ ]@([! ])"
  47.              'stavi samo jedan razmak
  48.            .Replacement.Text = " \1"
  49.             .MatchWildcards = True
  50.             .Wrap = wdFindStop
  51.             .Format = False
  52.             .Forward = True
  53.              'izvrsi zamjenu vise razmaka u jedan
  54.            .Execute Replace:=wdReplaceAll
  55.         End With
  56.          
  57.         With .Find
  58.              'gleda razmak nakon paragrafa
  59.            .Text = "^p "
  60.              'samo paragraf bez razmaka
  61.            .Replacement.Text = "^p"
  62.             .MatchWildcards = False
  63.             .Wrap = wdFindStop
  64.             .Format = False
  65.             .Forward = True
  66.              'zamjeni
  67.            .Execute Replace:=wdReplaceAll
  68.         End With
  69.     End With
  70. ERRORHANDLER:
  71.     With Selection
  72.         .ExtendMode = False
  73.         .HomeKey Unit:=wdStory
  74.     End With
  75.     'aktiviraj ekran
  76.    Application.ScreenUpdating = True
  77. End Sub

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 13.06.2017 11:32 od strane Avko. ↑  ↓

#16 12.06.2017 18:29
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Kod za korekciju teksta
Pa ima vise nacina najbolje je kad nam objasnij koja cilj ovog zadatka.
Da ja ovo radim za sebe ja bi otvorio ovaj fajl iscitao redove sta meni trebaju i sve te nove redove upisem u neki drugi fajl,to bi sve uradio uz vb6 ili accesa.
↑  ↓

#17 13.06.2017 11:13
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Kod za korekciju teksta
To bi trebalo da je to za sada, ako bude trebala neka ispravka javicu se. Hvala puno svima na trudu, posebno Avku.
↑  ↓

#18 13.06.2017 11:29
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Kod za korekciju teksta
nema na cemu, i drugi put.
zivot je moja domovina.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 51 am.