วิกิพีเดีย:สคริปต์

จากวิกิพีเดีย สารานุกรมเสรี
ข้ามไปที่การนำทาง ข้ามไปที่การค้นหา

หน้านี้ทำหน้าที่เป็นพื้นที่เก็บข้อมูลกลางสำหรับสคริปต์ในวิกิพีเดีย โปรดอย่าลังเลที่จะปรับปรุงสคริปต์เหล่านี้ แต่อย่าลืมทดสอบการเปลี่ยนแปลงของคุณก่อน เช่นเดียวกับส่วนที่เหลือของวิกิพีเดียวัสดุทั้งหมดที่นี่อยู่ภายใต้CC-BY-SA 3.0 ดูใบอนุญาต สำหรับรายละเอียดเพิ่มเติม

แนวปฏิบัติ

จูบ

อย่าลืมให้มันง่ายโง่ ทำสิ่งหนึ่งและทำได้ดี นี่คือที่สำหรับสคริปต์ธรรมดาและไม่ใช่โปรแกรมทั้งหมด

ใบอนุญาต

เนื้อหาทั้งหมดบน Wikipedia เป็นค่าเริ่มต้นภายใต้ใบอนุญาตWP:CC-BY-SA (และในกรณีส่วนใหญ่GNU Free Documentation License (GFDL) ก็เช่นกัน) ใบอนุญาต CC-BY-SA ออกแบบมาสำหรับงานศิลปะและวรรณกรรม แต่ไม่ใช่สำหรับซอฟต์แวร์ หากคุณต้องการให้งานของคุณเป็นประโยชน์ต่อสาธารณะมากที่สุด โปรดพิจารณาการให้สิทธิ์ใช้งานแบบคู่และเผยแพร่ภายใต้ลิขสิทธิ์ซอฟต์แวร์ฟรีเช่นGNU General Public License (GPL) นอกเหนือจากใบอนุญาตอื่นๆ เช่น GFDL ที่จีพีจะถูกปล่อยออกโดยมูลนิธิซอฟต์แวร์เสรี คุณสามารถใช้ทั้งสองอย่างโดยระบุอย่างชัดเจนในความคิดเห็นที่จุดเริ่มต้นของสคริปต์ว่าสคริปต์ของคุณมีใบอนุญาตแบบคู่ภายใต้ GPL

สคริปต์ช่อง IRC

สคริปต์สำหรับmIRC

สคริปต์สำหรับChatZilla

  • / Wikilinks - ทำให้ wikilinks สามารถคลิกได้ในหน้าต่างผลลัพธ์ สนับสนุนสาธารณสมบัติโดยIceKarmaเมื่อวันที่ 22 เมษายน 2548

สคริปต์สำหรับการพูดคุย

สคริปต์สำหรับ XChat/HexChat

สคริปต์สำหรับ ircII

ทริกเกอร์ ON สั้นๆ สำหรับircIIที่ใช้งานได้กับ#mwlinkด้านล่าง ถ้าฉันเป็นชนชั้นสูงจริงๆ เรื่องนี้คงจะเป็นภาษาสคริปต์ ircII แต่นั่นก็เป็นเรื่องที่แย่มากเกินกว่าจะคิดได้ นอกจากนั้น ตัวกรองยังมีประโยชน์สำหรับวัตถุประสงค์อื่นอีกด้วย

 ตั้งค่า exec_protection ปิด
 ในที่สาธารณะ -
 ใน #^public 0 * ถ้า (ตรงกัน (*[[* [$2-]))) { exec mwlink $shellfix($Z$1<$0> $2-) } { echo $Z$1<$0> $2- }

หมายเหตุ: การปิด exec_protection อาจทำให้คุณเสี่ยงต่อการถูกโจมตีโดยผู้อื่น เว้นแต่คุณจะรู้ว่าคุณกำลังทำอะไรกับทริกเกอร์ ON

นอกจากนี้$Z$1<$0> $2-เป็นรูปแบบที่ฉันต้องการสำหรับข้อความของช่อง ของคุณอาจแตกต่างกัน

วิธีนี้มีประสิทธิภาพในแง่ที่เรียกใช้ตัวกรองสำหรับบรรทัดที่มีลิงก์วิกิเท่านั้น มันไม่มีประสิทธิภาพเพราะมันเรียกมันสำหรับทุกบรรทัด ฉันไม่สามารถทำให้กระบวนการสื่อสารแบบถาวรทำงานให้กับ ircII ได้ ถ้าคนอื่นทำได้ นั่นจะดีมาก

