my-Tool.com: Penguji Regexp - Menguji apakah sebuah aturan regular expression berfungsi sesuai harapan atau tidak.

my-Tool.com: Penguji Regexp - Menguji apakah sebuah aturan regular expression berfungsi sesuai harapan atau tidak. - VBScript

Alamat IP

Iklan Baris
Gratis AdManner

Bahasa Inggris

Bahasa Jepang

VBScript JavaScript Java PHP

VBScript

Menguji pola regular expression yang digunakan di bahasa VBScript.

Kebanyakan pengunjung yang menggunakan tool ini juga memanfaatkan
�ͥåȥ�� (16.0%), Spreadsheet (10.0%), Docs (8.0%)

Kode sumber dari tool ini adalah:

<?php

/******************************************************************
* 
* RegexpVB, Menguji pola regular expression yang digunakan di bahasa VBScript.
* Copyright (C) 2006, Bowo Prasetyo
*  
* http://www.my-tool.com
* 
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation below,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU General Public License for more details.
* 
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 
* MA  02110-1301, USA.
* 
* Program ini adalah software bebas; anda dapat mendistribusikannya 
* kembali dan/atau memodifikasinya di bawah aturan lisensi
* GNU General Public License sebagaimana dipublikasikan oleh
* yayasan Free Software Foundation di bawah,
* 
* http://www.gnu.org/licenses/gpl.html#TOC1
* 
* Program ini didistribusikan dengan harapan akan bermanfaat,
* tetapi TANPA JAMINAN APAPUN; bahkan tanpa jaminan terimplikasi 
* MERCHANTIBILITY ataupun FITNESS FOR A PARTICULAR PURPOSE.
* Lihat GNU General Public License untuk lebih rincinya.
*
* Anda harus telah mendapatkan salinan GNU General Public License
* bersama-sama dengan program ini; kalau tidak, silakan tulis surat
* kepada yayasan Free Software Foundation, Inc., 51 Franklin Street, 
* Fifth Floor, Boston, MA  02110-1301, USA.
*
*****************************************************************/
   /**
    * Menampilkan tool aktif
    *
    * @param  int    $depth   berapa dalam dari halaman indeks
    * @param  string $qstring string query dari tool induk
    */

unset($pattern);
      if (isset($_POST['pattern']))
         $pattern = trim(stripslashes($_POST['pattern']));
      $nocase = 'true';
      $global = 'true';
      $multiline = 'true';
      if (isset($_POST['pattern']))
      {
         if (isset($_POST['nocase']))
            $nocase = 'true';
         else
            $nocase = 'false';
         if (isset($_POST['global']))
            $global = 'true';
         else
            $global = 'false';
         if (isset($_POST['multiline']))
            $multiline = 'true';
         else
            $multiline = 'false';
      }
      $text = <<<EOT
Penguji Regexp

Tool ini bermanfaat untuk menguji pola regular expression (regexp) anda terhadap suatu teks sebelum mengimplementasikannya di dalam program.

Tinggal masukkan pola regexp anda di atas dan ganti teks ini dengan teks anda lalu tekan 'Submit', tool ini akan mengembalikan kepada anda tempat pertama yang cocok.

Di dalam, tool ini menggunakan fungsi regexp standar VBScript 'Execute' yang dapat ditemukan di sini:

http://authors.aspalliance.com/brettb/VBScriptRegularExpressions.asp

Anda dapat selalu menemukan tool ini pada url di bawah:

http://www.my-tool.com/id/regexp/

Selamat menguji regexp!
EOT;
      if(isset($_POST['text']))
         $text = trim(stripslashes($_POST['text']));

?>

<script src="/regexptester.vbs" language="VBScript" type="text/vbscript">
</script>

<form name="my_tool_form" method="POST" action="">
<table border=0>
<tr><td>Pola pencocokan</td><td>:</td><td><input type="text" name="pattern" size="60" value="<?php echo $pattern ?>"><br /><span class="eg">mis. http://([^/]+)/(.*)(\s|\n)</span></td></tr>
<tr><td>Pilihan</td><td>:</td>
<td><input type="checkbox" name="nocase" value="true" <?php echo $nocase=='true'?'checked':'' ?>> Besar/kecil sama 
<input type="checkbox" name="global" value="true" <?php echo $global=='true'?'checked':'' ?>> Global
<input type="checkbox" name="multiline" value="true" <?php echo $multiline=='true'?'checked':'' ?>> Multiline
</td></tr>
<tr><td>Teks pencarian</td><td>:</td><td><textarea name="text" rows="20" cols="60"><?php echo $text ?></textarea></td></tr>
<tr><td><input type="button" name="matchButton" value="Match"></td><td>:</td>
<td><textarea name="result" rows="20" cols="60" wrap="off" style="border:none"></textarea></td></tr>
</table>
</form>
<br>

<?php

?>

Kode sumber dari 'regexptester.vbs' adalah:

 <!-- hide

'******************************************************************
' 
' regexptester.vbs, Tests regular expression pattern used in VBScript language.
' Copyright (C) 2006, Bowo Prasetyo
'  
' http://www.my-tool.com
' 
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License
' as published by the Free Software Foundation below,
' 
' http://www.gnu.org/licenses/gpl.html#TOC1
' 
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
' 
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 
' MA  02110-1301, USA.
'
'****************************************************************/

'Always do this: (good programming practice!)
Option Explicit

Sub matchButton_OnClick

'Declare our variable
   Dim objRegExpr

'Create an instance of the regexp object
   Set objRegExpr = New regexp

objRegExpr.Pattern = Document.my_tool_form.Pattern.Value
   objRegExpr.IgnoreCase = Document.my_tool_form.Nocase.Checked
   objRegExpr.Global = Document.my_tool_form.Global.Checked
   objRegExpr.MultiLine = Document.my_tool_form.Multiline.Checked

'Declare a variable to hold our collection of Matches
   Dim colMatches

'Now, Execute the regular expression search
   Set colMatches = objRegExpr.Execute(document.my_tool_form.text.value)

Dim objMatch
   Dim subMatch

Dim result

'Print the # of matches we found
   result = ""

'Step through our matches
   For Each objMatch in colMatches
      result = result & objMatch.Value & vbTab
      For Each subMatch in objMatch.SubMatches
         result = result & subMatch & vbTab
      Next
      result = result & vbNewLine
   Next

'Clean up
   Set colMatches = Nothing
   Set objRegExpr = Nothing

Document.my_tool_form.Result.Value = result

End Sub

' unhide -->