Extract Latitude e Longitude strings from text

[deltamu]

Hello,

I have a .txt file with a very long text. I would like to extract Lat and Long that follow the text "Coordinate: " using this pattern

##°##’##,##” N - ##°##’##,##” E

after the comma can be one or two digit and after the dash there is often, but not always, a space character.

I would like to write Latitude (the first one) in column A and Longitude in column B of an Excel Worksheet.

I've found a very similar question in this post to which Rick Rothstein gave a very smart solution.

The problem is that I can't figure out how to compare my Txt string with my pattern how in Rick's piece of code

[COLOR=#333333][FONT=Verdana][FONT=monospace]If (Txt(0) = "input," Or Txt(0) = "output,") And Not Txt(1) Like "*[!0-9]*" Then[/FONT][/FONT][/COLOR]

The following is an example of my text. In red what I would like to extract:

......lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus.


Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Donec mollis hendrerit risus. Aenean tellus metus, bibendum sed, posuere ac, mattis non, nunc. Vestibulum fringilla pede sit amet augue. In turpis. Pellentesque posuere. Praesent turpis. Aenean posuere, tortor sed cursus feugiat, nunc augue blandit nunc, eu sollicitudin urna dolor sagittis lacus. Donec elit libero, sodales nec, volutpat a, suscipit non, turpis. Nullam sagittis. Suspendisse pulvinar, augue ac venenatis condimentum, sem libero volutpat nibh, nec pellentesque velit pede quis nunc. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Fusce id purus. Ut varius tincidunt libero. Phasellus dolor. Maecenas vestibulum mollis
Coordinate: 38°44’12,25” N *14°06’50,45” E Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc, quis gravida magna mi a libero. Fusce vulputate eleifend sapien.
Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus Coordinate: 37°42’28,2” N *14°11’42,1” E Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. ......

Thanks for your help.

 

[Rick Rothstein]

Please clarify the Northing/Easting data structure... you said in your description that there was a dash between them where the space after the dash was not always there. In the sample text file, there is no dash at that location, rather, there is an asterisk. Which is it... a dash or an asterisk?

 

[deltamu]

Sorry, you're right. I had some problem with posting and so I copied my message into notepad and copied it again here. I didn't realize that these operations changed some character in the text.
The right sample text is the following:
...
Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Fusce id purus. Ut varius tincidunt libero. Phasellus dolor. Maecenas vestibulum mollis
Coordinate: 38°44’12,25” N -14°06’50,45” E Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Aenean commodo ligula eget dolor. Aenean massa. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Donec quam felis, ultricies nec, pellentesque eu, pretium quis, sem. Nulla consequat massa quis enim. Donec pede justo, fringilla vel, aliquet nec, vulputate eget, arcu. In enim justo, rhoncus ut, imperdiet a, venenatis vitae, justo. Nullam dictum felis eu pede mollis pretium. Integer tincidunt. Cras dapibus. Vivamus elementum semper nisi. Aenean vulputate eleifend tellus. Aenean leo ligula, porttitor eu, consequat vitae, eleifend ac, enim. Aliquam lorem ante, dapibus in, viverra quis, feugiat a, tellus. Phasellus viverra nulla ut metus varius laoreet. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Nullam quis ante. Etiam sit amet orci eget eros faucibus tincidunt. Duis leo. Sed fringilla mauris sit amet nibh. Donec sodales sagittis magna. Sed consequat, leo eget bibendum sodales, augue velit cursus nunc, quis gravida magna mi a libero. Fusce vulputate eleifend sapien.
Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus. Quisque rutrum. Aenean imperdiet. Etiam ultricies nisi vel augue. Curabitur ullamcorper ultricies nisi. Nam eget dui. Etiam rhoncus. Maecenas tempus, tellus eget condimentum rhoncus, sem quam semper libero, sit amet adipiscing sem neque sed ipsum. Nam quam nunc, blandit vel, luctus pulvinar, hendrerit id, lorem. Maecenas nec odio et ante tincidunt tempus. Donec vitae sapien ut libero venenatis faucibus Coordinate: 37°42’28,2” N -14°11’42,1” E Curabitur...

 

[Rick Rothstein]

Give this macro a try (it lets you pick the text file to process)...

[table="width: 500"]
[tr]
	[td]Sub NorthingEastings()
  Dim X As Long, FileNum As Long
  Dim FileName As String, TotalFile As String, Txt() As String, Coord() As String
  Dim N As Variant, E As Variant, Result As Variant
  Const Delim As String = "-"
  FileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  FileNum = FreeFile
  Open FileName For Binary As #FileNum 
    TotalFile = Space(LOF(FileNum))
    Get #FileNum , , TotalFile
  Close #FileNum
  Coord = Split(Replace(Replace(TotalFile, " " & Delim, Delim), Delim & " ", Delim), "Coordinate:")
  ReDim Result(1 To UBound(Coord), 1 To 2)
  For X = 1 To UBound(Coord)
    Coord(X) = Left(Trim(Coord(X)), InStr(Trim(Coord(X)), "E"))
    Txt = Split(Coord(X), Delim)
    Result(X, 1) = Txt(0)
    Result(X, 2) = Txt(1)
  Next
  Range("A1").Resize(UBound(Result), 2) = Result
End Sub[/td]
[/tr]
[/table]

 

[deltamu]

Thank you very much for yout time, Rick.
The marco gives runtime error 9

 

[Rick Rothstein]

Thank you very much for yout time, Rick.
The marco gives runtime error 9

I am guessing you would not want to post the file openly. If you trust me not to misuse your file, please send me a copy of the file that is generating that error message so that I can watch my code working on it live. My email address is...

rick DOT news AT verizon DOT net

 

[deltamu]

There's nothing secret about that. It's a very long file converted from a pdf and its structure is similar to the text I posted above. So here you are an excerpt from it:

LOCALIZZAZIONE
Comune: Bisacquino (PA) Località: Santa Maria del Bosco Cartografia: Foglio I.G.M. N. 619 Lercara Friddi. C.T.R. Sezione N. 619070 – Contessa Entellina Coordinate: 37°42’40,3” N ­ 13°13’17,8” E (4175133 N – 2363174 E) Proprietà: privata Accesso: l’esemplare si trova nelle vicinanze della SP 35 Bisacquino­Sambuca di Sicilia

ROVERELLA GRANDE
DI RIFESI
IDENTIFICAZIONE

ROVERELLA
Nome scientifico: Quercus virgiliana (Ten.) Ten.
Famiglia: Fagaceae
Nome volgare: Roverella, Quercia virgiliana, Quercia castagnara
Nome locale: Cerza
LOCALIZZAZIONE
Comune: Palazzo Adriano (PA)
Località: c.da Rifesi
Cartografia: Foglio I.G.M. N. 620 – Lercara Friddi. C.T.R. Sezione N. 620130 – Pizzo di Gallinaro Coordinate: 37°36’35,15” N ­ 13°20’29,61” E (4163810 N – 2373617 E) Proprietà: Azienda Regionale Foreste Demaniali Accesso: dalla SP 15 Palazzo Adriano­Bivona, in direzione del Santuario di Rifesi
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 753 Esposizione: sud­est Giacitura: leggermente in declivio Substrato: calcareo Contesto vegetazionale: querceto Tutela: zona A della riserva naturale orientata “Monti di Palazzo Adriano e Valle del Sosio”
PRINCIPALI CARATTERISTICHE MORFOLOGICHE

ROVERELLA
DEL SANTUARIO DI RIFESI
IDENTIFICAZIONE
Nome scientifico: Quercus virgiliana (Ten.) Ten. Famiglia: Fagaceae Nome volgare: Roverella, Quercia virgiliana, Quercia castagnara Nome locale: Cerza

214

LOCALIZZAZIONE
Comune: Palazzo Adriano (PA) Località: contrada Rifesi Cartografia: Foglio I.G.M. N. 620 – Lercara Friddi. C.T.R. Sezione N. 620130 – Pizzo di Gallinaro Coordinate: 37°36’27,69” N ­ 13°20’35,63” E (4163577N – 2373761 E) Proprietà: Azienda Regionale Foreste Demaniali Accesso: dalla SP 15 Palazzo Adriano­Bivona, in direzione del Santuario di Rifesi
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 819 Esposizione: nord­est Giacitura: lieve pendenza Substrato: calcareo Contesto vegetazionale: margini del querceto caducifoglio Protezione: zcaddero in oblio i chiostri, le Chiese, i canoni ed il regio pa­tronato”. Il complesso del Rifesi, divenuto Santuario nel 1987 per concessione del Vescovo Luigi Bomma­rito, è costituito da una chiesa e dall’adiacente monastero benedettino, in stile normanno. La chiesa, a tre absidi, presenta affreschi del XVII e i ritratti del Prefetto Ansaldo e del Vescovo Gentile. Del monastero ri­mangono solo i muri perimetrali con ampie arcate, il chiostro e un pozzo. Attorno al complesso monumen­tale si osserva un ampio fossato, probabilmente quanto resta delle mura di difesa. Nella chiesa era custodito l’antico Crocifisso in legno del XII secolo, venerato tutt’oggi dagli abitanti di Burgio. Secondo la leggenda, il

ROVERELLA BITORZOLUTA
DI RIFESI
IDENTIFICAZIONE
Nome scientifico: Quercus virgiliana (Ten.) Ten. Famiglia: Fagaceae Nome volgare: Roverella, Quercia virgiliana, Quercia castagnara Nome locale: Cerza
LOCALIZZAZIONE
Comune: Palazzo Adriano (PA) Località: Bosco di Rifesi Cartografia: Foglio I.G.M. N. 620 – Lercara Friddi. C.T.R. Sezione N. 620130 – Pizzo di Gallinaro Coordinate: 37°36’34,41” N ­ 13°20’34,03” E (4163785 N – 2373725 E) Proprietà: Azienda Regionale Foreste Demaniali Accesso: dalla SP 15, Palazzo Adriano­Bivona, seguendo le indicazioni per il Santuario di Rifesi
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 829 Esposizione: sud­est Giacitura: lieve pendenza Substrato: calcareo Contesto vegetazionale: querceto Tutela: zona A della Riserva naturale orientata “Monti di Palazzo Adriano e Valle del Sosio”
PRINCIPALI CARATTERISTICHE MORFOLOGICHE
Stato vegetativo e sanitario: complessivamente discreto, nonostante la presenza di diverse iperplasie sul fusto e sulle branche. Minacce: attualmente non sussiste nessuna minaccia Interventi proposti: decespugliamento volto a contenere lo sviluppo della componente arbustiva
Note e curiosità: si tratta di un individuo di una mostruosità incredibile: ogni rigonfiamento sembra racchiudere un segreto, una storia, una leggenda. Nelle vicinanze si notano diversi altri individui ragguardevoli tra i quali uno, con il fusto e la chioma quasi completamente occultati dall’edera, possiede una circonferenza a petto d’uomo paria 5,50 m
217

PERASTRO
DI RIFESI

PERASTRO
IDENTIFICAZIONE
Nome scientifico: Pyrus amygdaliformis Vill. (= P. spinosa Forssk.)
Famiglia: Rosaceae
Nome volgare: Pero mandorlino
Nome locale: Pranju, Piru sarvaggiu

LOCALIZZAZIONE
Comune: Palazzo Adriano (PA) Località: Bosco Rifesi Cartografia: I.G.M. Foglio N. 620 – Lercara Friddi. C.T.R. Sezione N. 620130 – Pizzo di Gallinaro Coordinate: 37°36’14,61’’N ­ 13°20’27,12’’E (4163178 N ­ 2373545 E) Proprietà: privata Accesso: dall’abitato di Burgio, lungo la stradella per il Santuario di Rifesi
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 814 Esposizione: sud­ovest Giacitura: in leggero declivio Substrato: calcareo Contesto vegetazionale: margine del querceto caducifoglio Protezione: zona A della Riserva naturale orientata “Monti di Palazzo Adriano e Valle del Sosio”
PRINCIPALI CARATTERISTICHE MORFOLOGICHE
Struttura e portamento: vetusto perastro dall’ampia base spiralata, di forma circolare, dalla quale si erge il fusto contorto, bitorzoluto e corrugato, rico­perto da numerose colonie di licheni ed iperplasie batteriche. Esso si bi­forca a circa 2,90 m dal suolo in due grosse branche di cui sopravvive solo quella a valle Altezza (m): 4,50 Circonferenza massima del tronco (m): 3,80 Circonferenza del tronco a 1,30 m dal suolo (m): 2,75 Ampiezza della chioma (m): 4,0 m (N­S) × 6,0 m (E­O) Età stimata (anni): circa 300
CONDIZIONI DELL’ESEMPLARE
Stato vegetativo e sanitario: complessivamente mediocre. Si notano estese carie che interessano il fusto e la branca di monte che è quasi del tutto disseccata Minacce: nessuna, a parte le avversità parassitarie Interventi proposti: potatura di ringiovanimento ed asportazione dei rami secchi
Note e curiosità: la pianta si trova a valle della strada sterrata, poco prima del Santuario di Rifesi. Nelle adiacenze sono presenti alcuni grandi esem­plari di roverella
PERO MANDORLINO
DI VILLA LANZA

PERASTRO
IDENTIFICAZIONE
Nome scientifico: Pyrus amygdaliformis Vill. (= P. spinosa Forssk.)
Famiglia: Rosaceae
Nome volgare: Pero mandorlino
Nome locale: Pranju, Piru sarvaggiu


LOCALIZZAZIONE
Comune: Gratteri (PA) Località: contrada Pianetti Cartografia: I.G.M. Foglio N. 610 – Castelbuono. C.T.R. Sezione N. 610010 Gibilmanna Coordinate: 37°58’37,98’’ N ­ 14°00’45,89’’ E (4203747 N – 2433294 E) Proprietà: privata Accesso: da Gibilmanna si prosegue verso Gratteri e, dopo 1,5 km, si segue l’indicazione per la Fattoria Pianetti
PARAMETRI STAZIONALI

ROVERELLA

ROVERELLA
DI GIBILMANNA
IDENTIFICAZIONE
Nome scientifico: Quercus virgiliana (Ten.) Ten. Famiglia: Fagaceae Nome volgare: Roverella, Quercia virgiliana, Quercia castagnara Nome locale: Cerza, Uscigghiu
LOCALIZZAZIONE
Comune: Cefalù (PA) Località: contrada Pianetti Cartografia: I.G.M. Foglio N. 610 – Castelbuono. C.T.R. Sezione N. 610010 Gibilmanna Coordinate: 37°58’39,54’’ N ­ 14°00’59,1’’ E (4203791 N – 2433614 E) Proprietà: demanio comunale Accesso: dalla SP 28, al bivio per Gratteri, Isnello ed il Santuario di Gibilmanna
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 735 Esposizione: nord­est Giacitura: sub­pianeggiante Substrato: quarzarenitico Contesto vegetazionale: margine del bosco di querce caducifoglie Protezione: zona B del Parco delle Madonie
PRINCIPALI CARATTERISTICHE MORFOLOGICHE
Struttura e portamento: magnifico esemplare dal tronco possente, leggermente inclinato verso sud, diviso, a circa 2,30 metri dal suolo, in tre grosse branche: le due esterne sono disposte a “V” e curvate verso monte, mentre quella centrale è diritta e dà continuità in altezza al fusto. Quest’ultimo possiede una base slargata, con tre grandi aperture che evi­denziano attacchi di funghi agenti della carie del legno e bruciature quali segni di passati incendi. Dalle lunghe branche di primo ordine hanno origine numerose ramificazioni di ordine inferiore che sorreggono un’ampia chioma tendenzialmente ad ombrello Altezza (m): 23 Circonferenza massima del tronco (m): 7,00 Circonferenza del tronco a 1,30 m dal suolo (m): 5,40 Ampiezza della chioma (m): 22 (E­O) × 24 (N­S) Età stimata (anni): 450
CONDIZIONI DELL’ESEMPLARE
Stato vegetativo e sanitario: complessivamente buono. Nella parte basale del tronco, in corrispondenza delle tre aperture, si notano attacchi di carie Minacce: eccessivo calpestio del suolo attorno all’esemplare ed utilizzo dell’area per­tinente allo stesso per scopi ricreativi Interventi proposti: controllo delle carie e riduzione della pressione antropica sotto l’area di proiezione della chioma
Note e curiosità: l’esemplare monumentale domina un ampio pianoro, utilizzato per scopi ricreativi, stagliando la sua possente chioma sul vicino Monte Sant’Angelo e sul massic­cio carbonatico delle Madonie. Esso fa parte del querceto di roverelle che caratterizza le pendici circostanti al Santuario di Gibilmanna. Nelle adiacenze di questo esemplare si pos­sono osservare diverse altre grandi roverelle: una, in particolare, presenta la base del tronco allargata a “zampa di elefante” raggiunge la circonferenza massima di circa sette metri

ROVERELLA
DI PIANO TORRE


ROVERELLA
IDENTIFICAZIONE
Nome scientifico: Quercus dalechampii Ten.
Famiglia: Fagaceae
Nome volgare: Roverella, Quercia di Dalechamp
Nome locale: Cerza, Ruvulu
LOCALIZZAZIONE
Comune: Isnello (Palermo) Località: Piano Torre Cartografia: I.G.M. Foglio 609 – Termini Imerese. C.T.R. Sezione N. 609080 – Collesano – Piano Zucchi Coordinate: 37°54’41,44’’ N – 13°59’20,48’’ E (4196476 N – 2431127 E) Proprietà: privata Accesso: dalla strada provinciale per Piano Zucchi, a valle dell’Hotel Piano Torre
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 825 Esposizione: nord Giacitura: leggermente in declivio Substrato: quarzarenitico Contesto vegetazionale: bosco misto di leccio e roverella Protezione: zona B del Parco delle Madonie
PRINCIPALI CARATTERISTICHE MORFOLOGICHE
Struttura e portamento: roverella di notevole dimensione, con fusto colonnare a sviluppo regolare, leggermente incurvato e ricoperto da un ritidoma spesso e fessurato. La parte sommitale del fusto è stata colpita da un fulmine che ne ha provocato il distacco di una porzione significativa. La chioma, tendenzialmente ombrelliforme, è inserita a 3 m dal suolo ed è più sviluppata nel senso della lunghezza Altezza (m): 13 Circonferenza massima del tronco (m): 8,30 Circonferenza del tronco a 1,30 m dal suolo (m): 6,40 Ampiezza della chioma (m): 17,5 × 16 Età stimata (anni): 700 ­ 800
CONDIZIONI DELL’ESEMPLARE
Stato vegetativo e sanitario: complessivamente discreto. La parte del tronco squarciata dal fulmine manifesta notevoli attacchi di funghi patogeni del legno. Estese carie si hanno anche su alcuni monconi di branche disseccate e nella parte a monte del pedale, alla cui base si accumula una certa quantità di legno cariato Minacce: incendi Interventi proposti: urgenti interventi dendrochirugici sulle parti attaccate dalle carie; asportazione dei monconi di branche e rami disseccati
Note e curiosità: l’esemplare è localizzato in una piccola depressione, poco esposta ai venti, con suolo spesso. Nelle sue immediate vicinanze si notano altre quattro roverelle con valori di circonferenza massima compresi tra 3,8 e 7 m
224


LOCALIZZAZIONE
Comune: Isnello (PA) Località: pendici Cozzo Balatelli Cartografia: I.G.M. Foglio N. 610 – Castelbuono
C.T.R. Sezione N. 610050 – Isnello Coordinate: 37°54’40,91’’ N – 14°00’00,03’’ E
(4196452 N – 2432121 E) Proprietà: demanio del Comune di Isnello Accesso: dall’Hotel Piano Torre si segue la pista per la Sorgente Favara e si prosegue verso monte, costeggiando Cozzo Balatelli
PARAMETRI STAZIONALI
Altitudine (m s.l.m.): 900 Esposizione: nord Giacitura: moderatamente ripida Substrato: calcareo Contesto vegetazionale: bosco di leccio e roverella Protezione: zona B del Parco delle Madonie
PRINCIPALI CARATTERISTICHE MORFOLOGICHE
Struttura e portamento: albero di notevoli dimensioni, con tronco robusto di forma grossolanamente parallelepipeda, diviso all’altezza di 2,50 m in due grosse branche di cui la più grande raggiunge 6 m di circonferenza. La base del fusto esposta a Sud presenta una cavità larga circa 50 cm. La chioma, di forma ten­denzialmente globosa, è ampia e sviluppata soprattutto in dire­zione nord­sud Altezza (m): 23 Circonferenza massima del tronco (m): 7,45 Circonferenza del tronco a 1,30 m dal suolo (m): 7,10 Ampiezza della chioma (m): 20 × 18,50 Età stimata (anni): 700­800

ROVERELLA
IDENTIFICAZIONE
Nome scientifico: Quercus congesta Presl
Famiglia: Fagaceae
Nome volgare: Roverella, Quercia congesta
Nome locale: Cerza, Ruvulu

ROVERELLA
DI PIANO SEMPRIA


ROVERELLA
IDENTIFICAZIONE
Nome scientifico: Quercus congesta Presl
Famiglia: Fagaceae
Nome volgare: Roverella, Quercia congesta
Nome locale: Cerza, Uscigghiu
LOCALIZZAZIONE
Comune: Castelbuono (PA)
Località: contrada Sempria
Cartografia: I.G.M. Foglio N. 610 – Castelbuono. C.T.R. Sezione N. 610050 ­ Isnello
Coordinate: 37°54’09,66’’ N ­ 14°04’08,61’’ E (4195426 N – 2438157 E)
Proprietà: demanio comunale di Castelbuono
Accesso: da Piano Sempria, accanto al rifugio del C.A.S.

 

[deltamu]

I see just now that copying and pasting messed up the characters. Once again that dash disappeared

 

[Rick Rothstein]

There's nothing secret about that. It's a very long file converted from a pdf and its structure is similar to the text I posted above.

The problem my code had with your file is there are three different kinds of dashes between the Northings and Eastings... there are normal dashes (ASCII 45) but there are also dashes with ASCII codes of 150 and 173. Assuming those are the only dashes that will ever be used, I modified my code to work around them. See if this macro works for you now...

[table="width: 500"]
[tr]
	[td]Sub NorthingEastings()
  Dim X As Long, FileNum As Long
  Dim FileName As String, TotalFile As String, Txt() As String, Coord() As String
  Dim N As Variant, E As Variant, Result As Variant
  FileName = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  FileNum = FreeFile
  Open FileName For Binary As #FileNum
    TotalFile = Space(LOF(FileNum))
    Get #FileNum , , TotalFile
  Close #FileNum 
  Coord = Split(Replace(Replace(Replace(Replace(TotalFile, Chr(150), "-"), Chr(173), "-"), " -", "-"), "- ", "-"), "Coordinate:")
  ReDim Result(1 To UBound(Coord), 1 To 2)
  For X = 1 To UBound(Coord)
    Coord(X) = Left(Trim(Coord(X)), InStr(Trim(Coord(X)), "E"))
    Txt = Split(Coord(X), "-")
    Result(X, 1) = Txt(0)
    Result(X, 2) = Txt(1)
  Next
  Range("A1").Resize(UBound(Result), 2) = Result
End Sub[/td]
[/tr]
[/table]

 

[deltamu]

Your macro works well with an abridged version of the file. When I run it on the entire file it gives runtime error 9 again.
Probably there are other kinds of dashes. I'm going to e-mail you the entire file