EPIC4

ไคลเอนต์ที่ได้มาจาก ircIIนี้สามารถใช้สคริปต์เกือบเดียวกันกับircIIด้านบน:

 ตั้งค่า exec_protection ปิด
 ในที่สาธารณะ -
 ใน #^public 0 * ถ้า (ตรงกัน (*[[* [$2-]))) { exec -direct mwlink $Z$1<$0> $2- } { echo $Z$1<$0> $2- }

โปรดทราบว่าใช้ตัวเลือก-directไปยัง/execแทนฟังก์ชัน$shellfix()ซึ่ง EPIC4 ไม่มีให้

ไกม

หมายเหตุ: คำแนะนำด้านล่างใช้ได้กับฉันใน Gaim v1.5.0 แต่มีรายงานว่าไม่ทำงานกับ Gaim v2's.-- Commander Keane 08:31, 25 กรกฎาคม 2006 (UTC)[]

การใช้ปลั๊กอิน linkify และไฟล์กำหนดค่า wikilink ช่วยให้คุณเห็น [[ลิงก์]] ทั้งหมดที่ทุกคนพิมพ์เป็นลิงก์จริง

  1. ผู้ใช้ Wingaim ที่ยังไม่ได้ติดตั้ง ActivePerl ดาวน์โหลดActivePerl 5.8ครั้งแรกตามPerl ปลั๊กอินสนับสนุนแล้วติดตั้ง Gaim
  2. ดาวน์โหลด Linkify Perl สคริปต์จากSourceForge คัดลอกไปยังไดเรกทอรีปลั๊กอินของคุณ (~/.gaim/plugins หรือ C:\Program Files\Gaim\plugins) ตามที่อธิบายไว้ในฉันจะใช้สคริปต์ Perl กับ Gaim ได้อย่างไร
  3. ขณะนี้อยู่ใน wingaim คุณต้องเปลี่ยนเส้นทางบรรทัด
      $CfgFile  ของฉัน=  "$ENV{HOME}/.gaim/linkify.cfg" ;
    
    ถึง
     my  $CfgFile  =  "C:/Documents and Settings/YOURUSERNAME/Application Data/.gaim/linkify.cfg" ;
    
  4. ดาวน์โหลดlinkify.cfgไฟล์ตัวอย่างจากหน้าเดียวกัน คัดลอกไปที่ ~/.gaim (หรือ UserName\Application Data\.gaim) ขณะนี้มีการตั้งค่าให้เปลี่ยน "Bug ###" เป็นลิงก์ที่คลิกได้ไปยัง bugzilla
  5. เพิ่มบรรทัด:
     # การเชื่อมโยงวิกิพีเดีย
     \ [ \ [([ ^ \ [ \ ]] * ) \ ] \ ]  http: // en วิกิพีเดีย. org /wiki/ $1
    
    ไปยังไฟล์ปรับแต่ง (และลบการเชื่อมโยงจุดบกพร่องหากคุณสนใจ) regexp อาจไม่สมบูรณ์แบบ แต่คุณสามารถปรับแต่งได้ทั้งหมด! มันเป็นวิกิ!
  6. รีสตาร์ท Gaim จากนั้นไปที่เครื่องมือ > การตั้งค่า > ปลั๊กอิน แล้วเลือกปลั๊กอิน "Linkify"

(สนับสนุนโดยผู้ใช้:Omegatron )

Irssi

สคริปต์ของ Met

ใช้สคริปต์ต่อไปนี้ ซึ่งจะทำให้ [[ลิงก์]] ปรากฏเป็น [[ลิงก์]] <http://en.wikipedia.org/wiki/links> เก็บไว้ใน .irssi/scripts จากนั้นคุณทำ /load script-name แม้ว่าจะไม่มีผลในอินสแตนซ์ที่มีอยู่ของช่อง:

สคริปต์ของ Met
#!/usr/bin/perl
use strict;
use warnings;
use Irssi;

