आरटीएफ रूपों के आधार पर रिपोर्ट तैयार करने का एक सरल तरीका

एंटरप्राइज़-स्तरीय सूचना प्रणालियों के व्यावहारिक संचालन में, विशेष रूप से अपर्याप्त रूप से विकसित रिपोर्टिंग प्रणाली के साथ, अक्सर विभिन्न रूपों को भरने के लिए आवश्यक है (उदाहरण के लिए, बयान, प्रमाण पत्र, निष्कर्ष, आदि) या लेजर प्रिंटर पर मुद्रण के लिए रिपोर्ट तैयार करें, लगभग इस रूप में। :

RTF रिक्त उदाहरण
दस्तावेज़ का शीर्षक: PARAM1

पंक्ति 1	मूल्य	PARAM2
पंक्ति २	मूल्य	PARAM3

हस्ताक्षर: PARAM4

अंजीर। 1 आरटीएफ-फ़ाइल के रूप में एक फॉर्म का उदाहरण, चर को "QUOTE" प्रकार के खेतों के रूप में वर्णित किया जाता है - PARAM1, PARAM2, PARAM3, PARAM4



डेटा के साथ फॉर्म भरते समय, PARAM1 ... 4 चर को अपने मूल्यों के साथ बदलना होगा।
इसके अलावा, प्रपत्र प्रपत्र आमतौर पर स्थिर और अपरिवर्तित रहता है, और प्रपत्र में विशिष्ट फ़ील्ड डेटाबेस तालिकाओं, डेटा फ़ाइलों, आदि से "लोड" होनी चाहिए। पर्ल भाषा के संदर्भ में, हैश मूल्य जिनकी कुंजी चर नामों के अनुरूप है:
(PARAM1 => "PARAMETER1", PARAM1 => "PARAMETER2", PARAM1 => "PARAMETER3",
PARAM1 => "PARAMETER4")
नतीजतन, लेजर प्रिंटर पर मुद्रण के लिए तैयार फॉर्म कुछ इस तरह दिखाई देगा:

RTF रिक्त उदाहरण
दस्तावेज़ का शीर्षक: OPTION1

पंक्ति 1	मूल्य	parameter2
पंक्ति २	मूल्य	पैरामेटेर ३

दस्तावेज़ के तहत हस्ताक्षर: PARAMETER4

अंजीर। 2 “QUOTE” प्रकार के फ़ील्ड को संबंधित हैश कुंजी के मानों के साथ बदलकर rtf-form (छवि 1) में भरने का परिणाम है।


इसी समय, कई कठिन असंगत आवश्यकताओं को पूरा करने की आवश्यकता है - फॉर्म का विकास और सुधार अंतिम उपयोगकर्ता (एकाउंटेंट, मानव संसाधन अधिकारी, प्रबंधक, आदि) के लिए उपलब्ध होना चाहिए और मनमाने क्षेत्रों को विलय करने की अनुमति देना चाहिए, और प्रोग्रामर या कर्मचारी को डेटा निष्कर्षण प्रक्रिया की तैयारी करना चाहिए। समर्थन सेवाएं, अर्थात डेटा निष्कर्षण प्रक्रिया से डेटा की प्रस्तुति को अलग करना आवश्यक है।

आप निश्चित रूप से, कह सकते हैं कि डेटा मर्जिंग की ऐसी तकनीक का उपयोग एमएस वर्ड में लंबे समय से किया गया है, उदाहरण के लिए, लेकिन इसमें एक गंभीर खामी है: विलय प्रक्रिया एक अप्रस्तुत उपयोगकर्ता के लिए जटिल है (आपको एक डेटा फ़ाइल तैयार करने की आवश्यकता है, एक प्रपत्र चुनें, मर्ज प्रक्रिया शुरू करें, परिणामों से निपटें) ।

एक अन्य विकल्प - एक्सएमएल फाइलों के रूप में प्रपत्रों का उपयोग और उन्हें एक्सएसएलटी तालिकाओं में वर्णित प्रतिस्थापन नियमों के अनुसार भरना - इसका नुकसान यह है कि एक अप्रशिक्षित उपयोगकर्ता के लिए यह मुश्किल होगा जो XML फ़ाइलों के रूपों को बनाने और संपादित करने के लिए एमएस वर्ड के साथ काम करने के लिए उपयोग किया जाता है। एमएस वर्ड की लोकप्रियता में एक्सएमएल के साथ काम करने के लिए किसी भी सामान्य टूल को ढूंढना कठिन है।

एक बड़ी बैंकिंग सूचना प्रणाली में काम करते हुए कई वर्षों तक विकसित और परीक्षण किए गए समाधान, एक साधारण स्क्रिप्ट का उपयोग करके आरटीएफ-रिपोर्ट रूपों में स्वचालित डेटा प्रतिस्थापन का विकल्प था (इस मामले में, पर्ल का उपयोग किया गया था, लेकिन कोई भी भाषा जो नियमित अभिव्यक्ति प्रसंस्करण का समर्थन करती है) संभव है। rtf टेक्स्ट डॉक्यूमेंट में “QUOTE” टाइप फ़ील्ड डिस्क्रिप्टर की खोज करना और फ़ाइल के डेटाबेस टेबल से निकाले गए समान नाम वाले वैरिएबल के मान के साथ इन फ़ील्ड्स के प्रतीकात्मक नामों को बदलना डेटा की (मामले में पर्ल - इसी प्रतीकात्मक नाम क्षेत्र की बंद हैश)।

