Useita satoja sivuja sisältävästä dokumentista pitäisi kopioida sellaiset rivit, joissa esiintyy tietyt kaksi merkkijonoa. Käytännössä merkkijonot ovat perättäisillä riveillä.
Esimerkiksi:
qqqqqqqqqqq Merkkijono1: xxxxxxxxxxxxxxxx
ööööööööööööööööööö Merkkijono2: xxxxxxxxxxxx
zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
Merkkijono1 xxxxxxxxxxxxxxxx
Merkkijono2
Ongelmana minulla on, että vaikka em. kentät (merkkijonot) ovat sinänsä määrämuotoisia MUTTA merkkijono2: -kenttä voi olla myös tyhjä.
Tulikohan nyt riittävän epäselvästi selitettyä... Mutta kiitokset, jos apu löytyy vaikka täältä!
VBA tiettyjen rivien kopiointi
1
119
Vastaukset
Kävipä hassusti. Luulin, että olin OpenOffice -sivustolla, kun luin aloitusviestin. Sitten massamuististani löytyi tämmöinen OpenOfficessa jotenkin toimiva koodi:
------------------
Sub Main
RivitEriTiedostoon("Merkkijono1",1)
End Sub
Rem Muunnoslähde: https://wiki.openoffice.org/wiki/Writer/API/Text_cursor
Rem alkuperäinen laatija: JohnV (2003)
Rem Muunnos: RJ/2015
Sub RivitEriTiedostoon (sMerkkijono as String, iRiviLkm as Integer)
dim oDoc,oVC,NewDoc,filename,url,oTC,oNewDocVC,newname,newurl,n
oDoc = ThisComponent
oVC = oDoc.CurrentController.getViewCursor 'Create View Cursor oVC
oVC.gotoStart(false) 'Make oVC position itself to the start of the document
NewDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array()) 'Open blank Writer doc
oNewDocVC = NewDoc.CurrentController.getViewCursor 'Create another View Cursor for this new document
Do
oTC = oDoc.Text.createTextCursorByRange(oVC) 'Create Text Cursor by cloning the View Cursor (both have same position in doc)
oVC.gotoStartOfLine(False)
oVC.gotoEndOfLine(True) 'Valitaan uusi rivi
'oVC.jumpToEndOfPage 'Move View Cursor oVC to EndOfPage
oTC.gotoRange(oVC,true) 'Move Text Cursor to same location as oVC while selecting text in between (True)
IF Instr(oTC.String,sMerkkijono) then
Rem riviltä löytyi 1. tunnusmerkkijono
Rem laajennetaan valintaa yhdellä rivillä
oVC.goDown(iRiviLkm, False) 'Rivejä alaspäin, esim. 1
oTC.gotoRange(oVC,true) 'Tekstikursorivalinta
oNewDocVC.String = Chr(10) & oTC.String & Chr(10)
oNewDocVC.gotoEnd(False) 'Varmistetaan, ettu tuloskursori on alimpana. Ehkä turhaa tässä?
EndIf
Loop While oVC.goDown(1, False) 'Katkaissee valinnan siirryttäessä seuraavalle riville?
'NewDoc.dispose 'Close NewDoc
Rem Tulostiedosto jää tallentamattomana auki
End Sub 'RivitEriTiedostoon
------------------
Tiedä sitten, saako tuota muokattua VBA:lla toimivaksi? Osa pitkistä riveistä voi olla poikki tämän s24-systeemin vuoksi?
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
20v on otettu kiinni
Tulipalo oli sytytetty joten murhasiko ex omat lapsensa ja heidän Äidin. Tuskin sitä kukaan ohikulkijakaan sytytti.31511220Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin
Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko313436- 793037
IL - Auerin lapsia oli houkuteltu rahalla Annelin puolelle?
16:12 Outoja väitteitä Sijaisäidin mukaan Auerin lapsia koetettiin houkutella nettipalstoilla muuttamaan kertomuksiaan952741- 892611
Savonlinan perhesurma, epäilty mies romani, äiti kantaväestöä
https://www.is.fi/kotimaa/art-2000011676508.html Savonlinnan seudun romaniyhdistyksestä kerrottiin lauantaina IS:lle, e1542331Savonlinnan murhapolttaja romani
Ainakin IS kertoo. Arvasin heti ettei ole normi valkolainen suomalainen.2712223- 451471
Kun aika on oikea niin
Tupsahdat uudelleen tai löydän edes melkein yhtä ihanan ja joudun tyytymään... Suukko poskelles. 😘 Viattomasti vain.. �131445Muutama vuosi sitten oli pulaa hoitohenkilökunnasta
Nyt heitä sanotaan irti. Tarve ei ole hävinnyt mihinkään, ei myöskään raha jolla ihmisten työnteosta maksettiin; raha va1401366