Irssi::settings_add_str ('wikify', 'wiki_lang', 'en');
Irssi::settings_add_str ('wikify', 'wiki_active_channels', 'freenode/#wikipedia
freenode/#wikibooks');

sub wikilang {
        Irssi::settings_get_str ('wiki_lang');
}

sub urlencode {
        my $string = shift;
        $string =~ y/ /_/;
        $string =~ s/(\W)/sprintf("%%%02X", ord($1))/seg;
        return $string;
}

sub wikilink {
        my $s = shift;
        my $u = urlencode $s;
        my $l = wikilang;
        "[[$s]] <http://$l.wikipedia.org/wiki/$u>";
}

sub wikitemplate {
        my $s = shift;
        my $u = urlencode $s;
        my $l = wikilang;
        "{{$s}} <http://$l.wikipedia.org/wiki/Template:$u>";
}

sub wikify {
        my $line = shift;
        $line =~ s/\[\[(.*?)\]\]/wikilink $1/eg;
        $line =~ s/{{(.+?)}}/wikitemplate $1/eg;
        return $line;
}

sub sig_message_public {
        my ($server, $msg, $nick, $address, $target) = @_;
        my $chatnet = $server->{chatnet};
        my $ok = 0;
        for my $t (split /\s+/, Irssi::settings_get_str ('wiki_active_channels')) {
                $ok = 1 if lc $t eq lc "$chatnet/$target";
        }
        return unless $ok;
        $msg = wikify $msg;
        Irssi::signal_continue ($server, $msg, $nick, $address, $target);
}

Irssi::signal_add_first ('message public', \&sig_message_public);

(สนับสนุนโดยRicky Clarksonผู้ซึ่งกำลังแชนเนล 'พบ' จาก Freenode IRC บน #irssi)

สคริปต์ของ Hocevar

ผู้ใช้:Sam Hocevarมีสคริปต์ irssi ที่จะทำสิ่งเดียวกันมาก ดูหน้าWikipedia ของเขา wikilinks.pl

ERC

ERC เป็นไคลเอนต์ IRC สำหรับ emacs ที่ใช้งานใน Emacs Lisp

คุณสามารถเพิ่มรหัสต่อไปนี้ในไฟล์เริ่มต้น emacs ของคุณ (ฉันใส่ไว้ใน~/.emacs.d/mwlink.el ) มันใช้สคริปต์#mwlinkด้านล่าง ทำงานในโหมด daemon ( mwlink --daemon ); หรือมากกว่านั้นขึ้นอยู่กับมัน เบราว์เซอร์ของคุณจะเปิด URL ของแบบฟอร์มhttp://localhost:4242/mwlink?page= <page>และเปลี่ยนเส้นทางไปยังหน้าวิกิมีเดียที่เหมาะสม ซึ่งหมายความว่าโค้ดต่อไปนี้ค่อนข้างง่าย (แทนที่จะต้องค้นหาภาษา เนมสเปซ และวิกิด้วยตัวเอง

หมายเหตุอื่น: ขึ้นอยู่กับแพ็คเกจ emacs-wiki สำหรับฟังก์ชัน `emacs-wiki-escape-url' ฉันยังไม่รู้ว่ามันเล่นได้ดีแค่ไหนกับ Custom (แม้ว่าการปรับแต่ง `erc-button-alist' ก็ไม่ได้ดีไปกว่าการทำสิ่งนี้หรือแก้ไขโดยตรง)

  ( add-to-list  'erc-button-alist 
   ' ( "\\[\\[\\(.*?\\)\\]\\]"  0  t 
     ( lambda  ( หน้า)  ( เรียกดู URL  ( concat 
                     "http: // localhost: 4242 / mwlink หน้า =" 
                     ( emacs-วิกิพีเดียหนี URL  หน้า))))  1 ))

IceChat

IceChat 5.5 หรือต่ำกว่า

  • กด Control-S เพื่อเปิด Script Editor
  • วางโค้ดลงในไฟล์สคริปต์ใหม่
  • กด "อัปเดตและปิด" ในเมนูหลัก

IceChat7

  • กด Control-S เพื่อเปิด IceChat Editor
  • คลิกแท็บ 'สคริปต์' และวางโค้ดลงในช่องว่าง
  • คลิก 'ไฟล์' จากนั้น 'บันทึกเป็น...'
  • เปลี่ยนนามสกุลจาก'*.ics'เป็น'*.ice' (IceChat 5 Script)ป้อนชื่อที่เหมาะสมสำหรับไฟล์และบันทึก
  • กดปุ่ม "บันทึกและออก"
[10:10] <Someuser>บลา บลา บลา [[WP:AFD]] บลา บลา บลา [[WP:POINT]] บลา บลา บลา
[10:10] http://en.wikipedia.org/wiki/WP:AFD http://en.wikipedia.org/wiki/WP:POINT
IceChat
Function WikiMatch(TextToMatch)                
 
Dim regEx, CurrentMatch, CurrentMatches, ActualLink, Links, 
CurrentSearch                                      
Set regEx = New RegExp                                       
regEx.Pattern = "(\[\[.*?\|)|\[\[.*?\]\]|(\{\{.*?\}\})"                 
           
regEx.IgnoreCase = True                                       
regEx.Global = True                                       
regEx.MultiLine = True                                       
Set CurrentMatches = regEx.Execute(TextToMatch)                         
              
For Each CurrentSearch in CurrentMatches                 
     ActualLink = Replace(CurrentSearch,"[[", "")                       
                
     ActualLink = Replace(ActualLink, "]]", "")                         
              
     ActualLink = Replace(ActualLink, "{{", "Template:")                
                       
     ActualLink = Replace(ActualLink, "}}", "")  
     ActualLink = Replace(ActualLink, "|", "")                          
         
     ActualLink = Replace(ActualLink, " ", "_")                         
           
     if ActualLink <> "" Then                              
          WikiMatch = Wikimatch + " http://en.wikipedia.org/wiki/" + 
ActualLink                 
     End If                                      
Next                            
End Function                 

Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber)                  
                     