टिप्पणियों के साथ एक स्क्रिप्ट का एक उदाहरण जो इस तरह के प्रतिस्थापन का प्रदर्शन करता है, पोस्टिंग के अंत में दिखाया गया है।

सबसे अधिक संभावना है, यहां तक ​​कि स्क्रिप्ट के सिद्धांत की एक संक्षिप्त व्याख्या की आवश्यकता नहीं है (चर मानों के प्रतिस्थापन के साथ एक तैयार-निर्मित आरटीएफ-फॉर्म एक अस्थायी फ़ाइल temp.rtf के लिए आउटपुट है, प्रिंटर को भेजने के लिए तैयार है), ब्याज का एकमात्र हिस्सा नियमित अभिव्यक्ति है:

$rtf =~ s/\{\\field\b[^{}]*\{\\\*\\fldinst.*?{\\fldrslt\s*\{([^}]+\s)?\s*([^}]+\s) ?\s*([^}]+)\}\s*((?:\{[^{}]+\}\s*)*)\}\s*\}/dosubst($1,$2,$3,$p,$&)/gesx; 

"QUOTE" प्रकार के फ़ील्ड डिस्क्रिप्टर के लिए rtf-file में खोज करना और उन्हें dosubst फ़ंक्शन द्वारा लौटाए गए% p हैश से संबंधित मान के साथ प्रतिस्थापित करना। इस नियमित अभिव्यक्ति की वैधता का परीक्षण सभी एमएस ऑफिस पैकेजों द्वारा तैयार rtf- फाइलों पर किया जाता है - ऑफिस 95 से ऑफिस 2010 तक।

बेशक, इस पद्धति में कुछ कमियां हैं, उदाहरण के लिए, आरटीएफ फॉर्म के लिए तालिका मानों को आउटपुट करना मुश्किल है, विशेष रूप से लंबी तालिकाओं के लिए (उदाहरण के लिए, वे पर्ल लिपि में निर्माण करके तुरंत तैयार हो सकते हैं), लेकिन यह भी गंभीर फायदे हैं :

- फॉर्म के विकास और इसमें डेटा प्लेसमेंट के लिए फ़ील्ड्स की व्यवस्था एक साधारण उपयोगकर्ता द्वारा की जा सकती है, जो वर्ड एडिटर से परिचित हो (जो टेक्स्ट में "QUOTE" टाइप के फ़ील्ड्स डाल सकते हैं), फिर डेटा फ़ील्ड नामों की सूची को सूचित करना और प्रोग्रामर या सेवा विशेषज्ञ के पास ले जाते समय उनमें क्या रखा जाना चाहिए। समर्थन करता है;
- डेटा को डाउनलोड करने वाली स्क्रिप्ट का विकास प्रोग्रामर द्वारा किया जाता है, और भविष्य में, यदि आवश्यक हो, तो कॉस्मेटिक रूप में परिवर्तन (फ़ॉन्ट, इंडेंटेशन, लोगो, आदि), प्रोग्रामर को आकर्षित करने की कोई आवश्यकता नहीं है, या तो समर्थन सेवा या उपयोगकर्ता आसानी से ऐसा कर सकते हैं। रूप का लेखक।

इस प्रकार, डेटा प्रस्तुति फॉर्म को अलग करना आसान है, जिसके लिए उपयोगकर्ता या समर्थन सेवा जिम्मेदार है, वास्तविक डेटा से, जिसकी निष्कर्षण प्रक्रिया प्रोग्रामर द्वारा विकसित की जाती है।

 #!/usr/bin/perl # filling rtf-blank # Dim Kobzev, Andrew Sapognikov # 2004 $==1000; #-------------------------filling template file------------------------------- sub dosubst { my ($pfx, $key, $xtrakey, $parm, $str) = @_; if (defined $xtrakey) { $xtrakey =~ s/[{}]//g; $xtrakey =~ s/\\w+//g; $xtrakey =~ s/\s//g; $key .= $xtrakey; } defined ($parm->{$key}) or return "\{$pfx\}"; my $val = $parm->{$key}; $val =~ s/([{}\\])/\\$1/g; $val =~ s/\n/\\line/g; $val =~ s/\r//g; return "\{$pfx$val\}"; } sub template ($$) { #filling $filename with hash $p my ($filename,$p)=@_; my $rtf; local $/, *F; open (F,"< $filename") or die "Cannot open $filename"; $rtf=<F>; close(F); #set win-1251 codepage $rtf =~ s/\\f(5|6)\\fmodern\\fcharset0/\\f$1\\fmodern\\fcharset144/; $rtf =~ s/\{\\field\b[^{}]*\{\\\*\\fldinst.*?{\\fldrslt\s*\{([^}]+\s) ?\s*([^}]+)\}\s*((?:\{[^{}]+\}\s*)*)\}\s*\}/dosubst($1,$2,$3,$p,$&)/gesx; return $rtf; }; #-------------------------main-------------------------------------------------- %p=('PARAM1'=>"1",'PARAM2'=>"2", 'PARAM3'=>"3",'PARAM4'=>"4"); my $tfil='temp.rtf'; open *FILE, "> $tfil" or die "Cannot open temporary file $tfil"; print FILE template("blank.rtf",\%p); close *FILE; #---------------------------------end main-------------------------------------