घर फूल Vb6 फ़ाइल सिस्टम मेनू ऑपरेशन कोड उदाहरण। फ़ाइल में डेटा जोड़ना। फ़ाइल सिस्टम ऑब्जेक्ट फ़ाइलें पढ़ना

Vb6 फ़ाइल सिस्टम मेनू ऑपरेशन कोड उदाहरण। फ़ाइल में डेटा जोड़ना। फ़ाइल सिस्टम ऑब्जेक्ट फ़ाइलें पढ़ना

प्रत्येक प्रोग्राम को डेटा को डिस्क में सहेजना चाहिए और इसे डिस्क से पढ़ना चाहिए। यह आवश्यक है, उदाहरण के लिए, प्रोग्राम की सेटिंग्स को सहेजने के लिए, उपयोगकर्ता को प्रोग्राम पसंद करने की संभावना नहीं है, जिसे अगली बार फिर से कॉन्फ़िगर करना होगा।

यह आलेख Visual Basic का उपयोग करके टेक्स्ट फ़ाइलों के साथ काम करने पर केंद्रित होगा।

फ़ाइल विवरणक

फाइलों के साथ काम करने के लिए, ऑपरेटिंग सिस्टम इनपुट / आउटपुट चैनल का उपयोग करता है, अर्थात। प्रत्येक खुली फ़ाइल का अपना नंबर होता है।

विजुअल बेसिक का एक कार्य है फ्रीफाइल, जो एक मुफ्त चैनल की संख्या देता है जिसका उपयोग फ़ाइल के साथ काम करने के लिए किया जा सकता है। यदि कोई मुफ्त चैनल नहीं हैं, तो एक त्रुटि होती है।

फ्रीफाइल [(श्रेणी संख्या) ]

श्रेणी संख्या- एक वैकल्पिक पैरामीटर जो आपको मुफ्त चैनलों के मूल्यों की सीमा निर्धारित करने की अनुमति देता है, यदि श्रेणी संख्या= 0 (डिफ़ॉल्ट), फिर चैनल नंबर 1 - 255 की सीमा से लौटाया जाता है, और यदि 1 है, तो सीमा 256 - 511 से।

माईफाइल = फ्रीफाइल "परिवर्तनीय MyFile को एक निःशुल्क चैनल सौंपा गया है और अब इसे फ़ाइलों के साथ काम करने के लिए उपयोग किया जा सकता है

पाठ फ़ाइलों के साथ कार्य करना

अक्सर आपके सामने टेक्स्ट फाइलें आती हैं। टेक्स्ट फाइलें ASCII (अमेरिकन स्टैंडर्ड कोड फॉर इंफॉर्मेशन इंटरचेंज) कैरेक्टर सेट से बनी होती हैं।

डेटा लिखना / पढ़ना शुरू करने से पहले, फ़ाइल को खोला जाना चाहिए, यह ऑपरेटर का उपयोग करके किया जाता है खुला हुआ (फ़ाइल का नाम) के लिए के रूप में #दस्तावेज संख्या, कहाँ पे:

इनपुट- पढ़ने के लिए फ़ाइल खोलें, यदि फ़ाइल मौजूद नहीं है, तो एक त्रुटि होती है;

उत्पादन- लिखने के लिए, यदि फ़ाइल मौजूद नहीं है, तो इसे बनाया जाएगा, और यदि फ़ाइल मौजूद है, तो इसे अधिलेखित कर दिया जाएगा;

संलग्न- जोड़ने के लिए, यदि फ़ाइल मौजूद नहीं है, तो इसे बनाया जाएगा, और यदि फ़ाइल मौजूद है, तो डेटा फ़ाइल के अंत में जोड़ा जाएगा।