Dim Matches                 
Matches = WikiMatch(Message)                 
If Matches <> "" Then                 
     SendCommand "/echo " + Channel + " " + Matches , ServerNumber      
                                 
End If               
End Sub                    

Sub ONQUERY(Message,Nickname,Host,ServerNumber)                    
Dim Matches                 
Matches = WikiMatch(Message)                 
If Matches <> "" Then                 
     SendCommand "/echo =" + Nickname + " " + Matches , ServerNumber    
                                   
End If               
End Sub

KVIrc

ในการใช้สคริปต์นี้ เลือกScripting > Edit events...คลิกขวาที่OnChannelMessageและเลือกNew handlerจากนั้นวางสคริปต์

สำหรับการใช้เซิร์ฟเวอร์ที่ปลอดภัยให้เปลี่ยนบรรทัดต่อไปนี้ในสคริปต์ที่ใช้:

%wikibase="http://en.wikipedia.org/wiki/"

ถึง

%wikibase="https://en.wikipedia.org/wiki/"
สคริปต์ KVIrc ก่อน 4.0
# Parameters:
# $0 = source nick
# $1 = source username
# $2 = source host
# $3 = message
%wikibase="http://en.wikipedia.org/wiki/"
%msg=$3
%done =0
%replace=0
%iter=1
while (%done==0)
{
        %linkleft=$str.find(%msg, "[[", %iter)
        %linkright=$str.find(%msg, "]]", %iter)
        %linklength =$(%linkright-%linkleft)
        %linklength = $(%linklength-2)
        if ((%linkleft>=0)&&(%linklength>0))
        {
                %wikitarget = $str.mid(%msg, $(%linkleft+2), %linklength)
                %url =%wikibase%wikitarget
                %newtarget = $k(12)$fmtlink(%wikitarget, openurl %url)$k
                # Brackets avoid mix-up when wikiword is too short
                %msg = $str.replace(%msg, "[[%newtarget]]", "[[%wikitarget]]")
                %replace=1
        }
        else
        {
                %done=1 
        }
        %iter++
         # Avoid infinite loop
        if (%iter>8)
        {
                %done=1
        }
}

if (%replace)
{
        echoprivmsg $0 $1 $2 %msg
        # halt normal message processing
        halt
}
# Function exits without output for unprocessed messages

เวอร์ชัน 4 นำเสนอการเปลี่ยนแปลงเล็กน้อยในภาษาสคริปต์ KVS ดังนั้นสคริปต์เก่าอาจไม่ทำงานอีกต่อไป สคริปต์เวอร์ชัน 4.0+ มีความเป็นไปได้เพิ่มเติมในการแสดง URL สำหรับวิกิลิงก์ซึ่งจะไปที่เครื่องมือสร้างบัญชีบนเซิร์ฟเวอร์เครื่องมือและเชื่อมโยงเทมเพลตอย่างถูกต้อง

