Tag Archive: logic

Tories Reveal Authoritarian Roots While Liberals Check Their Shoelaces

None are more hopelessly enslaved than those who falsely believe they are free.Johann Wolfgang von Goethe

Yet again I’m forced to side with the grinning David Davis.  This doesn’t happen often and is embarrassing to admit!.

ConDem Coalition Pledges Broken!

ConDem Coalition Pledges Broken!

It’s all about the government plans to allow full-scale unauthorised real-time monitoring of every person in the UK’s internet activity!  It’s so 1984.

“It was a bright cold day in April, and the clocks were striking thirteen” – (George Orwell: Nineteen Eighty-Four
.

Orwell must be turning in his grave in despair that what he predicted as a warning about what not to do, now looks like coming to fruition.

Remarkably, since wangling themselves into government, the conservative-libdem coalition government is now actually dropping a key part of their manifesto which they laboriously agreed two years ago.  This can still be found on the government website, page 11 to be exact (pdf) .  Here’s what they said:

  • The Government believes that the British state has become too authoritarian…. We need to restore the rights of individuals in the face of encroaching state power – FAIL
  • …reverse the substantial erosion of civil liberties and roll back state intrusion – FAIL
  • … introduce safeguards against the misuse of anti-terrorism legislation – FAIL
  • …end the storage of internet and email records without good reason – FAIL
  • …a British Bill of Rights that … protects and extends British liberties – FAIL

(Actually, the whole Con-Dem pledge list makes good reading to see just how far removed from it our evil diktat of quangos has become.)

So what to do – use TOR.

ID Cards

Johann Wolfgang Goethe

Johann Wolfgang Goethe (Photo credit: andreasmarx)

Not so long ago I was haranguing the former Labour government about their plans for ID Cards, their laws over CCTV and photographing in public places, the reduction  in privacy for individuals and the removal of our civil rights over detention without trial, due cause and 3rd party notification for first 90 days and them 42 days.

I left the Labour Party because of it and have not rejoined.

Huge Vocal Resentment Against UK Government Secret Citizen Monitoring Plans.

try the Tor browser bundle

The new news (I thought it was an April Fool joke initially!) is that Email and web use is ‘to be monitored’ under new laws proposed by this nasty, nasty government.  Happily, there is now a huge and vociferous resentment against this from the general public who can see this evil act for what it is.  Top among them is David Davis!  See this link and the thousands of comments for instance; Backlash over email and web monitoring plan.

Clueless

LONDON, UNITED KINGDOM - JUNE 14

Now, the tories and their liberal stooges have been shown to be both serially evil in their pronouncements and plans, and also serially incompetent of managing almost anything.

Their pathetic management of a minor industrial dispute (the fuel shortage) which did nothing except invoke almost universal resentment of the coalition and reawaken a general awareness of their ineffectiveness comes on top of stripping the very foundations away from one of UK society’s greatest inventions of the Industrial Age, our National Health Service (NHS).

United Kingdom

Top this behavioural abomination with that of the revolving door policy between banking and politics which they continue to promote with zero penalties for failure while the population-at-large have to prop up the whole system with their taxes means only two things to me.

  1. The government must do something desperate to have any hope of re-election in 3 years – this means either war (patriotism is the last refuge of a scoundrel) or economic boom-and-bust gambling.
  2. They will do something desperate to have any hope of re-election in 3 years – this means either war (patriotism is the last refuge of a scoundrel) or economic boom-and-bust gambling.

Astute folk will see this as my prediction for government actions over the next 3 years.

Tories: Keep Friends Happy

Meanwhile, hundreds of extra Tory donors will soon be available to bankroll the “all is good” story.  They will arrive as beneficiaries of the windfall provided as the “former NHS” contracts are handed out to friends, much like Michael Ashcroft benefited from the first round of NHS privatisation during the Thatcher era.  This article on Powerbase and this one (sourced from a now defunct article in The Scotsman) show quite clearly that 1/3 of cleaning contracts went to Ashcroft’s businesses during this time, saying;

MICHAEL Ashcroft, (…) bankrolled an “independent” publicity campaign that allowed his multi-million-pound contract cleaning empire to prosper and led to a change in the law. The campaign was run from the London office of the former Conservative Scottish secretary, Michael Forsyth. A spokesman for Mr Ashcroft confirmed last night that he had contributed to the Public and Local Service Efficiency Campaign (PULSE), which was set up in 1985 to persuade the public sector to contract out services such as cleaning and catering. The campaign had been disbanded by the end of the 1980s after the Conservative government passed the 1988 Local Government Act .  Mr Ashcroft’s Hawley Services Group, a contract cleaning firm later known as ADT, flourished under the new regime, with ADT, winning a third of NHS contracts between 1983 and 1988.

For further information into the depths that the Tories will go to enable all public money to be fed straight to their business friends, see this article which pulls apart the dealings of Ashcroft, discredited Dame Shirley Porter, NIMBY Nicholas Ridley, Chris Chope (the dog turd of Christchurch) and current (dodgy expenses, remember) minister Eric Pickles.

THE PICKLES PAPERS

By Tony Grogan
First published by 1 IN 12 PUBLICATIONS 1989
21 – 23 Albion St. Bradford 1.
Copyright 1 IN 12 Publications 1989
ISBN 0 948994 04 5

Once read, apply the same logic to our dear NHS, and weep again.  The same modus operandi is being used;

  1. discredit the current, imply alternatives are better;
  2. farm out internal monies to external Tory benefactors.

It’s just more sleaze just like under Thatcher before, backed up with warlike rhetoric.  Remember, only 10 days ago we had the news of billionaire Tory donors at Cameron’s dinner table, and Cameron trying to defend the cash-for-access news that made Labour’s cash-for-questions scandal appear like a sweetshop-ish wheeze in comparison.  See 

Tory Party chairman Lord Feldman was one of the key figures in the ‘cash for access’ scandal which erupted after Tory party treasurer Peter Cruddas was caught offering a private dinner with David Cameron to undercover reporters who posed as wealthy party donors.  Read more: http://www.dailymail.co.uk/debate/article-2123692/Tory-cash-access-row-David-Cameron-crony-pal-cash-questions.html

as well.

Enhanced by Zemanta

Related Posts:

Google Tsunami Alert

Japanese Earthquake and Tsunami

Google Tsunami Alert

Google Tsunami Alert

Following this morning’s (using GMT) earthquake just off Japan (now set at 8.8 on the Richter Scale, but it keeps rising as more information is analysed), I noticed that the Google search page has a Tsunami warning for all to see.

I thought I’d capture it for posterity.

Enormity

This truly is an enormous event, the TV videos this morning of the wave’s advance making this perfectly clear.  How and when it finishes, we can only watch and wait as one of the great forces of nature plays out before us.

Tsunami Transit Time for Japanese Tsunami of 11/3/11

Tsunami Transit Time for Japanese Tsunami of 11/3/11

Fortunately, the Tsunami warning system seems to be doing its job, and hopefully, those countries around the Pacific and the small Pacific Islands within have had enough time to warn folks to get to high ground.  This image shows how much time they’ve got!

 

NOAA Tsunami Warning @ 10:30 GMT

This is the state of play a short time ago and the actual alert, showing wave heights and periods out at sea.  When they hit the coast, things are very, very different.

000

WEPA40 PHEB 111030

TSUPAC

TSUNAMI BULLETIN NUMBER 006

PACIFIC TSUNAMI WARNING CENTER/NOAA/NWS

ISSUED AT 1030Z 11 MAR 2011

THIS BULLETIN APPLIES TO AREAS WITHIN AND BORDERING THE PACIFIC

OCEAN AND ADJACENT SEAS…EXCEPT ALASKA…BRITISH COLUMBIA…

WASHINGTON…OREGON AND CALIFORNIA.

… A WIDESPREAD TSUNAMI WARNING IS IN EFFECT …

A TSUNAMI WARNING IS IN EFFECT FOR

JAPAN / RUSSIA / MARCUS IS. / N. MARIANAS / GUAM / WAKE IS. /

TAIWAN / YAP / PHILIPPINES / MARSHALL IS. / BELAU / MIDWAY IS. /

POHNPEI / CHUUK / KOSRAE / INDONESIA / PAPUA NEW GUINEA /

NAURU / JOHNSTON IS. / SOLOMON IS. / KIRIBATI / HOWLAND-BAKER /

HAWAII / TUVALU / PALMYRA IS. / VANUATU / TOKELAU / JARVIS IS. /

WALLIS-FUTUNA / SAMOA / AMERICAN SAMOA / COOK ISLANDS / NIUE /

FIJI / NEW CALEDONIA / TONGA / MEXICO /

KERMADEC IS / FR. POLYNESIA / PITCAIRN /

GUATEMALA / EL SALVADOR / COSTA RICA / NICARAGUA / ANTARCTICA /

PANAMA / HONDURAS / CHILE / ECUADOR / COLOMBIA / PERU

THIS BULLETIN IS ISSUED AS ADVICE TO GOVERNMENT AGENCIES. ONLY

NATIONAL AND LOCAL GOVERNMENT AGENCIES HAVE THE AUTHORITY TO MAKE

DECISIONS REGARDING THE OFFICIAL STATE OF ALERT IN THEIR AREA AND

ANY ACTIONS TO BE TAKEN IN RESPONSE.

AN EARTHQUAKE HAS OCCURRED WITH THESE PRELIMINARY PARAMETERS

ORIGIN TIME – 0546Z 11 MAR 2011

COORDINATES – 38.3 NORTH 142.4 EAST

DEPTH – 24 KM

LOCATION – NEAR EAST COAST OF HONSHU JAPAN

MAGNITUDE – 8.9

MEASUREMENTS OR REPORTS OF TSUNAMI WAVE ACTIVITY

GAUGE LOCATION LAT LON TIME AMPL PER

DART 21415 50.2N 171.8E 0845Z 0.27M / 0.9FT 52MIN

WAKE US 19.3N 166.6E 0928Z 0.39M / 1.3FT 14MIN

NAHA OKINAWA JP 26.2N 127.7E 0901Z 0.25M / 0.8FT 60MIN

SAIPAN US 15.2N 145.7E 0916Z 0.65M / 2.1FT 30MIN

TOSASHIMIZU SHIKOKU 32.8N 133.0E 0753Z 0.92M / 3.0FT 68MIN

OMAEZAKI HONSHU JP 34.6N 138.2E 0818Z 1.42M / 4.6FT 56MIN

DART 21419 44.5N 155.7E 0716Z 0.40M / 1.3FT 20MIN

DART 21413 30.5N 152.1E 0659Z 0.76M / 2.5FT 32MIN

HANASAKI HOKKAIDO J 43.3N 145.6E 0657Z 2.79M / 9.2FT 76MIN

DART 21401 42.6N 152.6E 0643Z 0.67M / 2.2FT 40MIN

DART 21418 38.7N 148.7E 0619Z 1.08M / 3.5FT 06MIN

LAT – LATITUDE (N-NORTH, S-SOUTH)

LON – LONGITUDE (E-EAST, W-WEST)

TIME – TIME OF THE MEASUREMENT (Z IS UTC IS GREENWICH TIME)

AMPL – TSUNAMI AMPLITUDE MEASURED RELATIVE TO NORMAL SEA LEVEL.

IT IS …NOT… CREST-TO-TROUGH WAVE HEIGHT.

VALUES ARE GIVEN IN BOTH METERS(M) AND FEET(FT).

PER – PERIOD OF TIME IN MINUTES(MIN) FROM ONE WAVE TO THE NEXT.

NOTE – DART MEASUREMENTS ARE FROM THE DEEP OCEAN AND THEY

ARE GENERALLY MUCH SMALLER THAN WOULD BE COASTAL

MEASUREMENTS AT SIMILAR LOCATIONS.

EVALUATION

SEA LEVEL READINGS CONFIRM THAT A TSUNAMI HAS BEEN GENERATED

WHICH COULD CAUSE WIDESPREAD DAMAGE. AUTHORITIES SHOULD TAKE

APPROPRIATE ACTION IN RESPONSE TO THIS THREAT. THIS CENTER WILL

CONTINUE TO MONITOR SEA LEVEL DATA TO DETERMINE THE EXTENT AND

SEVERITY OF THE THREAT.

A TSUNAMI IS A SERIES OF WAVES AND THE FIRST WAVE MAY NOT BE THE

LARGEST. TSUNAMI WAVE HEIGHTS CANNOT BE PREDICTED AND CAN VARY

SIGNIFICANTLY ALONG A COAST DUE TO LOCAL EFFECTS. THE TIME FROM

ONE TSUNAMI WAVE TO THE NEXT CAN BE FIVE MINUTES TO AN HOUR, AND

THE THREAT CAN CONTINUE FOR MANY HOURS AS MULTIPLE WAVES ARRIVE.

FOR ALL AREAS – WHEN NO MAJOR WAVES ARE OBSERVED FOR TWO HOURS

AFTER THE ESTIMATED TIME OF ARRIVAL OR DAMAGING WAVES HAVE NOT

OCCURRED FOR AT LEAST TWO HOURS THEN LOCAL AUTHORITIES CAN ASSUME

THE THREAT IS PASSED. DANGER TO BOATS AND COASTAL STRUCTURES CAN

CONTINUE FOR SEVERAL HOURS DUE TO RAPID CURRENTS. AS LOCAL

CONDITIONS CAN CAUSE A WIDE VARIATION IN TSUNAMI WAVE ACTION THE

ALL CLEAR DETERMINATION MUST BE MADE BY LOCAL AUTHORITIES.

BULLETINS WILL BE ISSUED HOURLY OR SOONER IF CONDITIONS WARRANT.

THE TSUNAMI WARNING WILL REMAIN IN EFFECT UNTIL FURTHER NOTICE.

THE JAPAN METEOROLOGICAL AGENCY MAY ALSO ISSUE TSUNAMI MESSAGES

FOR THIS EVENT TO COUNTRIES IN THE NORTHWEST PACIFIC AND SOUTH

CHINA SEA REGION. IN CASE OF CONFLICTING INFORMATION… THE

MORE CONSERVATIVE INFORMATION SHOULD BE USED FOR SAFETY.

THE WEST COAST/ALASKA TSUNAMI WARNING CENTER WILL ISSUE PRODUCTS

FOR ALASKA…BRITISH COLUMBIA…WASHINGTON…OREGON…CALIFORNIA.

 

Wake Island

I wonder how Wake Island is getting on?  The highest point on the island is only 20 feet and the wave should be there about now….

Related Posts:

Comments are closed

Laws are like sausages — it is best not to see them being made: Mercenary Guidelines for a Better World

Guidelines for a Better World

Sausages

Sausages

Laws are like sausages — it is best not to see them being made.  Perhaps I should re-phrase this as:

The Rules of Law and International Diplomacy are like sausages — it is best not to see them being made

It’s a strange world out there.  Two recent political events have brought two previously unlinked ideas to my mind.  The events are:

Wikileaks disclosures
Innocents Killed In Iraq

Innocents Killed In Iraq by US gunship

For the Wikileaks disclosures, I see them as a highly embarrassing thing for those involved, but an empowering thing for us mere mortals who are divorced from the diplomatic process.  Normally, all the guts of the process are hidden.

In the case of the cover-up of the turkey shoot of unarmed civilians by US helicopter crews, it is something of which we should all be aware, no matter how discomforting for us.

In truth, we need better leaders in the West, people of real morals and guts so that we do not have to see the guts of innocents sprayed on the streets ever again to realise how crap the current bunch are.

Mercenary Forces

Mercenary forces I see as a fact of current and historical life, the old colonial powers especially – indeed, the UK has its own dirty hand in this.  For nigh-on 200 years the UK has even had its own full-time mercenaries, the Gurkhas, typically used in near-suicidal conflict situations.  Also, currently, from the standpoint of an Afghan tribesman, the British Army in Afghanistan could be seen as little more than mercenaries in the employ of a puppet king, Hamid Karzai.  For the tribesman, little has changed – there’s money about but he sees none of it whosoever is in charge.

Diplomacy

Click to see Sausage Making process from the inside.

Sausage Making

In the meantime, we have diplomacy.  For the West, this is a world of essentially astute well educated  folk, usually adept in law not technology, that seek to make deals with not-so-nice folk for our own country’s benefit.

 

Because these deals are done at the guttural level, like sausage-making, it’s an unpleasant process to stumble upon – which is exactly what we’ve seen with the Wikileaks Diplomatic Cable exposures.  Naturally we are aghast that such things go on in our name.  For me, it seems to be a wholly unpleasant process in our current world and something I’d wish to eliminate.

Earth in an oil drop

Taking the current crisis in Libya;  for the previous three years the Blair/Brown Labour Government has made overtures with Libya, sold arms and even SAS training, but all with the aim of ensuring Libya kept it’s hands off the nuclear button.  Seems good-ish.  Laudable aims, jaw-jaw nor war-war and all that.

This process, now revealed, is ugly – but no more so than our current Prime Minister Cameron sucking up to some Gulf Arabs who, like Libya, run a similar kind of oligarchic, autocratic, nepotistic state, full of outlandish greed and luxury with no voice for the inhabitants!  Seems pretty bad.  ………   It is bad.  Really bad.  It’s the same process as before, and we only do it because we need their oil.   Forget about Grand Prix cars and World Cup Football – it’s all about the O. I. L.  – OIL.

So What to Do?

Use Oil?  Sell Bullets.

Most of the recent interventions of the West’s (let’s call them wars should we – after all, thousands have died?), have been into countries that maintain a nice, steady flow of oil to us rich, lazy, westerners.  We think nothing of flying the globe or motoring to the shop for a cheap item that has most probably already crossed the globe once on its way from China, so yes, it’s important we can do this, right?…

On the other hand, our presence in places like Sudan, Rwanda or Congo has been notable by our absence.  Millions have brutally died.  (a.k.a. we don’t care as you’ve no oil.)

Meanwhile our presence in places like Nigeria or Bhopal, India has been notable for our poisoning of the local inhabitants without a trace of remorse or compensation by those involved.

Not Use Oil?  Don’t Sell Bullets.

  • Self-sufficient city planned near Seoul

    A Planned Self Sufficient Korean City

    Consider our own little part of the world.  It’s a place that many people in the world aspire to live because we are essentially free and most material things in our lives can be satisfied.

  • Consider how bright and technologically advanced we consider ourselves to be.

Now consider a world where we eliminated our dependency on chicken dictatorships – a world where we used our technological prowess to eliminate the consumption of oil and our addiction to the making and selling of arms, mostly to these self-same oil rich oligarchies. It’d be a world where we, the citizenry,  didn’t have to look on aghast as all our tax money was spent on bribing simple crooks to talk to us nicely.

Surely, like Egypt & Tunisia, those sort of oligarchies would collapse if we stopped buying their oil and stopped selling them our finest weaponry?

And if they didn’t, so what? There’d be no need for us as a nation to be thrown into hypocritical situations and taking ghastly actions for which we’d later be thoroughly ashamed.  Those areas of the world could take their own destinies into their own hands.

Green Shoot Of Peace

Green Shoot Of Peace

And Diplomacy? For us, we should see more not less of the words and processes done in our name.  We are not children and sooner or later, if the diplomats have fucked it up, we’re going to find out anyway, much as we did after WW1, WW2 and anywhere else our sons and brothers get killed in someone else’s war.

  • We need a proper, ethical, foreign policy.
  • We need diplomats of guile and courage, just like now,  to promote it.
  • And really, we really, really, need to be self-sufficient for all our needs and not rely on corrupt tin-pot states that have not left the Middle Ages in outlook.  This single thing is the most important thing for us and the peaceful futures of our immediate descendants.
  • We need a bit of courage to do this – to wean ourselves off this drug-like dependency on crooks of no substance who happen to sit on stuff we just happen to need, now.  Lets use our technological nous and make the current now a thing of the past – like stone axes and bronze swords, historical curiosities.
  • Mercenaries have courage – after all, if caught they’re usually the first one’s strung up.  See Dead Mercenary Taken to Tripoli Morgue, Libia Protests 2011.   But if the mercenaries have a proper home – what then?  There’d just be the few psychos like there’s always been, because you know, most people, even young hotheads, don’t want to wind up in an early grave.

Remember;

Courage is Contagious.

Get the t-shirt!

Related Posts:

Comments are closed

How to Clean Up Outlook Contact Phone Numbers using VBA

Introduction

VBA for Fix Phone Numbers

VBA for Fix Phone Numbers

I got a new phone and when synchronised with Microsoft Outlook, the phone numbers don’t dial out properly because of spaces & STD bracketing.  It’s an LG – the previous Nokia was great, as was it’s synchronising software!

Solution

I used VBA in a workaround via Microsoft Excel!  (If you don’t have Excel, this won’t work…).  It will convert phone numbers like (+44) 1234 456789 to 0044123456789.  It also removes “-” entries and ones with multiple spaces as a number, like ”   ” which are invisible but muck stuff up!  [but see later addendum for later code additions, code is here: FixPhoneNumbers – SP]

First Step

Export the “Contacts” folder from Outlook as an Excel spreadsheet to your hard drive.  Give it a sensible name!

Second Step

Open the Excel file and then press Alt + F11 to open the Visual Basic Editor (VBE).  We’re gonna write code now!

Third Step

Insert a new code module.  You can give it a name if you like.  I didn’t and just left it as it was.

Fourth Step

Copy this VBA code into the module in the VBE. (That’s a screenshot of my code above!)

Option Explicit

Public Sub FixPhoneNumbers()
Dim rg As Range
Dim r As Integer
Dim c As Integer
Dim wks As Worksheet
Dim s As String

Application.ScreenUpdating = False
Set wks = ThisWorkbook.ActiveSheet
r = wks.Cells(1, 1).CurrentRegion.Rows.Count
c = wks.Cells(1, 1).CurrentRegion.Columns.Count

With wks
     .Columns("AD:AT").NumberFormat = "@"

 For c = 30 To 46 Step 1 'all phone fields
      For r = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
      Set rg = .Cells(r, c)
           s = rg.Value
           s = Replace(s, "(", "")
           s = Replace(s, " ", "")
           s = Replace(s, ")", "")
           s = Replace(s, "+44", "0044")
           s = Replace(s, "+", "00")
           s = Replace(s, "-", "")
      If Len(s) < 7 And Len(s) > 0 Then s = "01278" & s 'assume local phone #
          rg.Value = s
      Next r
 Next c
End With

Application.ScreenUpdating = True
Set rg = Nothing
Set wks = Nothing

End Sub

The key is the lines with the Replace function.  Additional lines can be easily added if more gotchas are spotted in your own numbers.

If you don’t need a line to run, remark (Rem) it out by putting an apostrophe at the line beginning, like this one here… ‘

Fifth Step

From the Debug menu in the VBE, compile the code.  This ensures that no typos etc have got in.

Save the file.

Sixth Step

Now run the procedure called “FixPhoneNumbers”.  The simplest way to do this is to make sure the screen cursor is somewhere within the code you’ve copied in – and then hit F5 on the keyboard.

If this is confusing, go to the main Excel screen, hit Alt + F8 and run the macro, which unsurprisingly is called “FixPhoneNumbers”!!

Seventh Step

Save the file again if the changes look alright.

If they’re not, then close the file without saving, then re-open, and adjust the VBA code to suit your columns, which will be the most likely thing you’ll need to adjust.

Then do all the above again, from the Fifth Step onwards.

Eighth Step

Import the file back into Outlook.

Overwrite old contacts with the new ones.

There should be no need to map fields etc because we haven’t mucked about with them!

Caveats

  • The code is designed to work with a standard output dump from Outlook.  If you’ve added or removed fields from the contacts part of Outlook, the export will be different and you’ll need to check which columns contain phone numbers.  Modify the VBA code to suit.  In total, there were 92 columns in the export from Outlook, so if you don’t have this number then you’ll probably need a quick code modification. (That’s why I checked the count at the beginning of the code with the CurrentRegion bit so that I could get the dataset size.  In the end, I only needed a row count, but I’ve left the code in so that you can step through the code using F8 to check yours out.  Clear?  Don’t worry. )
  • Some entries I had were local phone numbers.  My code is 01278 so this is added and will need changing to suit your own local STD code if you’ve entered phone numbers without the exchange.
  • I check that the UK international code is correct.  Change the 44 to your own as appropriate.
  • There’s no error checking in the code.  But it should work – it did for me!

ADDENDUM: New Code Version!

This code is smoother and has more features than previously, although I still don’t error check.

It’s advantages are:

  1. It checks all columns and looks for the words “Phone” or “Fax” in the data headings.  In this way, any logical Outlook customisations are taken care of!
  2. It prompts the user for their local STD and National codes, placing these in the correct place.

Next Steps:

  1. I’ll turn the code into an xla add-in with a one-click button.
  2. I’ll make the whole thing work directly on the Outlook contacts from within Outlook.  I’ve used the Outlook object model before, just not very often!  So watch this space as current Outlook addins are pricey and a bit of a kludge from what I’ve read…

The New (Improved) Code Version

Download plain text version: FixPhoneNumbers

Option Explicit

Public Sub FixPhoneNumbers()
Dim rg As Range
Dim r As Integer
Dim c As Integer
Dim wks As Worksheet
Dim s As String
Dim LocalCode As Variant
Dim NationalCode  As Variant

Application.ScreenUpdating = False

LocalCode = InputBox("Do You want Full Code for Local Numbers?" _
                     , "Enter local STD/City dialling code" _
                     , "01278")
NationalCode = InputBox("Do You want cleaned up National Code? e.g. 44=UK" _
                      & vbCrLf _
                      & "+44 goes to 0044" _
                     , "Enter National code" _
                     , "44")

Set wks = ThisWorkbook.ActiveSheet

With wks
       .Range(.Cells(1, 1), .Cells(1, 1).End(xlToRight)).Font.Bold = True

          For c = 1 To .Cells(1, 1).CurrentRegion.Columns.Count Step 1 'all columns
              s = LCase(.Cells(1, c).Value)       's picks up column heading
                                                  'lower case to match search string later
                                                  'as text compare doesn't work
                'now find phone/fax fields and if found, fix numbers
     If (InStr(s, "phone") + InStr(s, "fax")) > 0 Then
            .Columns(c).NumberFormat = "@"      'make text format for tel nos
                                                'allows leading zeroes!

                     For r = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
                         Set rg = .Cells(r, c)
                         s = rg.Value            're-use s
                         s = Replace(s, "(", "")
                         s = Replace(s, " ", "")
                         s = Replace(s, ")", "")
                             If Len(NationalCode) > 0 Then 'not empty string
                                  s = Replace(s, "+" & NationalCode, "00" & NationalCode)
                             End If
                         s = Replace(s, "+", "00")
                         s = Replace(s, "-", "")
                             If Len(s) < 7 And Len(s) > 0 Then s = LocalCode & s
                              rg.Value = s
                     Next r

     Else
        'nowt
     End If
       Next c
End With

Application.ScreenUpdating = True
Set rg = Nothing
Set wks = Nothing

End Sub

Related Posts:

Islands ‘Defy’ Sea-Level Rise

Glittering IslandsIntroduction

This week will see some news that will be twisted and churned by the climate change sceptics…

Apparently, the coral islands are responding well to sea-level rises, which are real, make no mistake.

The New Scientist article is here and the BBC News item is here.

The Reality

Angaga Island Resort & Spa, MaldivesIn my previous post, The Maldives and Tuvalu will be Alright Without People, I pointed out just such a fact.  My reasoning was based on the not-so-recent research and conclusion of Charles Darwin into the creation and maintenance of coral islands, reefs, atolls and submerged sea mounts.

Now, recent measurements as described in the New Scientist prove this is so.

But there’s still no room for optimism because the reason that islands like Tuvala and The Maldives are suffering is because of human interference…  How so?

A. Because people keep using the coral for building materials, and smooth out it’s natural deposits into runways and hotels for tourists and the like!

This far beyond what the coral can naturally replenish by accretion from storms and it’s natural growth.

Ancient History

One other aspect comes into the “coral equation”.

Coral almost disappeared following a major extinction event!

we warned you......Dinosaurs and Coral

The KT event which wiped out the dinosaurs and left room for our own eventual evolution, also wiped out 90% of coral species.

See http://en.wikipedia.org/…Tertia…event#Marine

Quoting from this source,

Further analysis of the coral extinctions shows that approximately 98% of colonial species, ones that inhabit warm, shallow tropical waters, became extinct.

Prior to this, in the greatest known extinction event at the end of the Permian Era, far worse damage was done to corals.  See link.  Quoting from the article:

The event had a profound effect on the terrestrial ecosystem, which is still being felt today, a quarter of a billion years later….

Nothing resembling a coral reef shows up until 10 million years after the Permian extinction, and full recovery of marine life took about 100 million years…

Dishonour not the bones of those who trod this earth before us, lest one day they return...Now this is serious shit!  Because we are right now part of a mass extinction event, started by our own human activity, that will one day show up as such in the geological record.

Currently the coral can keep pace with increasing water temperatures and rising sea levels as it did at the end of the recent glacial period ~12k years ago.

But for how long?

Related Posts:

Comments are closed

© 2007-2017 Strangely Perfect All Rights Reserved -- Copyright notice by me