Wordo dokumento skaitymas per PHP:
$word = new COM("word.application") or die ("Could not initialise MS Word object.");
$word->Documents->Open(realpath("test.doc"));
// Extract content.
$content = (string) $word->ActiveDocument->Content;
$content = nl2br(trim($content));
echo $content;
$word->ActiveDocument->Close(false);
$word->Quit();
$word = null;
unset($word);
?>
http://www.developertutorials.com/tutorials/php/extracting-text-from-word-documents-via-php-and-com-81/
File sort order reversed or wrong in File Open or File Save dialog box
Such a simple fix for such an ANNOYING problem!
Sort the file the way you want.
Hold down the Ctrl key and click the X in the upper right-hand corner of the Window to close it.
Presto, problems solved!
PHP skriptas, ištrinantis visą katalogą, net jei jame yra failų, kurie neišsitrina per FTP (pvz., dėl netinkamų pavadinimų su \):
<?php
function trinam($katalogas){
if ($ab = opendir($katalogas)) {
$old_cwd = getcwd();
chdir($katalogas);
while ($file = readdir($ab)){
if ($file == ‘.’ || $file == ‘..’) continue;
if (is_dir($file)) {
if (!trinam($file)) return false;
}
else {
if (!unlink($file)) return false;
}
}
closedir($ab);
chdir($old_cwd);
if (!rmdir($katalogas)) return false;
return true;
}
else {
return false;
}
}
trinam(„katalogopavadinimas“);
?>
Panašus skriptas – senų failų ištrynimas
Vilniuje „Western Union“ perlaidas, atrodo, išmoka tik Swedbank ir kai kurie pašto skyriai. Sąrašas iš čia.
AB BANKAS HANSABANKAS
Street Address1: VILNIAUS G 16
Street Address2: VILNIAUS REGIONO SKYRIUS PROSPEKTO KAC
City: VILNIUS
Zip: 01119
Phone: (5) – 2684411
HANSABANKAS
Street Address1: TUSKULENU G. 39
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 09219
Phone: (5) – 2684411
VILNIAUS APSKRITIES CENTRINIS
Street Address1: GEDIMINO PR 7
Street Address2:
City: VILNIUS
Zip: LT 01001
Phone: (5) – 2744135
HANSABANKAS
Street Address1: JUSTINISKIU G. 64
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 05239
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: GEDIMINO A 56
Street Address2: VILNIAUS REGIONO SKYRIUS GEDIMINO KAC
City: VILNIUS
Zip: 01110
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: VYTENIO G 9 25
Street Address2: VILNIAUS REGIONO SKYRIUS VYTENIO KAC
City: VILNIUS
Zip: 03113
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: VOKIECIU G 26
Street Address2: VILNIAUS REGIONO SKYRIUS ROTUSES KAC
City: VILNIUS
Zip: 01130
Phone: (5) – 2684411
HANSABANKAS
Street Address1: SESKINES G.30
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 07157
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: BASANAVICIAUS G 9
Street Address2: VILNIAUS REGIONO SKYRIUS BASANAVICIAUS
City: VILNIUS
Zip: 01118
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: KALVARIJU G 140
Street Address2: VILNIAUS REGIONO SKYRIUS ZALGIRIO KAC
City: VILNIUS
Zip: 08209
Phone: (5) – 2684411
HANSABANKAS
Street Address1: ATEITIES G. 91
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 06324
Phone: (5) – 2684411
HANSABANKAS
Street Address1: PRIEGLIAUS G 1
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 06269
Phone: (2) – 2684411
AB BANKAS HANSABANKAS
Street Address1: GEDIMINO A 26
Street Address2: VILNIAUS REGIONO SKYRIUS MIESTO KAC
City: VILNIUS
Zip: 01104
Phone: (5) – 2684411
HANSABANKAS
Street Address1: VYTAUTO G. 8/7
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 08118
Phone: (5) – 2684411
HANSABANKAS
Street Address1: ARCHITEKTU G. 43/31
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 04221
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: LUKSIO G 23
Street Address2: VILNIAUS REGIONO SKYRIUS ZIRMUNU KAC
City: VILNIUS
Zip: 09132
Phone: (5) – 2684411
HANSABANKAS
Street Address1: DIDLAUKIO G. 1
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 08316
Phone: (5) – 2684411
HANSABANKAS
Street Address1: OZO G. 25
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 07150
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: ANTAKALNIO G 45
Street Address2: VILNIAUS REGIONO SKYRIUS ANTAKALNIO KAC
City: VILNIUS
Zip: 10325
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: SVITRIGAILOS G 31
Street Address2: VILNIAUS REGIONO SKYRIUS SVITRIGAILOS
City: VILNIUS
Zip: 03209
Phone: (5) – 2684411
HANSABANKAS
Street Address1: VIRSULISKIU G.42
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 05112
Phone: (5) – 2684411
HANSABANKAS
Street Address1: KESTUCIO G.65/40
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 08124
Phone: (5) – 2684411
VILNIAUS 21 ASIS PASTAS
Street Address1: JERUZALES 14
Street Address2:
City: VILNIUS
Zip: LT 08018
Phone: (5) – 2744135
VILNIAUS 6 ASIS PASTAS
Street Address1: ALGIRDO 25
Street Address2:
City: VILNIUS
Zip: LT 03011
Phone: (5) – 2744135
VILNIAUS 13 ASIS PASTAS
Street Address1: GELEZINKELIO 6
Street Address2:
City: VILNIUS
Zip: LT 02001
Phone: (5) – 2744135
VILNIAUS 1 ASIS
Street Address1: VOKIECIU 7
Street Address2:
City: VILNIUS
Zip: LT 01013
Phone: (5) – 2744135
VILNIAUS 38 ASIS PASTAS
Street Address1: S DARIAUS IR S GIRENO 8
Street Address2:
City: VILNIUS
Zip: LT 02011
Phone: (5) – 2744135
VILNIAUS 10 ASIS PASTAS
Street Address1: SESKINES 30
Street Address2:
City: VILNIUS
Zip: LT 07004
Phone: (5) – 2744135
VILNIAUS 9 OJO PASTAO 1ASIS PA
Street Address1: A.VIVULSKIO 23
Street Address2:
City: VILNIUS
Zip: LT 03001
Phone: (5) – 2744135
VILNIAUS 12 ASIS PASTAS
Street Address1: ZIRMUNU 67
Street Address2:
City: VILNIUS
Zip: LT 09001
Phone: (5) – 2744135
VILNIAUS 17 ASIS PASTAS
Street Address1: JUSTINISKIU 62 A
Street Address2:
City: VILNIUS
Zip: LT 05009
Phone: (5) – 2744135
VILNIAUS 40 ASIS PASTAS
Street Address1: ANTAKALNIO 75
Street Address2:
City: VILNIUS
Zip: LT 10007
Phone: (5) – 2744135
VILNIAUS 50 ASIS PASTAS
Street Address1: L ASANAVICIUTES 20
Street Address2:
City: VILNIUS
Zip: LT 04013
Phone: (5) – 2744135
HANSABANKAS
Street Address1: SAVANORIU PR 15A
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 03126
Phone: (5) – 2684411
HANSABANKAS
Street Address1: SAVANORIU PR 56
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 03135
Phone: (5) – 2684411
HANSABANKAS
Street Address1: UKMERGES G. 369
Street Address2: SOSTINES REGIONO SKYRIUS
City: VILNIUS
Zip: 06327
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: B RADVILAITES G 1
Street Address2: VILNIAUS REGIONO SKYRIUS KATEDROS KAC
City: VILNIUS
Zip: 01124
Phone: (5) – 2684411
AB BANKAS HANSABANKAS
Street Address1: ANTAKALNIO G 102
Street Address2: VILNIAUS REGIONO SKYRIUS TVERECIAUS KAC
City: VILNIUS
Zip: 10201
Phone: (5) – 2684411
VILNIAUS 3 ASIS PASTAS
Street Address1: VYDUNO 15 37
Street Address2:
City: VILNIUS
Zip: LT 06005
Phone: (5) – 2744135
VILNIAUS 5 ASIS PASTAS
Street Address1: KALVARIJU 29
Street Address2:
City: VILNIUS
Zip: LT 09020
Phone: (5) – 2744135
VILNIAUS 30 ASIS PASTAS
Street Address1: TYZENHAUZU 4
Street Address2:
City: VILNIUS
Zip: LT 02007
Phone: (5) – 2744135
VILNIAUS 41 ASIS PASTAS
Street Address1: GEROVES 29
Street Address2:
City: VILNIUS
Zip: LT 11005
Phone: (5) – 2744135
VILNIAUS 43 IASIS PASTAS
Street Address1: ARCHITEKTU 19
Street Address2:
City: VILNIUS
Zip: LT 04001
Phone: (5) – 2744135
VILNIAUS 51 ASIS PASTAS
Street Address1: ZIRMUNU 2
Street Address2:
City: VILNIUS
Zip: LT 09008
Phone: (5) – 2744135
VILNIAUS 56 ASIS PASTAS
Street Address1: VIRSULISKIU 34
Street Address2:
City: VILNIUS
Zip: LT 05001
Phone: (5) – 2744135
VILNIAUS 42 ASIS PASTAS
Street Address1: KALVARIJU 121
Street Address2:
City: VILNIUS
Zip: LT 08009
Phone: (5) – 2744135
PAGIRIU PASTAS
Street Address1: PAGIRIU 1
Street Address2:
City: VILNIUS
Zip: LT 14004
Phone: (5) – 2744135
VILNIAUS 10 OJO PASTO PADALINY
Street Address1: OZO 25
Street Address2:
City: VILNIUS
Zip: LT 07020
Phone: (5) – 2744135
VILNIAUS 22ASIS PASTAS
Street Address1: ZEMYNOS 23 20
Street Address2:
City: VILNIUS
Zip: LT 06001
Phone: (5) – 2744135
Yra bent keletas gerų būdų patikrinti, ar adresas egzistuoja/veikia. Vienas iš jų – su CURL:
$adresas=“http://www.betkoks.lt“;
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $adresas);
curl_setopt($ch, CURLOPT_USERAGENT, ‘Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)’);
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 10);
curl_setopt($ch, CURLOPT_TIMEOUT, 10);
curl_setopt($ch, CURLOPT_NOBODY, true);
curl_setopt($ch, CURLOPT_HEADER, true);
$atsakymas = curl_exec($ch);
curl_close($ch);
if(preg_match(‘/HTTP\/1\.\d+\s+(\d+)/’, $atsakymas, $yra)){
$kodas=intval($yra[1]);
if($kodas>400){
echo „Adresas neveikia“;
}
}
else {
echo „nepasiekiamas“;
}
***
$kodas>400 : čia iš esmės atsižvelgiama tik į 404 klaidą. Žinoma, galima kreipti dėmesį ir į kitas klaidas.
Parašysiu šį bei tą apie Adbrite reklamos tinklą, su kuriuo turiu reikalų jau kelis metus.
Adbrite yra antras po Google Adsense pagal pelningumą ir populiarumą interneto reklamos tinklas iš tų, kurie yra prieinami lietuviams, norintiems gauti pajamų iš savo svetainės lankomumo. Nors Adsense yra neabejotinas lyderis pagal vidutinę paspaudimo kainą ir bendrą uždarbį, Adbrite yra gera alternatyva, kai kuriais atžvilgiais pranokstanti Adsense.
- Žymiai liberalesnės taisyklės dėl tinklapio turinio (iš esmės tinka beveik bet kokie tinklapiai, netgi nelegalūs, tokie kaip warez ir t.t.)
- Reklamas galima dėti į svetaines lietuvių kalba (Adsense lietuviškose svetainėse tiesiog neveikia, o jei netyčia veikia – tai neleidžiama; Adbrite reklamos veikia ir leidžiamos beveik bet kur)
- Maža bano/nesumokėjimo rizika (dirbantys su Adsense niekada negali būti 100% tikri, kad vieną dieną nebus išmesti ir negaus atlygio; Adbrite banai, galima sakyti, retenybė – Adbrite pozicija daugeliu aspektų yra liberali ir ne tokia teisuoliška ir nedraugiška tinklapių savininkams kaip Adsense)
- Yra daug reklamos formų, tinkamų įvairių tipų svetainėms (baneriai, „in-line“ nuorodos, viso puslapio reklama).
Geriausių rezultatų daug kam duoda Adsense ir Adbrite derinimas: kur įmanoma (respektabiliuose angliškuose puslapiuose) naudojama Adsense, o ten, kur Adsense draudžiama ar neveikia (pvz., lietuviškuose psl) – Adbrite. Adbrite taip pat tinka ir kaip Adsense „alternatyvios reklamos“. Tai padeda gauti kuo daugiau pajamų iš įvairių tipų svetainių.
Šiek tiek parašysiu apie Hostmonster hostingą, kurį naudoju jau kelis metus. Tai JAV hostingas, priklausantis kategorijai „daug resursų už nedidelę kainą“.
Hostmonster yra vienas iš šios hostingo kategorijos lyderių, šiuo metu siūlantis NERIBOTO hostingo planą:
- Neribota vieta
- Neribotas duomenų srautas
- Nemokamas com/net domenas
- Neribotas domenų parkavimas, duomenų bazės, FTP vartotojai ir t.t.
- Pinigų grąžinimo garantija: 30 dienų
- Maža kaina
- Hostingas rinkoje yra jau daugiau nei 10 metų: patikimumas.
Ypač gerai šis hostingas tinka kaip failų talpykla. Gerai veikia ir gana smarkiai lankomos svetainės (maždaug iki 30-40k atvertimų per dieną). Tačiau CPU limitas nėra iš didžiausių, palyginus su kitais tokio tipo hostingais. Tad naudojant neoptimizuotą, nekešuojamą, „sunkią“ TVS, priimtinas atvertimų skaičius/lankomumas gali būti mažesnis.
Nemokamas domenas yra nemokamas tol, kol naudojiesi šiuo hostingu. Persikraustant kitur, už domeno „atrišimą“ mokėti nereikia.
Dėl „neribotų“ resursų – vieta ir duomenų srautas neriboti tol, kol ne per daug apkraunamas serveris, t.y., neviršijami CPU limitai. Optimizavus apkrovas, galima išnaudoti šimtus gigabaitų srauto. Aš ten beveik tris metus turėjau failų (daugiausia mp3 ir video) talpyklą, kuri išnaudodavo daugiau kaip terabaitą srauto per mėnesį ir nesulaukiau jokių priekaištų iš administracijos.
Aišku, resursai nėra neriboti. Sąvoka „neribotas“ traktuotina taip:
- nereikia mokėti už viršytą vietą/duomenų srautą;
- kol naudojama protingose ribose, tol galima naudotis be apribojimų.
Viena geriausių šio hostingo finansinių savybių – pinigų grąžinimas ne tik per pirmąsias 30 dienų (kaip įprasta daugelyje hostingų), bet ir likučio grąžinimas bet kuriuo metu, kai tik pareiški norą atsisakyti paslaugų. Pavyzdžiui, jei sumokėjus už metus po 3 mėnesių nusprendi, kad nori kraustytis kitur, jie grąžins visą sumą už likusius 9 mėn. Bent jau man kitą dieną pervedė į Paypal be jokių klausimų „kodėl išeinat?“ ir pan.
Žodžiu, aptarnavimas ir finansinis saugumas man ten labai patiko, o pats hostingas – irgi, bet tas jau priklauso nuo svetainės: iki tam tikro lankomumo/apkrovos veikia be problemų, o jei matai, kad blogai – bet kada gali išeiti, neprarasdamas sumokėtų pinigų.
Skriptas, kaip rasti ir paryškinti raktažodį paieškos rezultatuose (PHP). Pirmiausia tekste randamas tas raktažodis, atkerpamas tam tikras gabalas prieš jį ir už jo, ir galiausiai paryškinama. Pagrindinės naudojamos funkcijos – substr ir strpos.
$ilgis=strlen($raktazodis);
if(strpos($tekstas,$raktazodis)!==false){
$nuopradzios=strpos($tekstas,$raktazodis)+$ilgis;
$spr=explode($raktazodis,$tekstas);
if(strlen($spr[0])>180){
$prad=substr($spr[0], -180);
}
else { $prad=substr($tekstas, 0, strpos($tekstas,$raktazodis)); }
$liekana=substr($tekstas, $nuopradzios);
if(strlen($liekana)>180){
$galas=substr($liekana, 0, 180);
}
else { $galas=$liekana; }
$tekstas=$prad.$raktazodis.$galas;
}
$tekstas=ucfirst($tekstas);
$pos = strrpos(substr($tekstas, 0 , 250) ,’ ‘ ) ;
$tekstas=substr($tekstas, 0 , $pos).“…“;
$pos = strpos($tekstas,’ ‘) ;
$tekstas=substr($tekstas, $pos);
$tekstas=str_replace($raktazodis,“<b>“.$raktazodis.“</b>“,$tekstas);
Parašysiu PHP skriptą, kaip sukurti svetainės RSS srautą.
<?php
// Srauto pavadinimas
$rss_title= „Pavadinimas“;
// Svetaines adresas (su http://)
$rss_site= „http://www.google.lt“;
// Svetaines aprasymas (nebutina)
$rss_description= „Keletas zodziu apie svetaine.“;
// RSS srauto kalba (pvz., „lt“=lietuvių, „en“=anglų)
$rss_language=“lt“;
header(„Content-Type: text/xml;charset=utf-8″);
// Jungiames prie duomenu bazes
$dbhost = „localhost“;
$dbusername= „vartotojas“;
$dbpassword = „slaptazodis“;
$dbname = „bazespavadinimas“;
mysql_connect($dbhost,$dbusername,$dbpassword);
@mysql_select_db($dbname) or die(„Nepavyko prisijungti prie duomenu bazes“);
// Paimam norimus irasus (pvz., naujausiu straipsniu pavadinimus) is duomenu bazes
$query = „SELECT *
FROM lentele
ORDER BY data DESC
LIMIT 10″;
$result = mysql_query($query) or die(„Bloga uzklausa“) ;
$numrows = mysql_num_rows($result);
echo
‘<?xml version=“1.0″ encoding=“utf-8″ ?>
<rss version=“2.0″>
<channel>
<title>’.$rss_title.’</title>
<link>’.$rss_site.’</link>
<description>’.$rss_description.’</description>
<language>’.$rss_language. ‘</language>’;
for($i=0;$i<$numrows;$i++)
{
$subject = mysql_result($result,$i,’question’); // pavadinimas
$subject = htmlentities(strip_tags($subject));
$aprasymas = mysql_result($result,$i,’answer’);
$aprasymas = htmlentities(strip_tags($aprasymas));
$aprasymas = stripslashes($aprasymas);
$aprasymas=ucfirst($aprasymas);
$pos = strrpos(substr($aprasymas , 0 , 250) ,’ ‘ ) ;
$aprasymas=substr($aprasymas, 0 , $pos).“…“;
$link = mysql_result($result,$i,’id’);
$pubdate = mysql_result($result,$i,’data’);
echo ‘<item>
<title>’.$subject.’</title>
<link>’.$rss-site.’/’.$link.’.html</link>
<description>’.$aprasymas.’</description>
<pubDate>’.$pubdate.’</pubDate>
</item>
‘;
}
mysql_close();
echo ‘ </channel>
</rss>’;
?>
Jei svetainė tampa labiau lankoma, o naudojama TVS nėra gerai optimizuota, ji vis labiau apkrauna serverio procesorių (CPU). Elementarus būdas dramatiškai sumažinti apkrovą – kiek įmanoma daugiau viską kešuoti (įrašyti į laikiną tekstinį failą – cache), ypač daug Mysql užklausų generuojančias TVS vietas (pvz., kiekviename puslapyje įterpiamus topus, naujausių straipsnių/nuorodų sąrašus ir pan.).
Kešavimo esmė – nustatytą laiką naudoti išsaugotą puslapio ar jo dalies kopiją. Praėjus tam laikui, kopija atnaujinama.
Kešavimui naudojamos PHP funkcijos ob_start, ob_get_contents, ob_end_flush.
Pavyzdys:
$cache_failas = „cache/failas.txt“;
$cache_laikas = 3600;
if (file_exists($cache_failas) && (time() – $cache_laikas
< filemtime($cache_failas)))
{
include($cache_failas);
}
else {
ob_start();
//php kodas, pvz paėmimas is duomenų bazes
//irasom i cache
$f = fopen($cache_failas, ‘wb’);
fwrite($f, ob_get_contents());
fclose($f);
ob_end_flush();
}
$cache_failas – failas, į kurį bus įrašoma. Jį galima sukurti iš anksto (ir atitinkamai
suchmod’inti) arba, jei nebus, jis gali būti sukurtas automatiškai (žr. apie fopen)
$cache_laikas – sekundėmis. Kas kiek laiko turi būti atnaujinama. Šiuo atveju: 3600 sek = 1 valanda
Theme: Rubric. Blogą talpina WordPress.com.
