Podłoże Cobol

Cobol Substring jest potężną funkcją języka programowania Cobol, który umożliwia programistom łatwe wyodrębnienie określonych części serii danych. Ten podłoże może być używany do wykonywania różnych operacji, takich jak manipulacja ciągami, dopasowanie wzorców, obliczenia i analiza danych. Kobol Substring może być używany do uczynienia programów bardziej wydajnymi, elastycznymi i możliwymi do utrzymania. Cobol Substring jest wbudowaną funkcją języka Cobol i służy do wydobywania podrzędnego z danego ciągu.

Co robi funkcja substr w COBOL?

COBOL oferuje funkcję substr do wyodrębnienia części łańcucha poprzez dostarczenie łańcucha źródłowego, pozycji początkowej i długości pożądanego podłoża. Ta funkcjonalność umożliwia wydajne obsługa danych ciągów w programowaniu COBOL.

Funkcja substr wyodrębnia część łańcucha zaczynającą się od n -th i z określoną długością przez użytkownika. Jeśli wyodrębnione podłoże ma mniejszą długość niż określona, ​​jest wyściełana z pożądanym znakiem.

Jeśli wartość n przekracza długość ciągu wejściowego, wynik uzyskany z funkcji substr, składa się z znaków padu.

Jeśli nie podasz wartości długości, funkcja zwraca pozostałą część łańcucha z pozycji początkowej. Domyślnie używany znak padu jest pusty.

Składnia:

Substr (źródło-STR, pozycja startowa, podaj-len)

String źródłowy to ciąg, z którego chcesz wyodrębnić podłoże. „Upozycja startowa” jest początkowym wskaźnikiem podłacia w „źródło-STR”. A „Substr-len” to długość podłoża, którą chcesz wydobyć.

Przykład programowania 1:

Dział identyfikacyjny.
Program programowy. Przykład podstępu.
Wydział danych.
Sekcja magazynowania roboczego.
01 źródło pic x (20) Wartość „Hello World”.
01 Pic x (5).
Dział procedury.
Main-logic.
String źródłowe ograniczone przez „do finałowego.
Wyświetl końcowy ciąg: „Ostateczne string.
Zatrzymaj bieg.

Wyjście:

Papan@ubuntu: ~/Desktop $ COBC -xjf 1.Cbl
Ostateczny ciąg: Hello

Wyjaśnienie:

W tym programie definiujemy ciąg źródłowy o długości 20 i końcowy ciąg długości 5. Zainicjujemy ciąg źródłowy o wartości „Hello World”. Następnie używamy funkcji ciągów do wyodrębnienia pierwszego słowa „Hello” z ciągu źródłowego i przechowywania w końcowym ciągu. Następnie wyświetlamy końcowy ciąg przy użyciu instrukcji wyświetlania.

Przykład programowania 2:

Dział identyfikacyjny.
Program programowy. Podjazdy.
Wydział danych.
Sekcja magazynowania roboczego.
01 źródło pic x (20) wartość „abcde”.
01 Substring-len PIC 9 (2) Wartość 1.
01 START-INDEX PIC 9 (2) Wartość 1.
01 End-Indx PIC 9 (2).
01 STRING PIC X (20).
Dział procedury.
Main-logic.
Wykonaj różne podstęp-len z 1 na 1
Aż do podskakowania-len> 20
Wykonaj różne indeks startowy od 1 na 1
Do początkowego indeksu + podaj-len-1> 20
Compute End-index = start-index + substring-len-1
String źródłowy (start-index: substring-len)
Wyznaczone według rozmiaru do sub-string
Wyświetl „Substring:”
Końcowe wyniki
Końcowe wyniki
Zatrzymaj bieg.

Wyjście:

Papan@ubuntu: ~/Desktop/Cbl $ COBC -xjf 2.Cbl
Podaj: ABCDE
Podaj: BCDE
Podaj: CDE
Podaj: de
Podaj: e

Wyjaśnienie:

Ten program generuje wszystkie możliwe podjazdy danego ciągu źródłowego za pomocą dwóch zagnieżdżonych pętli do iteracji wszystkich możliwych długości podrzędnych i pozycji wyjściowych. Przechowuje ciąg źródłowy i długość podłańca odpowiednio w źródła. Następnie używa indeksu start-indeks i indeks końcowy, aby śledzić bieżące pozycje początkowe i końcowe. Następnie program wyodrębnia bieżącą podłoże przy użyciu instrukcji String i funkcji podrzędnej i wyświetla go za pomocą instrukcji wyświetlania.

Przykład programowania 3:

Dział identyfikacyjny.
Program programowy. Inicjałowy program.
Wydział danych.
Sekcja magazynowania roboczego.
01 WS-Full-Nazwa PIC X (30) Wartość „Subash Chandra Bose”.
01 WS-First-name PIC X (10).
01 WS-Middle-name PIC X (10).
01 WS-Surname PIC X (10).
01 WS-DOT PIC X Wartość.'.
Dział procedury.
Main-logic.
Wyświetl „Nazwa wejściowa:” WS-Full-name.
Compute WS-First-name = funkcja substring (WS-Full-Nazwa, 1, indeks (WS-Full-Nazwa, ")-1).
Compute WS-Middle-Nazwa = funkcja substring (WS-Full-Nazwa, indeks (WS-Full-Nazwa, ") + 1, indeks (WS-Full-Nazwa,", indeks (WS-Full-Nazwa, ") + + + 1) - indeks (WS -Full -nazwa, ”) - 1).
Compute WS-Surname = Funkcja Substring (WS-Full-Nazwa, indeks (WS-Full-Nazwa, „, Last-Index (WS-Full-Nazwa,”)) + 1).
Wyświetl „wyjście:” WS-First-name (1: 1) WS-DOT WS-Middle-Nazwa (1: 1) WS-DOT WS-SURNAME.
Zatrzymaj bieg.

Wyjście:

Papan@ubuntu: ~/Desktop/Cbl $ COBC -xjf 3.Cbl
Nazwa wejścia: Subash Chandra Bose
Wyjście: s.C. Bose

Wyjaśnienie:

W tym programie zmienna WS-Full-Nazwa zawiera pełne imię i nazwisko osoby. Zmienne WS-First-name, WS-Middle-Name i WS-Surname mają odpowiednio imię, drugie imię i nazwisko osoby. Funkcje indeksu i ostatniego indeksu są używane do znalezienia pozycji pierwszych i ostatnich przestrzeni w zmiennej nazwy WS-Full. Następnie drukujemy inicjały pierwszego i drugiego nazwiska, a następnie nazwisko, oddzielone okresem.

Wniosek

Zbadaliśmy funkcję substr w COBOL i podaliśmy kilka przykładów, jak ją używać w praktycznych aplikacjach. Funkcja substr jest przydatną funkcją w aplikacjach biznesowych, w których dane często muszą być manipulowane lub przekształcone. W przypadku funkcji substrantów programiści mogą łatwo wyodrębnić podkład z większych ciągów i używać ich do dalszego przetwarzania. Mamy nadzieję, że ten artykuł zawierał przydatne wprowadzenie do funkcji substr w Cobol i właściwie wykazał niektóre z jej praktycznych przykładów.