पाठ फ़ाइलों को पढ़ना दो तरीकों से किया जा सकता है: चरित्र द्वारा चरित्र पढ़ें, इसके लिए फ़ंक्शन का उपयोग करें इनपुट (पढ़ने के लिए वर्णों की संख्या, #दस्तावेज संख्या) और लाइन से लाइन, इसके लिए फ़ंक्शन का उपयोग किया जाता है लाइन इनपुट #दस्तावेज संख्या, कहां_से_पढ़ें.

डिम माईफाइल

स्ट्रिंग के रूप में मंद एस "पढ़े गए डेटा को संग्रहीत करने के लिए चर

माईफाइल = फ्रीफाइल

#MyFile . के रूप में इनपुट के लिए ("C: \ TEST.txt") खोलें

लाइन इनपुट #MyFile, S "TEST.TXT फ़ाइल से पहली पंक्ति को S चर में पढ़ना

डिम माईफाइल "एक मुफ्त फ़ाइल के लिए एक चर घोषित करना

डिम आई अस इंटीजर "लूप के लिए चर

स्ट्रिंग के रूप में मंद टीएस "पंक्तियों को पढ़ने के लिए चर

स्ट्रिंग के रूप में मंद एस "अंतिम डेटा संग्रहीत करने के लिए चर

माईफाइल = फ्रीफाइल "फ़ाइलों के साथ काम करने के लिए एक मुफ़्त चैनल असाइन करना

"पढ़ने के लिए TEST.TXT फ़ाइल खोलें

मैं = 1 से 5 . के लिए

लाइन इनपुट #MyFile, tS "TEST.TXT फ़ाइल लाइन को लाइन से पढ़ना

अगर मैं => 5 तो एस = टीएस "अगर पांचवीं लाइन है, तो हम इसे वेरिएबल S . में स्टोर करते हैं

अगला मैं

#MyFile बंद करें "फ़ाइल बंद करें

Dim MyFile "एक निःशुल्क फ़ाइल के लिए एक चर घोषित करें

डिम एस स्ट्रिंग के रूप में "पढ़ने वाले डेटा को संग्रहीत करने के लिए चर

माईफाइल = फ्रीफाइल "फ़ाइलों के साथ काम करने के लिए एक मुफ़्त चैनल असाइन करना

#MyFile . के रूप में इनपुट के लिए ("C: \ TEST.txt") खोलें "पढ़ने के लिए TEST.TXT फ़ाइल खोलें

एस = इनपुट $ (लॉग (1), 1) "हम पूरी फाइल को वेरिएबल S . में पढ़ते हैं

#MyFile बंद करें "फ़ाइल बंद करें

फ़ाइल में लिखने के लिए ऑपरेटर हैं प्रिंट #दस्तावेज संख्या, आंकड़ेतथा लिखना #दस्तावेज संख्या, आंकड़े... इन ऑपरेटरों के बीच एकमात्र अंतर यह है कि लिखनाडेटा को उद्धरणों में लिखता है, और छापबिना उद्धरण।

निम्नलिखित कोड C: \ ड्राइव पर एक नई TEST.TXT फ़ाइल बनाएगा और उसमें दो पंक्तियाँ लिखेंगे, पहली बिना उद्धरण के और दूसरी उद्धरणों में:

डिम माईफाइल "एक मुफ्त फ़ाइल के लिए एक चर घोषित करना

माईफाइल = फ्रीफाइल "फ़ाइलों के साथ काम करने के लिए एक मुफ़्त चैनल असाइन करना

ओपन ("सी: \ TEST.txt") आउटपुट के लिए #MyFile . के रूप में "रिकॉर्डिंग के लिए TEST.TXT फ़ाइल खोलें

प्रिंट करें #MyFile, "यह स्ट्रिंग प्रिंट ऑपरेटर द्वारा लिखी गई थी, यह बिना कोट्स के है..."

#MyFile लिखें, "यह लाइन राइट स्टेटमेंट द्वारा लिखी गई थी, यह कोट्स में है..."

#MyFile बंद करें "फ़ाइल बंद करें

बस इतना ही। जैसा कि आप शायद पहले ही समझ चुके हैं, ऑपरेटर का उपयोग फ़ाइल को बंद करने के लिए किया जाता है बंद करे #दस्तावेज संख्या, जिसमें, # दस्तावेज संख्यानिर्दिष्ट करना आवश्यक नहीं है।

लेख थोड़ा कच्चा है, लेकिन नौसिखिए प्रोग्रामर के लिए यह उपयोगी होगा। अगली बार मैं बायनेरिज़ के साथ काम करने के बारे में बात करूँगा।

खिड़कियाँ

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

नियंत्रण प्रश्न:

1. आप टेक्स्ट फ़ाइल को किन तरीकों से खोल सकते हैं? मैं टेक्स्ट फ़ाइल और किसी अन्य खुली फ़ाइल को कैसे बंद कर सकता हूँ?

2. टेक्स्ट फ़ाइल में लिखे गए डेटा को लिखने के लिए कैसे खोला जाता है? राइट और प्रिंट स्टेटमेंट में क्या अंतर है?

3. ओपन-टू-रीड टेक्स्ट फ़ाइल से डेटा कैसे पढ़ा जाता है? इनपुट और लाइन इनपुट स्टेटमेंट एक दूसरे से कैसे भिन्न होते हैं? किसी फ़ाइल में दिए गए वर्णों की संख्या को पढ़ने के लिए किस फ़ंक्शन का उपयोग किया जा सकता है? मैं फ़ाइल के सभी वर्णों को कैसे पढ़ सकता हूं?

4. उपयोगकर्ता द्वारा परिभाषित डेटा प्रकार क्या है और रैंडम एक्सेस फ़ाइलों के साथ काम करते समय इस अवधारणा का उपयोग कैसे किया जाता है ( आरएएफ)?

5. किस ऑपरेटर के साथ फाइल से आरएएफरिकॉर्ड फ़ाइल में पढ़े जाते हैं आरएएफनए रिकॉर्ड लिखे जा रहे हैं?

6. फ़ाइल के साथ काम करते समय सूचकांक किस उद्देश्य से निर्धारित और उपयोग किया जाता है? आरएएफ?

7. बाइनरी फाइलों का उपयोग करने की विशेषताएं क्या हैं? वे कैसे खुलते हैं? बाइनरी फ़ाइल से पढ़ना और बाइनरी फ़ाइल में लिखना कैसे किया जाता है?

8. नियंत्रण कैसे लागू किया जा सकता है सामान्यसंवादटेक्स्ट फ़ाइल की सामग्री को टेक्स्टबॉक्स में लोड करने के लिए? मैं उसी नियंत्रण का उपयोग करके संपादित टेक्स्ट को टेक्स्ट फ़ाइल में कैसे सहेज सकता हूं?

9. नियंत्रण कैसे लागू किया जा सकता है सामान्यसंवादफ़ाइल सामग्री डाउनलोड करने के लिए आरटीएफखेत मेँ धनीपाठ बॉक्स? एक ही नियंत्रण का उपयोग करके संपादित टेक्स्ट को फ़ाइल में कैसे सहेजना है आरटीएफ?

10. नियंत्रण कैसे लागू किया जा सकता है सामान्यसंवादफ़ॉन्ट मापदंडों के मूल्यों को बदलने के लिए और विंडो में पाठ का रंग बदलने के लिए पाठ बॉक्स(या एक विंडो में पाठ का एक चयनित टुकड़ा धनीपाठ बॉक्स)?

उदाहरण 7.1। एक एप्लिकेशन पर विचार करें जो एक टेक्स्ट फ़ाइल (और एक टेक्स्ट फ़ाइल से पढ़ना) "कर्मचारियों के बारे में जानकारी" को लिखने को प्रदर्शित करता है - लाइनें, जिनमें से प्रत्येक में एक पहचान संख्या, पूरा नाम, जन्म तिथि और एक कर्मचारी का जन्म स्थान होता है। पंक्तियाँ एक तालिका बनाती हैं, जो स्क्रीन पर 4 कॉम्बो बॉक्स नियंत्रण (चित्र। 7.1) का अनुकरण करेगी, जिससे कंघी (i) वस्तुओं की एक सरणी बन जाएगी, जिसकी शैली संपत्ति का मान 1 - SimpleCombo है।

DIV_ADBLOCK265 ">

कंघी (जे) .ListIndex = i

'तालिका में एक नया रिकॉर्ड जोड़ना:

निजी उप mnuAdd_Click ()

एक्ससी (जे) = कंघी (जे) .पाठ

कंघी (जे) .AddItem XC (j)

'तालिका से रिकॉर्ड हटाना:

निजी उप mnuRemove_Click ()

i% = कंघी (0) .ListIndex

अगर मुझे< 0 Then

MsgBox "हटाई जाने वाली लाइन का चयन करें", vbExक्लेमेशन

कंघी (जे) .RemoveItem i

'तालिका में एक नया रिकॉर्ड सम्मिलित करना:

निजी उप mnuInsert_Click ()

i% = कंघी (0) .ListIndex

अगर मुझे< 0 Then

MsgBox "इससे पहले सम्मिलित करने के लिए पंक्ति का चयन करें", vbExclaration

कंघी (0)। AddItem InputBox ("नंबर दर्ज करें"), i

कंघी (1)। AddItem InputBox, i

कंघी (2) .AddItem InputBox ("जन्म तिथि दर्ज करें।"), I

कंघी (3) .AddItem InputBox ("जन्म स्थान दर्ज करें।"), I

'तालिका में प्रविष्टि बदलें:

निजी उप mnuUpdate_Click ()

i% = कंघी (0) .ListIndex

अगर मुझे< 0 Then

MsgBox "संशोधित की जाने वाली पंक्ति को हाइलाइट करें", vbExclaration

कंघी (0)। सूची (i) = इनपुटबॉक्स ("संख्या दर्ज करें", कंघी (0)। सूची (i))

कंघी (1)। सूची (i) = इनपुटबॉक्स ("नाम दर्ज करें", कंघी (1)। सूची (i))

कंघी (2)। सूची (i) = इनपुटबॉक्स ("अपनी जन्मतिथि दर्ज करें", कंघी (2)। सूची (i))

कंघी (3)। सूची (i) = इनपुटबॉक्स ("जन्मस्थान दर्ज करें", कंघी (3)। सूची (i))

'पूरी तालिका साफ़ करना:

निजी उप mnuClear_Click ()

'पाठ फ़ाइल से जानकारी के साथ तालिका को पॉप्युलेट करना:

निजी उप mnuLoad_Click ()

# 1 . के रूप में इनपुट के लिए "व्यक्ति। टेक्स्ट" खोलें

इनपुट # 1, सुन्न, फियो, बीडेट, ब्लॉक

कंघी (0) .AddItem सुन्न

कंघी (1) .AddItem fio

कंघी (2) .AddItem bdate

कंघी (3) .AddItem ब्लॉक

'पाठ फ़ाइल में तालिका जानकारी लिखना:

निजी उप mnuSave_Click ()

एन% = कंघी (0)। लिस्टकाउंट

# 1 . के रूप में आउटपुट के लिए "व्यक्ति। टेक्स्ट" खोलें

मैं = 0 से एन - 1 . के लिए

सुन्न = वैल (कंघी (0)। सूची (i))

fio = कंघी (1)। सूची (i)

बीडेट = सीडीएटी (कंघी (2)। सूची (i))

ब्लॉक = कंघी (3)। सूची (i)

# 1 लिखें, सुन्न, फियो, बीडेट, ब्लॉक

'आवेदन शटडाउन:

निजी उप mnuExit_Click ()

उदाहरण 7.2 ... एक एप्लिकेशन पर विचार करें जो नियंत्रणों के उपयोग को प्रदर्शित करता है सामान्यसंवादफ़ाइल खोलने और सहेजने के लिए, फ़ॉन्ट और रंग चुनने के लिए, और टेक्स्ट संपादित करने के लिए।

प्रारूप फ़ाइल टेक्स्टटेक्स्ट फ़ील्ड में लोड किया जाएगा (चित्र 7.2 में बायां फ़ील्ड), और प्रारूप फ़ाइल आरटीएफ- खेत मेँ धनीपाठ बॉक्स(चित्र 7.2 में दायां हाशिया)।

DIV_ADBLOCK267 ">

कंप्यूटर इंटरफेस को लागू करने के लिए, निम्नलिखित गुणों की तालिका भरी गई है:

वस्तु

कक्षा

वस्तु

संपत्ति

वस्तु

संपत्ति मूल्य

"सामान्य के पैनल"

वार्ता "

टैब के रूप में खोलें / सहेजें

फ़ॉन्ट टैब

रंग टैब

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

निजी उप mnuOpen_Click ()

CommonDialog1.दिखाएँ खुला

एफ $ = CommonDialog1.FileName

यदि दायाँ (F, 3) = "rtf" तो

RichTextBox1.LoadFile एफ

ElseIf राइट (F, 3) = "txt" तब

# 1 . के रूप में इनपुट के लिए एफ खोलें

एस $ = इनपुट (एन, 1)

निजी उप mnuSave_Click ()

CommonDialog1.ShowSave

एफ $ = CommonDialog1.FileName

निजी उप mnuSaveAs_Click ()

CommonDialog1.ShowSave

एफ $ = CommonDialog1.FileName

RichTextBox1.SaveFile एफ, rtfRTF

इस कार्य के दौरान, छात्र को 2 कार्य पूरे करने होंगे।

अभ्यास 1। असाइनमेंट पूरा करने की प्रक्रिया में, छात्र रैंडम एक्सेस फाइलों के साथ काम करने की क्षमताओं में महारत हासिल कर लेते हैं ( आरएएफ -यादृच्छिक रूप सेपहुंचफ़ाइल).

किसी दिए गए डेटाबेस तालिका के लिए, एक कस्टम डेटा प्रकार घोषित करें, उस प्रकार का एक चर घोषित करें (ट्यूटोरियल, पीपी। 108 - 112), एक कस्टम प्रकार चर का उपयोग करने वाली प्रक्रियाओं का निर्माण और डीबग करें।

विशेष रूप से, मेनू कमांड के लिए प्रक्रियाएं लागू की जाती हैं फाइल करने के लिए लिखेंआरएएफतथा फ़ाइल से पढ़ेंआरएएफ... उदाहरण 7.1 में, डेटा को संपादित करने के लिए वस्तुओं की एक सरणी का उपयोग किया जाता है। कॉम्बोडिब्बाऔर मेनू संपादित करेंपांच सबमेनू कमांड के साथ: टिप्पणी जोड़ें, प्रविष्टि हटाएं, रिकॉर्ड डालें, प्रविष्टि संपादित करें, तालिका साफ़ करें.

विकल्प 1.

"ऑटोसर्विस" डेटाबेस की "कार" तालिका (तालिका 7.1) के लिए एक कस्टम डेटा प्रकार घोषित करें।

कार

कार

दोषपूर्ण हो जाता है

तालिका 7.1 की निचली रेखा फ़ील्ड के प्रकार को दर्शाती है।

विकल्प 2.

"ऑटोसर्विस" डेटाबेस की "दोष" तालिका (तालिका 7.2) के लिए एक कस्टम डेटा प्रकार घोषित करें।

दोषपूर्ण हो जाता है

नाम

दोषपूर्ण हो जाता है

कीमत

तालिका 7.2 की निचली पंक्ति में फ़ील्ड प्रकार हैं।

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

कार्य 2. जैसे ही वे असाइनमेंट पूरा करते हैं, छात्र उदाहरण 2 में एप्लिकेशन में नई सुविधाएं जोड़ते हैं, जिससे एप्लिकेशन को एक साधारण टेक्स्ट एडिटर के रूप में देखना संभव हो जाता है।

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

संकेत:ऑब्जेक्ट सेट करते समय सामान्यसंवाद(कस्टम) गुण का उपयोग करके एक फ़ॉन्ट का चयन करने के लिए, ध्वज गुण मान को 1, 2, या 3 के बराबर सेट करना सुनिश्चित करें (ट्यूटोरियल देखें, पृष्ठ 183)।

विकल्प 2... नियंत्रण का उपयोग करना सामान्यसंवादमेनू कमांड लागू करें संपादित करें(उपमेनू प्रतिलिपि, कट गयातथा पेस्ट करें), जिसका उद्देश्य है नकलया विलोपनचयनित पाठ खंड के क्लिपबोर्ड पर, और डालनेक्लिपबोर्ड की सामग्री के पाठ में हाइलाइट किए गए स्थान पर।

संकेत:क्लिपबोर्ड के लिए (ऑब्जेक्ट क्लिपबोर्ड) आप सेटटेक्स्ट और गेटटेक्स्ट विधियों का उपयोग कर सकते हैं:

क्लिपबोर्ड। सेटटेक्स्ट RichTextBox1.SelText

RichTextBox1.SelText = Clipboard. गेटटेक्स्ट

चरित्र डेटा

कंप्यूटर मेमोरी में प्रत्येक वर्ण के लिए, ASCII एन्कोडिंग (या यूनिकोड में दो बाइट्स) में 1 बाइट (8 बिट) मेमोरी आवंटित की जाती है। कोड तालिकाओं में प्रत्येक में 256 वर्ण होते हैं। पहला कोड नंबर 0 पर 127 किसी भी एन्कोडिंग में समान हैं। नंबर . से 0 पर 31 - नियंत्रण वर्ण, संख्या 32 एक अंतरिक्ष है। आगे के प्रतीक: साथ 48 पर 57 - 0 से 9 . तक की संख्याएं , साथ 65 पर 90 - लैटिन वर्णमाला के बड़े अक्षर, with 97 पर 122 - लैटिन वर्णमाला के छोटे अक्षर। बीच में संकेत हैं। तालिका पदों के साथ 128 पर 256 विभिन्न भाषाओं के राष्ट्रीय प्रतीकों के लिए उपयोग किया जाता है।

कैरेक्टर डेटा की तुलना अंकगणित डेटा के समान तुलनात्मक संचालन का उपयोग करके एक दूसरे के साथ की जा सकती है। तुलना वर्ण दर वर्ण (बाइट) बाएँ से दाएँ होती है। वास्तव में, संबंधित वर्ण कोड की तुलना की जाती है।

चरित्र डेटा को संसाधित करने के लिए, आप ऑपरेंड के संयोजन के संचालन का उपयोग कर सकते हैं (ऑपरेशन का संकेत "+" या & का प्रतीक है)।

एक वर्ण स्ट्रिंग को हमेशा फ़ंक्शन का उपयोग करके विभाजित करके अलग-अलग वर्णों की एक-आयामी सरणी में परिवर्तित किया जा सकता है मध्यया विभाजित करना. सरणी को संसाधित करने के बाद, इसके तत्वों को संयोजन संचालन और (Concatenation) का उपयोग करके वापस एक स्ट्रिंग में मिला दिया जाना चाहिए।

अधिकांश कार्यों को हल करने के लिए VB6 के अंतर्निहित कार्यों में महारत हासिल करने की आवश्यकता होती है

समारोह

कार्रवाई की गई

उदाहरण

बाइट्स में निर्दिष्ट वर्ण चर की लंबाई निर्धारित करता है (वर्णों की संख्या)

फियो = "इवानोव"

एक चर से कटौती एक्सबाएं पात्र। कटे हुए पात्रों को दूसरे चर को सौंपा जा सकता है

फियो = "इवानोव"

टी = "इवान"

पिछले फ़ंक्शन के समान, केवल दाईं ओर

फियो = "इवानोव"

अलग थलग चर से वर्ण एक्सस्थिति से शुरू स्थितिसहित

फियो = "इवानोव"

टी = "वानो"

एक्सएक दशमलव संख्या के लिए।

निर्दिष्ट वर्ण चर को परिवर्तित करता है एक्सएक पूर्णांक में

एक संख्या परिवर्तित करता है आपएक चरित्र स्ट्रिंग के लिए। संकेत को ध्यान में रखते हुए। यदि संख्या धनात्मक है, तो चिह्न के स्थान पर एक स्थान प्रतिस्थापित कर दिया जाता है

एस = "- 678 123.45"

परिणाम - वर्ण तालिका में निर्दिष्ट संख्या के अनुरूप वर्ण

लैटिन वर्णमाला के बड़े अक्षरों को आउटपुट करना

स्ट्रिंग में पहले वर्ण का अंकीय कोड निर्दिष्ट करता है एक्स

प्रिंट एएससी ("123")

प्रिंट एएससी ("1a2m")

प्रिंट एएससी ("एबीसी")

ऑन-स्क्रीन 49 32 65

स्थिति से शुरू एन, सबस्ट्रिंग की पहली घटना की स्थिति को परिभाषित करता है आपइन - लाइन एक्स... यदि नहीं, तो परिणाम 0 है।

एक्स = "मकई"

प्रिंट INSTR (1, x, y);

प्रिंट INSTR (2, x, y);

स्क्रीन पर 1 3

स्ट्रिंग के बाईं ओर से व्हाइटस्पेस वर्णों को हटाने के बाद स्ट्रिंग x की एक प्रति लौटाता है (अग्रणी रिक्त स्थान)

स्ट्रिंग के दाईं ओर से स्पेस वर्णों को हटाने के बाद स्ट्रिंग x की एक प्रति लौटाता है (पिछला स्थान)

अग्रणी और अनुगामी रिक्त स्थान को हटाने के बाद स्ट्रिंग x की एक प्रति लौटाता है

सभी अपरकेस वर्णों को लोअरकेस वर्णों में बदलने के साथ स्ट्रिंग x की एक प्रति लौटाता है

सभी लोअरकेस वर्णों को अपरकेस वर्णों में बदलने के साथ स्ट्रिंग x की एक प्रति लौटाता है

पैरामीटर P . के मान के आधार पर वर्ण स्ट्रिंग के अक्षरों का केस बदलता है

पी = 1, अपरकेस

पी = 2, लोअरकेस

P = 3, केवल पहला बड़ा अक्षर

क्रम को एक पंक्ति में उलट दें

लंबाई n वर्णों के रिक्त स्थान की एक स्ट्रिंग देता है

रिप्लेस (एस, एस 1, एस 2, एन, के)

स्ट्रिंग S में सबस्ट्रिंग S1 को सबस्ट्रिंग S2 से बदल देता है, स्थिति n, k से शुरू होकर - प्रतिस्थापन की संख्या, यदि निर्दिष्ट नहीं है, तो S1 की सभी घटनाओं को प्रतिस्थापित किया जाता है।

प्रिंट बदलें (s1, "1", "", 1)

स्क्रीन पर 23

विभाजन समारोह

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

विभाजन (अभिव्यक्ति ,,,)

अभिव्यक्ति - आवश्यक तर्क - विभाजित करने के लिए स्ट्रिंग। यदि तर्क में एक अशक्त स्ट्रिंग ("") है, तो एक खाली सरणी लौटा दी जाती है, अर्थात। तत्वों और डेटा के बिना सरणी।

सीमांकक - वैकल्पिक तर्क - वर्ण टाइप करें डोरीजिनका उपयोग लाइन सेपरेटर के रूप में किया जाता है। यदि छोड़ा गया है, तो यह एक स्पेस कैरेक्टर ("") के लिए डिफॉल्ट करता है। यदि तर्क में एक अशक्त स्ट्रिंग ("") है, तो संपूर्ण स्ट्रिंग वाला एक सिंगलटन सरणी लौटा दी जाती है।

सीमा - एक वैकल्पिक तर्क जिसमें वापस जाने के लिए सबस्ट्रिंग की संख्या शामिल है। यदि तर्क छोड़ा गया है या -1 के बराबर है, तो पूरी लाइन संसाधित की जाती है।

तुलना करना - एक वैकल्पिक तर्क एक संख्यात्मक स्थिरांक है जो तुलना के प्रकार को निर्दिष्ट करता है।

समारोह शामिल हों

एक फ़ंक्शन जो विपरीत क्रिया करता है - निर्दिष्ट सीमांकक का उपयोग करके सरणी तत्वों का एक स्ट्रिंग में संयोजन।

शामिल हों (name_array,)

उदाहरण ... पाठ दिया। ऑफ़र की संख्या निर्धारित करें। अक्षर "p" से शुरू होने वाले शब्दों की संख्या ज्ञात करें। प्रपत्र पर, टेक्स्ट1 फ़ील्ड में - मूल टेक्स्ट स्थित है, टेक्स्ट 2 फ़ील्ड में - वाक्यों की संख्या, टेक्स्ट 3 फ़ील्ड में - से शुरू होने वाले शब्दों की संख्या पत्र पी.

निजी उप कमांड1_क्लिक करें ()

s1 $ = "हैलो पॉल! हैप्पी छुट्टियाँ! शुभकामनाएँ पीटर।"

a $ = मध्य (s1, i, 1)

अगर (ए = "।") या (ए = "?") या (ए = "!") तो केपी = केपी + 1

i = 1 से ns - 2 . के लिए

यदि मध्य (s1, i, 1) = "П" या मध्य (s1, i, 1) = "п" तो ks = ks + 1

यदि मध्य (s1, i, 2) = "П" या मध्य (s1, i, 2) = "п" तो ks = ks + 1

टेक्स्ट 2. टेक्स्ट = स्ट्र (केपी)

टेक्स्ट 3. टेक्स्ट = स्ट्र (केएस)

निजी उप कमांड2_क्लिक करें ()

ऑपरेटरमध्य

वाक्य - विन्यास

मध्य (स्ट्रिंगवर, प्रारंभ [, लंबाई]) = स्ट्रिंग,

जहां stringvar संशोधित करने के लिए स्ट्रिंग चर का नाम है,

शुरु- स्ट्रिंगवर में चरित्र की स्थिति, जहां से स्ट्रिंग का बदला हुआ भाग शुरू होता है,

लंबाई- बदलने के लिए वर्णों की संख्या,

डोरी- प्रतिस्थापन के लिए स्ट्रिंग अभिव्यक्ति।

मध्य (s1, 9) = "गिल्स"

प्रतिस्थापित किए जाने वाले वर्णों की संख्या हमेशा stringvar में वर्णों की संख्या से कम या उसके बराबर होती है।

इस ऑपरेटर को एक ही नाम के कार्य के साथ भ्रमित नहीं होना चाहिए!

फ़ाइलें

संगठन के आधार पर संरचनाओंफ़ाइल में जानकारी, भंडारण विधितथा पहुंचइस जानकारी के लिए तीन प्रकार की फाइलों में अंतर करने की प्रथा है:

    अनुक्रमिक पहुँच फ़ाइलें ... एक नियम के रूप में, ये टेक्स्ट फाइलें हैं। ऐसी फाइलों की संरचनात्मक इकाई एक स्ट्रिंग है। उनमें डेटा ASCII कोड की एक श्रृंखला के रूप में संग्रहीत किया जाता है और किसी भी टेक्स्ट एडिटर द्वारा संसाधित किया जा सकता है। ऐसी फ़ाइलों के साथ काम करते समय डेटा लिखना और पढ़ना सख्ती से क्रमिक रूप से होता है (आप पहले वाले को पढ़े बिना दूसरे रिकॉर्ड तक नहीं पहुंच सकते)।

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

    बाइनरी (बाइनरी) फ़ाइलें ... ये फ़ाइलें अनुक्रमिक एक्सेस फ़ाइलें हो सकती हैं, लेकिन उनमें जानकारी बाइट्स या बाइट्स के ब्लॉक के रूप में प्रस्तुत की जाती है। इन फ़ाइलों में .exe एक्सटेंशन वाली फ़ाइलें शामिल हैं, अर्थात। सॉफ्टवेयर। ये रैंडम एक्सेस फाइलें हो सकती हैं: उनका रिकॉर्ड आकार हमेशा 1 बाइट होता है, और किसी भी बाइट को उसके क्रमांक द्वारा पढ़ा जा सकता है।

साइट पर नया

>

सबसे लोकप्रिय