{"id":172,"date":"2009-08-24T16:42:52","date_gmt":"2009-08-24T20:42:52","guid":{"rendered":"http:\/\/www.northatlantawebdesign.com\/?p=172"},"modified":"2009-08-24T16:42:52","modified_gmt":"2009-08-24T20:42:52","slug":"vbscript-string-methods-in-a-simple-php-class","status":"publish","type":"post","link":"https:\/\/www.northatlantawebdesign.com\/index.php\/2009\/08\/24\/vbscript-string-methods-in-a-simple-php-class\/","title":{"rendered":"VBScript String Methods in a Simple PHP Class"},"content":{"rendered":"

When some people start out in a new language, they are in it for the long haul.\u00a0 Other people sometimes just need to touch on it without getting into the details.\u00a0 PHP<\/a> is one of those languages where you can do things in a quick and dirty way without getting into the details.\u00a0 I have written a simple class for the kind of person that just wants to get a few things done quickly that is familiar with VBScripting.\u00a0 The class is mainly a wrapper class that allows you to perform VBScript<\/a> style methods on strings in PHP.\u00a0 For instance, you can use VBScript::Left($string, $length) instead of using PHP’s substr($string, 0, $length).\u00a0 Enjoy!
\n<\/p>\n

\r\n<?php\r\n\/*****************************************************************************\\\r\nAuthor: Jeff Gibeau\r\nWebSite: http:\/\/www.NorthAtlantaWebDesign.com\r\nPurpose:\r\nA string operation wrapper class that allows you to use VBScript style methods\r\nin place of PHP style methods.  Recreates all methods from:\r\nhttp:\/\/www.w3schools.com\/VBscript\/vbscript_ref_functions.asp#string\r\n\\*****************************************************************************\/\r\nclass VBString\r\n{\r\n\t\/\/Returns the position of the first occurrence of one string within another.\r\n\t\/\/The search begins at the first character of the string.\r\n\tfunction InStr($haystack, $needle, $startPosition = 0)\r\n\t{\r\n\t\treturn strpos($haystack, $needle, $startPosition);\r\n\t}\r\n\t\r\n\t\/\/Returns the position of the first occurrence of one string within another.\r\n\t\/\/The search begins at the last character of the string.\r\n\tfunction InStrRev($haystack, $needle, $startPosition = 0)\r\n\t{\r\n\t\tif(floatval(phpversion()) >= 5)\r\n\t\t\treturn strrpos($haystack, $needle, $startPosition);\r\n\t\telse\r\n\t\t\treturn strrpos($haystack, $needle);\r\n\t}\r\n\t\r\n\t\/\/Converts a specified string to lowercase.\r\n\tfunction LCase($string)\r\n\t{\r\n\t\treturn strtolower($string);\r\n\t}\r\n\t\r\n\t\/\/Returns a specified number of characters from the left side of a string.\r\n\tfunction Left($string, $length)\r\n\t{\r\n\t\treturn substr($string, 0, $length);\r\n\t}\r\n\t\r\n\t\/\/Returns the number of characters in a string.\r\n\tfunction Len($string)\r\n\t{\r\n\t\treturn strlen($string);\r\n\t}\r\n\t\r\n\t\/\/Removes spaces on the left side of a string.\r\n\tfunction LTrim($string)\r\n\t{\r\n\t\treturn ltrim($string);\r\n\t}\r\n\t\r\n\t\/\/Removes spaces on the right side of a string.\r\n\tfunction RTrim($string)\r\n\t{\r\n\t\treturn rtrim($string);\r\n\t}\r\n\t\r\n\t\/\/Removes spaces on both the left and the right side of a string.\r\n\tfunction Trim($string)\r\n\t{\r\n\t\treturn trim($string);\r\n\t}\r\n\t\r\n\t\/\/Returns a specified number of characters from a string.\r\n\tfunction Mid($string, $start, $length = "")\r\n\t{\r\n\t\tif(!empty($length))\r\n\t\t\treturn substr($string, $start, $length);\r\n\t\telse\r\n\t\t\treturn substr($string, $start);\r\n\t}\r\n\t\r\n\t\/\/Replaces a specified part of a string with another string a specified\r\n\t\/\/number of times.\r\n\tfunction Replace($haystack, $needle, $replaceWith, $start = -1, $count = -1)\r\n\t{\r\n\t\t$returnVal = $haystack;\r\n\t\tif($start != -1)\r\n\t\t{\r\n\t\t\tif($count != -1 && floatval(phpversion()) >= 5)\r\n\t\t\t{\r\n\t\t\t\t$returnVal = substr($haystack, 0, $start) . str_replace($needle, $replaceWith, substr($haystack, $start), $count);\r\n\t\t\t}\r\n\t\t\telse\r\n\t\t\t{\r\n\t\t\t\t$returnVal = substr($haystack, 0, $start) . str_replace($needle, $replaceWith, substr($haystack, $start));\r\n\t\t\t}\r\n\t\t}\r\n\t\telse\r\n\t\t{\r\n\t\t\tif($count != -1 && floatval(phpversion()) >= 5)\r\n\t\t\t{\r\n\t\t\t\t$returnVal = str_replace($needle, $replaceWith, $haystack, $count);\r\n\t\t\t}\r\n\t\t\telse\r\n\t\t\t{\r\n\t\t\t\t$returnVal = str_replace($needle, $replaceWith, $haystack);\r\n\t\t\t}\r\n\t\t}\r\n\t\treturn $returnVal;\r\n\t}\r\n\t\r\n\t\/\/Returns a specified number of characters from the right side of a string.\r\n\tfunction Right($string, $count)\r\n\t{\r\n\t\treturn substr($string, ($count * -1));\r\n\t}\r\n\t\r\n\t\/\/Returns a string that consists of a specified number of spaces.\r\n\tfunction Space($numSpaces)\r\n\t{\r\n\t\t$returnVal = '';\r\n\t\tfor($i = 0; $i < $numSpaces; $i++)\r\n\t\t\t$returnVal .= ' ';\r\n\t\treturn $returnVal;\r\n\t}\r\n\t\r\n\t\/\/Compares two strings and returns a value that represents the result of\r\n\t\/\/the comparison.\r\n\tfunction StrComp($string1, $string2)\r\n\t{\r\n\t\treturn strcmp($string1, $string2);\r\n\t}\r\n\t\r\n\t\/\/Returns a string that contains a repeating character of a specified length.\r\n\tfunction String($length, $character)\r\n\t{\r\n\t\t$returnVal = '';\r\n\t\twhile(strlen($returnVal) < $length)\r\n\t\t\t$returnVal .= $character;\r\n\t\treturn substr($returnVal, 0, $length);\r\n\t}\r\n\t\r\n\t\/\/Reverses a string.\r\n\tfunction StrReverse($string)\r\n\t{\r\n\t\treturn strrev($string);\r\n\t}\r\n\t\r\n\t\/\/Converts a specified string to uppercase.\r\n\tfunction UCase($string)\r\n\t{\r\n\t\treturn strtoupper($string);\r\n\t}\r\n}\r\n?>\r\n<\/pre>\n
Using this class<\/p>\n
\r\n<?php\r\nrequire_once 'vbstring_class.php';\r\n$string1 = '  The quick brown fox jumped over the lazy dog.  ';\r\n$string2 = 'he';\r\n$string3 = 'hat';\r\n$nl = "\\n";\r\necho '\r\n<style>\r\n* { font-family:courier; }\r\nspan.answer { color:red; background:#eeeeee;border:1px solid #ccc; }\r\n<\/style>\r\n<pre>\r\n';\r\n\/\/VBString::InStr\r\necho 'VBString::InStr("'.$string1.'", "'.$string2.'") -> <span class="answer">'. VBString::InStr($string1, $string2).'<\/span>'.$nl;\r\n\r\n\/\/VBString::InStrRev\r\necho 'VBString::InStrRev("'.$string1.'", "'.$string2.'") -> <span class="answer">'. VBString::InStrRev($string1, $string2).'<\/span>'.$nl;\r\n\r\n\/\/VBString::LCase\r\necho 'VBString::LCase("'.$string1.'") -> <span class="answer">"'. VBString::LCase($string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Left\r\necho 'VBString::Left("'.$string1.'", 5) -> <span class="answer">"'.VBString::Left($string1, 5).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Len\r\necho 'VBString::Len("'.$string1.'") -> <span class="answer">'.VBString::Len($string1).'<\/span>'.$nl;\r\n\r\n\/\/VBString::LTrim\r\necho 'VBString::LTrim("'.$string1.'") -> <span class="answer">"'.VBString::LTrim($string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::RTrim\r\necho 'VBString::RTrim("'.$string1.'") -> <span class="answer">"'.VBString::RTrim($string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Trim\r\necho 'VBString::Trim("'.$string1.'") -> <span class="answer">"'.VBString::Trim($string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Mid\r\necho 'VBString::Mid("'.$string1.'", 5, 5) -> <span class="answer">"'.VBString::Mid($string1, 5, 5).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Replace\r\necho 'VBString::Replace("'.$string1.'", "'.$string2.'", "'.$string3.'", 5) -> <span class="answer">"'.VBString::Replace($string1, $string2, $string3, 5).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Right\r\necho 'VBString::Right("'.$string1.'", 5) -> <span class="answer">"'.VBString::Right($string1, 5).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::Space\r\necho 'VBString::Space(10) -> <span class="answer">"'.VBString::Space(10).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::StrComp\r\necho 'VBString::StrComp("'.$string1.'", "'.$string1.'") -> <span class="answer">"'.VBString::StrComp($string1, $string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::String\r\necho 'VBString::String(10, "*") -> <span class="answer">"'.VBString::String(10, "*").'"<\/span>'.$nl;\r\n\r\n\/\/VBString::StrReverse\r\necho 'VBString::StrReverse("'.$string1.'") -> <span class="answer">"'.VBString::StrReverse($string1).'"<\/span>'.$nl;\r\n\r\n\/\/VBString::UCase\r\necho 'VBString::UCase("'.$string1.'") -> <span class="answer">"'. VBString::UCase($string1).'"<\/span>'.$nl;\r\n\r\necho '<\/pre>';\r\n?>\r\n<\/pre>\n
Useful Links:<\/p>\n