KVIrc 4.0+
# Parameters:
# $0 = source nick
# $1 = source username
# $2 = source host
# $3 = message
%accbase="http://toolserver.org/~acc/acc.php?action=zoom&id="
%wikibase="http://en.wikipedia.org/wiki/"
%acc=0
%template=0
%msg=$3
%done=0
%replace=0
%iter=1
while (%done==0)
        {
	%linkleft  		= $str.find(%msg, "[[", %iter) 
	%linkleft_acc 	= $str.find(%msg, "[[acc:", %iter)
	%linkleft_template 	= $str.find(%msg, "{{", %iter)
		if(%linkleft_acc>=0)
		{
			%acc=1
			%linkleft=%linkleft_acc
		}
		if(%linkleft_template>=0)
		{
			%template=1
			%linkleft=%linkleft_template
		}
	if(%template==1)
	{
		%linkright=$str.find(%msg, "}}", %iter)
	}
	else
	{
		%linkright=$str.find(%msg, "]]", %iter)		
	}
	%linklength =$(%linkright-%linkleft)
	%linklength = $(%linklength-2)
	if ((%linkleft>=0)&&(%linklength>0))
	{
		%wikitarget = $str.mid(%msg, $(%linkleft+2), %linklength)
			if(%acc==1)
			{
				%acctarget =  $str.mid(%wikitarget, $(4), %linklength)
				%url =%accbase%acctarget
			}
			else
			{
				if(%template==0)
				{
					%url =%wikibase%wikitarget
				}
				else
				{
					%url =%wikibase"Template:"%wikitarget
				}
			}
                %newtarget = $k(12)$fmtlink(%wikitarget, openurl %url)$k
                # Brackets avoid mix-up when wikiword is too short
			if(%template==0)
			{
				%msg = $str.replace(%msg, "[[%wikitarget]]", "[[%newtarget]]")
			}
			else
			{
				%msg = $str.replace(%msg, "{{%wikitarget}}", "{{%newtarget}}")
			}
                %replace=1
        }
        else
        {
                %done=1 
        }
        %iter++
         # Avoid infinite loop
        if (%iter>8)
        {
                %done=1
        }
}

if (%replace)
{
        echoprivmsg $0 $1 $2 %msg
        # halt normal message processing
        halt
}
# Function exits without output for unprocessed messages

AdiIRC

สคริปต์ของThe Wordsmith
; Copyright (c) 2016 The Wordsmith.
; This script is dual-licensed under the GPL,
; version 3 or (at your option) any later version.
; Redistribution of source code must retain this copyright notice and appropriate attribution.
; See http://www.gnu.org/licenses/gpl.txt for more details.

on $*:text:/^\[\[.*?\]\]$/i:#:{
  var %pos1 = $calc($pos($1-,[,2) + 1)
  var %pos2 = $pos($1-,],1)
  var %match = $mid($1-, %pos1, $calc(%pos2 - %pos1))
  %match = $urlencode(%match)
  /echo $chan Wikilink: http://en.wikipedia.org/wiki/ $+ %match
}

alias UrlEncode return $regsubex($1-, /([^a-z\d_+.-])/ig, % $+ $base( $asc(\t), 10, 16, 2) )

ตัวกรอง Wikilink

mwlink

  • /mwlink - โปรแกรม Ruby ที่สามารถเรียกใช้เป็น daemon (สกัดกั้นคำขอ HTTP และเปลี่ยนเส้นทางไปยังหน้า Wikimedia ที่เหมาะสม) หรือตัวประมวลผลข้อความ (แปลงวิกิลิงก์เป็นข้อความไฮเปอร์ลิงก์)

สคริปต์การเปลี่ยนแปลงล่าสุด

mIRC

นี่คือสคริปต์สั้นๆ ในการเปิดการมีส่วนร่วมทั้งหมดจาก anons ในหน้าต่างเบราว์เซอร์ (ทำงานได้ดีกับการเรียกดูแบบแท็บ) CryptoDerk 23:04, 15 ก.พ. 2548 (UTC)

วางสิ่งต่อไปนี้ในTools->Scripts Editorใต้แท็บ ระยะไกล

ON $50:TEXT:/(http\S+) \* \d\d?\d?\.\d\d?\d?\.\d\d?\d?\.\d\d?\d ? /iS:#en.wikipedia: เรียกใช้ $regml(1)
นามแฝง F9 auser 50 *127.0.0.1
นามแฝง F11 ruser 50 *127.0.0.1

ตอนนี้แค่นั่งใน #en.wikipedia แล้วกด F9 เพื่อเริ่มต้น กด F11 เพื่อหยุด คุณสามารถเปลี่ยน F9/F11 เป็นปุ่มฟังก์ชันใดก็ได้ที่คุณต้องการ

สคริปต์ด้านบนสามารถปรับให้เปิดประเภทการแก้ไขเฉพาะใน #cvn-wp-en:

ON $50:TEXT:/gibberish|copyvio.*diff.*(http\S+)/iS:#cvn-wp-en: run $regml(1)
นามแฝง F8 auser 50 *computer@wikipedia
นามแฝง F12 ruser 50 *computer@wikipedia

