"मैक्रो (सॉफ्टवेयर)": अवतरणों में अंतर
Arfa aliya (वार्ता | योगदान) No edit summary |
Sanjeev bot (वार्ता | योगदान) छो बॉट: वर्तनी एकरूपता। |
||
पंक्ति 11: | पंक्ति 11: | ||
ओपेनआफिस का यूनिकोड को कृतिदेव में बदलने का मेरा आरम्भिक मैक्रो कुछ इस प्रकार है- |
ओपेनआफिस का यूनिकोड को कृतिदेव में बदलने का मेरा आरम्भिक मैक्रो कुछ इस प्रकार है- |
||
REM |
REM ***** BASIC ***** |
||
पंक्ति 17: | पंक्ति 17: | ||
rem ---------------------------------------------------------------------- |
rem ---------------------------------------------------------------------- |
||
rem define variables |
rem define variables |
||
dim document |
dim document as object |
||
dim dispatcher as object |
dim dispatcher as object |
||
rem ---------------------------------------------------------------------- |
rem ---------------------------------------------------------------------- |
||
rem get access to the document |
rem get access to the document |
||
document |
document = ThisComponent.CurrentController.Frame |
||
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") |
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") |
||
पंक्ति 115: | पंक्ति 115: | ||
args2(11).Value = "A" |
args2(11).Value = "A" |
||
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) |
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) |
||
end sub |
end sub |
||
08:37, 4 फ़रवरी 2017 का अवतरण
कम्प्यूटर सॉफ्टवेयर के संदर्भ में मैक्रो (macro ; यूनानी μάκρο = बड़ा या दूर) किसी नियम या पैटर्न का द्योतक है जो बताता है कि किसी इनपुट-श्रेणी (सेक्वेंस) के संगत आउटपुट श्रेणी क्या रहेगी। प्रायः इनपुट श्रेणी और आउटपुट श्रेणी दोनो ही वर्णों की श्रेणी या शब्दसमूह होते हैं। (जैसे इन्पुट श्रेणी = LDA और आउटपुट श्रेणी = Load accumulator आदि)। 'मैक्रो' शब्द कम्प्यूटर की प्रगति के आरम्भिक दिनों में मैक्रो-असेम्बुलरों के साथ अस्तित्व में आया।
आजकल अधिकांश अप्लिकेशन सॉफ्टवेयरों (जैसे ओपेनआफिस, नोटपैड++ आदि) में मैक्रो रेकार्ड करने, उसे चलाने एवं सम्पादित करने आदि की सुविधा होती है। कुंजीपटल और माउस के मैक्रो भी होते हैं जो कुछ कुंजियों को दबाने मात्र से बहुत सारे काम क्रम से कर देते हैं जिनके लिये बहुत सी कुंजियाँ दबानी पड़तीं। मैक्रो का समुचित उपयोग करके पुनरावृत्त (रिपिटेटिव) कार्यों में श्रम से बचा जा सकता है और गलती की सम्भावना भी समाप्त हो जाती है।
- उदाहरण
नीचे ओपेन आफिस के राइटर में स्थित किसी डॉक्युमेंट का फांट यूनिकोड से कृतिदेव १० में बदलने के लिये निर्मित एक मैक्रो का कुछ भाग दिखाया गया है -
ओपेनआफिस का यूनिकोड को कृतिदेव में बदलने का मेरा आरम्भिक मैक्रो कुछ इस प्रकार है-
ओपेनआफिस का यूनिकोड को कृतिदेव में बदलने का मेरा आरम्भिक मैक्रो कुछ इस प्रकार है-
REM ***** BASIC ***** sub Unicode_to_Kritidev_trial rem ---------------------------------------------------------------------- rem define variables dim document as object dim dispatcher as object rem ---------------------------------------------------------------------- rem get access to the document document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper") rem ---------------------------------------------------------------------- dim args2(18) as new com.sun.star.beans.PropertyValue args2(0).Name = "SearchItem.StyleFamily" args2(0).Value = 2 args2(1).Name = "SearchItem.CellType" args2(1).Value = 0 args2(2).Name = "SearchItem.RowDirection" args2(2).Value = true args2(3).Name = "SearchItem.AllTables" args2(3).Value = false args2(4).Name = "SearchItem.Backward" args2(4).Value = false args2(5).Name = "SearchItem.Pattern" args2(5).Value = false args2(6).Name = "SearchItem.Content" args2(6).Value = false args2(7).Name = "SearchItem.AsianOptions" args2(7).Value = true args2(8).Name = "SearchItem.AlgorithmType" args2(8).Value = 0 args2(9).Name = "SearchItem.SearchFlags" args2(9).Value = 65536 args2(10).Name = "SearchItem.SearchString" args2(11).Name = "SearchItem.ReplaceString" args2(12).Name = "SearchItem.Locale" args2(12).Value = 255 args2(13).Name = "SearchItem.ChangedChars" args2(13).Value = 2 args2(14).Name = "SearchItem.DeletedChars" args2(14).Value = 2 args2(15).Name = "SearchItem.InsertedChars" args2(15).Value = 2 args2(16).Name = "SearchItem.TransliterateFlags" args2(16).Value = 1024 args2(17).Name = "SearchItem.Command" args2(17).Value = 3 args2(18).Name = "Quiet" args2(18).Value = true args2(10).Value = "‘" args2(11).Value = "^" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "\’" args2(11).Value = "*" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "“" args2(11).Value = "Þ" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "”" args2(11).Value = "ß" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "(" args2(11).Value = "¼" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = ")" args2(11).Value = "½" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "म" args2(11).Value = "e" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "{" args2(11).Value = "¿" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "}" args2(11).Value = "À" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "=" args2(11).Value = "¾" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) args2(10).Value = "।" args2(11).Value = "A" dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args2()) end sub