ซึ่งจะเป็นการเปิดการแก้ไขที่ผู้ใช้ที่มีป้ายชื่อ "computer@wikipedia" ที่ปิดบังว่า "พูดพล่อยๆ" หรือ "copyvio" ใช้ F8 และ F12 เพื่อเริ่มและหยุดสคริปต์

นอกจากนี้สำหรับส่วนหน้าเพื่อ IRC ฟีดสดให้ตรวจสอบCryptoDerk ของนักรบป่าเถื่อน

สคริปต์ตัวแปลงตัวเลขUnicode

Perl

HTMLแปลงนิติบุคคลตัวอักษรที่เขียนในPerlที่ใช้อ๊อด ()ฟังก์ชั่นการแปลงตัวอักษรไปยังหมายเลขที่สอดคล้องกันในชุดอักขระ มันทำงานบนเข้ามาตรฐาน


#!/usr/bin/perl 
# รหัสอยู่ในโดเมนสาธารณะ 
ใช้ อย่างเข้มงวด;

 @input   ของฉัน=  แยก ( // ,  <> ); 
foreach  ของฉัน $ ค (  @input  )  { 
       ถ้า (  อ๊อด( $ C )  > =  255  )  { 
               พิมพ์ '& amp;  #'  อ๊อด( $c )  .  ';' ; 
       }  อื่น ๆ { 
               พิมพ์ $c ; 
       } 
}

AppleScript

ผู้เขียน : Olof

หมายเหตุ : ฉันเบื่อหน่ายกับการค้นหาอักขระ Unicode ดังนั้นฉันจึงเขียน AppleScript สำหรับโปรแกรมแก้ไขข้อความที่มีสไตล์ (สไตล์) ที่ฉันโปรดปรานเพื่อเขียนให้ฉัน ตอนนี้ ฉันสามารถพิมพ์ภาษาญี่ปุ่นลงในหน้าต่างแก้ไขข้อความได้ดังนี้:

小 泉 純 一 郎

เลือกมัน เลือกสคริปต์ของฉันจากเมนูสคริปต์ และมันจะกลายเป็น:

小 泉 純 一 郎

ซึ่งเป็นสิ่งที่คุณสามารถวางลงในหน้าต่างแก้ไขวิกิพีเดีย นี่เป็นวิธีแก้ปัญหาสำหรับ Mac เท่านั้น แต่ฉันคิดว่าฉันจะแบ่งปันให้กับบรรดาผู้ที่สามารถใช้งานได้

รวบรวมสคริปต์ด้านล่างใน ScriptEditor และบันทึกไว้ในโฟลเดอร์ "Style Scripts" ในโฟลเดอร์เดียวกันกับที่แอปพลิเคชัน Style อาศัยอยู่ ฉันได้บันทึกของฉันเป็น "ผนวก Unicoded HTML" หลังจากนั้นจะปรากฏในเมนู "สคริปต์" ของสไตล์

สไตล์มีให้ที่merzwaren ($ 20 แชร์แวร์) ฉันมีสิ่งนี้ทำงานบน Mac OS X 10.2.1 พร้อมสไตล์เวอร์ชัน 1.9.2

นี่คือสคริปต์:

AppleScript
set theHTML to "" 
tell application "Style" 
    set selText to selection of document 1 as Unicode text
    set selStart to get offset of selection of document 1
    set selEnd to get offset of end of selection of document 1
    set dataLen to (selEnd - selStart)
end tell
set tempName to "unicode temp"

tell application "Finder" 
    if alias tempName exists then
        move alias tempName to the trash
    end if 
end tell 

set fileRef to open for access tempName with write permission
write selText to fileRef
set myRawData to read fileRef from 0 for dataLen
close access fileRef

tell application "Finder" 
    move alias tempName to the trash 
end tell 

set numChars to dataLen div 2 
repeat with n from 1 to numChars 
    set theHTML to theHTML & "&#" 
    set a to get character (2 * n - 1) of myRawData 
    set b to get character (2 * n) of myRawData
    set lVal to ((ASCII number b) + (256 * (ASCII number a))) 
    set theHTML to (theHTML & lVal as string) & "; "	 
end repeat 

tell application "Style" 
    set selection of document 1 to ((selection of document 1) & " (  " & theHTML & " ) ") 
end tell

JavaScript

ผู้เขียน :

  • ไฟล์ Cyp 10:14 7 มิ.ย. 2546 (UTC) ( initial write )
  • -- Ævar Arnfjörð Bjarmason 16:02, 2004 16 พฤษภาคม (UTC) (การล้างโค้ด html ที่สำคัญ การเยื้องเพิ่มเติม )

รู้จักการทำงานเกี่ยวกับ :


หมายเหตุ :

คุณอาจไม่จำเป็นต้องใช้สคริปต์ในการแปลงอักขระ CJK หากคุณมี Mac ที่ใช้ Mac OS X 10.2 และมี Mozilla เป็นเบราว์เซอร์ของคุณ เพียงแค่ทำการแก้ไขจากภายใน Mozilla Mozilla จะทำการแปลงโดยอัตโนมัติ ตัวอย่างเช่น ในการเพิ่มการแก้ไขนี้ ฉันพิมพ์อักขระภาษาญี่ปุ่นสำหรับ "edit" ซึ่งก็คือ 編集 Mozilla แปลงอักขระเหล่านี้ให้อยู่ในรูปแบบ Unicode ที่เป็นอักษรโรมันโดยอัตโนมัติ เพียงดูที่บรรทัดด้านบนในกล่องแก้ไขเพื่อดูตัวคุณเอง - ผู้ใช้: IppikiOokami 5 กันยายน 2546

JavaScript
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
  <head>
    <title>Unicode conversion utility</title>
  </head>
  <body>
   <form name="charform">
     <p>Type here, and all characters with a code greater than 127 will be converted to &amp;#1234; codes.</p>
     <p>Input:</p>
     <textarea name="input" cols="80" rows="25" onKeyUp="revtxt()">
       Sorry, this page is useless with JavaScript disabled.
     </textarea>
     <p>Output:</p>
     <textarea name="output" cols="80" rows="25">
       Sorry, this page is useless with JavaScript disabled.
     </textarea>
    </form>
    <script type="text/javascript">
    <!--
      document.charform.input.value="";
      document.charform.output.value="Don't type here.";
      function revtxt() {
        var s=document.charform.input.value;
        o="";
        for( m=0;s.charAt(m);++m )
          if ( (c=s.charCodeAt(m))<128&&c!=38) o+=s.charAt(m);
          else if (c==38) o+="&amp;";
          else o+="&#"+c+";";
          document.charform.output.value=o;
      }
    -->
    </script>
</html>

รายการเฝ้าดูและยกเลิกการลบสคริปต์เลือกทั้งหมด

สคริปต์นี้จะตรวจสอบช่องทำเครื่องหมายทั้งหมดบนหน้า Wikipedia อย่างมีประโยชน์ ซึ่งมีประโยชน์สำหรับการล้างรายการเฝ้าดูขนาดใหญ่หรือกู้คืนหน้าที่มีประวัติขนาดใหญ่ มันทำงานใน Firefox, Internet Explorer Camino และSafari

ใน Firefox ให้สร้างบุ๊กมาร์กด้วยรหัสต่อไปนี้ในฟิลด์ "ตำแหน่ง"

ใน Internet Explorer ให้สร้างรายการโปรด และเมื่อสร้างเสร็จแล้ว ให้คลิกขวา เลือก "คุณสมบัติ" และวางรหัสต่อไปนี้ในช่อง "URL" (จะมีคำเตือนเกี่ยวกับโปรโตคอลที่ไม่ถูกต้อง แต่คุณสามารถเพิกเฉยได้ จะทำงาน).

ในSafariให้ใช้ตัวเลือก "แสดงที่คั่นหน้าทั้งหมด" เลือกคอลเลกชัน "แถบบุ๊กมาร์ก" เลือกสคริปต์ด้านล่างในบัฟเฟอร์การคัดลอกและวาง ([Command]-v) ลงในหน้าต่างด้านขวา บุ๊กมาร์กใหม่จะถูกสร้างขึ้นโดยอัตโนมัติและจะปรากฏในแถบบุ๊กมาร์ก ตั้งชื่อใหม่ให้เหมาะสม เช่น "เลือกทั้งหมด"

จาวาสคริปต์: สำหรับ ( ฉัน= 0 ;  ฉัน< เอกสาร. รูปแบบ. ความยาว;  ฉัน++ )  {  สำหรับ ( J = 0 ;  J < เอกสาร. รูปแบบ[ ผม]. องค์ประกอบ. ความยาว;  J ++ )  {  F =  เอกสาร แบบฟอร์ม[ ผม] องค์ประกอบ[ j ]; ถ้า(   type  ==  'checkbox' )  f . ตรวจสอบแล้ว=  จริง;   }   }  เป็นโมฆะ 0

อัปโหลดสคริปต์

สคริปต์ที่เขียนด้วยภาษา Perl เพื่ออัปโหลดภาพถ่ายจำนวนมากไปยังคอมมอนส์ ดูคอมมอนส์: ผู้ใช้: สคริปต์

สคริปต์การส่งออกและการย้ายไฟล์รูปภาพ

/ImageFileMigratorสคริปต์ Python เพื่อดาวน์โหลดไฟล์ทั้งหมดจากมีเดียวิกิและเพิ่มไปยังมีเดียวิกิอื่นโดยใช้บัญชี Sysop

การจัดหมวดหมู่และการเปลี่ยนสีของลิงค์

หลังจากไปที่ลิงก์ Wikipedia แล้ว ลิงก์นั้นจะเปลี่ยนสีจากสีน้ำเงินเป็นสีม่วงบนหน้าจอคอมพิวเตอร์ของฉัน ในการแท็กหน้าเว็บที่มีหมวดหมู่ ฉันได้เปิดหน้าเว็บทั้งหมดที่Category:NA-Class บทความเช่น เพื่อเปลี่ยนลิงก์ให้เป็นสีม่วง แล้วฉันจะใช้ทุกหน้าด้วยคำนำหน้าหน้าเหล่านั้นที่ลิงก์ยังคงเป็นสีน้ำเงินต้องมีแท็กหมวดหมู่ Category:NA-Class ต้องใช้เวลามากในการเปิดหน้าทั้งหมดภายในหมวดหมู่หนึ่งๆ ในตอนแรกเพื่อเปลี่ยนลิงก์จากสีน้ำเงินเป็นสีม่วง มีวิธีเปลี่ยนสีลิงค์ในCategory:บทความ NA-Class ไหมครับตามที่ปรากฏบนหน้าจอคอมพิวเตอร์ของฉันโดยไม่ต้องไปที่แต่ละลิงค์? ฉันพยายามแก้ไขไฟล์อินเทอร์เน็ตชั่วคราว (ประวัติเบราว์เซอร์) และลองใช้ตัวเลือก 'พิมพ์เอกสารที่เชื่อมโยงทั้งหมด' ของคุณสมบัติการพิมพ์ของ windows เพื่อพิมพ์ไปยังไฟล์ (ซึ่งฉันลบไปแล้ว) ฉันไม่สามารถแก้ไขไฟล์อินเทอร์เน็ตชั่วคราวของฉัน (ประวัติเบราว์เซอร์) และตัวเลือก 'พิมพ์เอกสารที่เชื่อมโยงทั้งหมด' ไม่ได้ส่งผลให้ลิงก์หมวดหมู่เป็นสีม่วง คุณสามารถสร้างสคริปต์ที่ทำให้ลิงก์ทั้งหมดบนหน้าเว็บ (เช่นหมวดหมู่:บทความ NA-Class ) เปลี่ยนสีเพื่อแสดงว่าฉันเข้าชมหน้าเว็บ (โดยไม่ได้เปิดหน้าที่เชื่อมโยงอยู่จริง ๆ ) ได้หรือไม่ ฉันเปิดรับวิธีการอื่นเช่นกัน ขอบคุณ. GregManninLB ( พูดคุย ) 15:57, 17 เมษายน 2008 (UTC)[]

ในการติดตามผมโพสต์คำขอนี้ในวิกิพีเดีย: โครงการวิกิสคริปต์ผู้ใช้ GregManninLB ( พูดคุย ) 16:10, 17 เมษายน 2008 (UTC)[]

คำขอสคริปต์ฐานข้อมูล

มีหลายหน้าที่ออกแบบมาเพื่อช่วยในการบำรุงรักษาและแก้ไขวิกิพีเดีย ซึ่งสร้างขึ้นโดยการคัดลอกฐานข้อมูลวิกิพีเดียทั้งหมดไปยังเครื่องและเรียกใช้สคริปต์หรือโปรแกรมบนนั้น

ที่นี่คุณสามารถขอให้ผู้ที่มีสำเนาล่าสุดของการถ่ายโอนข้อมูลฐานข้อมูลและทักษะที่เหมาะสมอัปเดตหน้าพิเศษและหน้าอื่น ๆ ที่ต้องใช้สคริปต์

ดูเพิ่มเติม: วิกิพีเดีย: ขอแบบสอบถาม

ดูสิ่งนี้ด้วย