Cobol Substring

COBOL Substring er et kraftig trekk ved COBOL -programmeringsspråket som lar programmererne enkelt trekke ut spesifikke deler av en streng med data. Denne substringen kan brukes til å utføre forskjellige operasjoner som strengmanipulering, mønstermatching, beregninger og dataanalyse. Cobol Substring kan brukes til å gjøre programmene mer effektive, fleksible og vedlikeholdbare. Cobol Substring er en innebygd funksjon av COBOL-språket, og brukes til å trekke ut en substring fra en gitt streng.

Hva gjør substr -funksjonen i Cobol?

COBOL tilbyr substr -funksjonen for å trekke ut en del av en streng ved å tilveiebringe kildestrengen, startposisjonen og lengden på ønsket substring. Denne funksjonaliteten gir mulighet for effektiv håndtering av strengdata i COBOL -programmering.

Substr -funksjonen trekker ut en del av en streng som starter fra NTH -tegnet og med en spesifisert lengde av brukeren. Hvis den ekstraherte substringen er av en mindre lengde enn den som er spesifisert, er den polstret med ønsket karakter.

Hvis verdien av n overstiger lengden på inngangsstrengen, består resultatet som er oppnådd fra substr -funksjonen av PAD -tegn.

Hvis du ikke gir en verdi for lengden, returnerer funksjonen resten av strengen fra startposisjonen. Som standard er pute -tegnet som brukes en blank.

Syntaks:

Substr (Source-Str, Start-Position, Substr-Len)

Kildestrengen er strengen du vil trekke ut substringen. "Startposisjonen" er startindeksen for substringen i "kilde-Str". Og "substr-len" er lengden på substringen du vil trekke ut.

Programmering Eksempel 1:

Identifikasjonsavdeling.
Program-ID. Substring-eksempel.
Dataavdeling.
Arbeidshageseksjon.
01 kildestreng bilde x (20) verdi 'Hello World'.
01 Final-String Pic X (5).
Prosedyreavdeling.
Hovedlogikk.
Streng kildestreng avgrenset av "til sluttstreng.
Vis endelige streng: 'Final-String.
Stopp løp.

Produksjon:

Papan@Ubuntu: ~/Desktop $ COBC -XJF 1.Cbl
Endelig streng: Hei

Forklaring:

I dette programmet definerer vi en kildestreng med lengde 20 og en endelig streng med lengde 5. Vi initialiserer kildestrengen med "Hello World" -verdien. Vi bruker deretter strengfunksjonen for å trekke ut det første ordet, "Hello", fra kildestrengen og lagre den i den endelige strengen. Vi viser deretter den endelige strengen ved hjelp av visningserklæringen.

Programmering Eksempel 2:

Identifikasjonsavdeling.
Program-ID. Underlag.
Dataavdeling.
Arbeidshageseksjon.
01 kildestreng bilde x (20) verdi 'abcde'.
01 Substring-Len Pic 9 (2) Verdi 1.
01 Start-indeks bilde 9 (2) Verdi 1.
01 slutt-indeks bilde 9 (2).
01 Sub-String Pic X (20).
Prosedyreavdeling.
Hovedlogikk.
Utføre varierende substring-len fra 1 med 1
Til Substring-len> 20
Utføre varierende startindeks fra 1 med 1
Til start-indeks + substring-len-1> 20
Beregn slutt-indeks = start-indeks + substring-len-1
Strengkilde-streng (start-indeks: Substring-len)
Avgrenset av størrelse til understreng
Vis 'Substring:' Sub-String
Sluttprestasjon
Sluttprestasjon
Stopp løp.

Produksjon:

Papan@Ubuntu: ~/Desktop/Cbl $ COBC -XJF 2.Cbl
Substring: ABCDE
Substring: BCDE
Substring: CDE
SUBSTRING: DE
Substring: e

Forklaring:

Dette programmet genererer alle mulige underlag av en gitt kildestreng ved bruk av to nestede løkker for å iterere over alle mulige substringlengder og startposisjoner. Den lagrer kildestrengen og substringlengden i henholdsvis kildestreng og substring-len. Deretter bruker den startindeksen og sluttindeksen for å holde rede på de nåværende start- og sluttposisjonene. Programmet trekker deretter ut den nåværende substringen ved hjelp av strenguttalelsen og substringfunksjonen, og viser det ved hjelp av displayerklæringen.

Programmering Eksempel 3:

Identifikasjonsavdeling.
Program-ID. Initials-program.
Dataavdeling.
Arbeidshageseksjon.
01 WS-Full-navn Pic X (30) Verdi 'Subash Chandra Bose'.
01 WS-FIRST-NAME PIC X (10).
01 WS-Middle-navn Pic X (10).
01 WS-SRAME NAME PIC X (10).
01 WS-POT PIC X VERDI '.'.
Prosedyreavdeling.
Hovedlogikk.
Vis 'inngangsnavn:' ws-full-navn.
Beregn WS-First-Name = Function Substring (WS-Full-Name, 1, Index (WS-Full-Name, ")-1).
Beregn WS-Middle-Name = Function Substring (WS-Full-Name, Index (WS-Full-navn, ") + 1, Index (WS-full-Name,", Index (WS-Full-Name, ") + 1) - Indeks (WS -Full -navn, ") - 1).
Beregn WS-Samname = Funksjonssubstring (WS-Full-Name, Index (WS-Full-Name, ", Last-Index (WS-Full-navn,")) + 1).
Display 'Output:' WS-First-Name (1: 1) WS-DOT WS-Middle-navn (1: 1) WS-DOT WS-SURNAVE NAME.
Stopp løp.

Produksjon:

Papan@Ubuntu: ~/Desktop/Cbl $ COBC -XJF 3.Cbl
Inngangsnavn: Subash Chandra Bose
Utgang: s.C. Bose

Forklaring:

I dette programmet har WS-full-Name-variabelen det fulle navnet på personen. WS-First-Name, WS-Middle-Name og WS-Samname-variabler har henholdsvis fornavnet, mellomnavnet og etternavnet til personen. Indeks- og siste-indeksfunksjonene brukes til å finne posisjonene til de første og siste rommene i WS-Full-navn-variabelen. Deretter skriver vi ut initialene til første og mellomnavn, etterfulgt av etternavnet, atskilt med en periode.

Konklusjon

Vi utforsket substr -funksjonen i COBOL og ga noen eksempler på hvordan du bruker den i praktiske applikasjoner. Substr -funksjonen er en nyttig funksjon i forretningsapplikasjoner der dataene ofte må manipuleres eller transformeres. Med substr -funksjonen kan programmererne enkelt trekke ut underlagene fra større strenger, og bruke dem til videre behandling. Forhåpentligvis ga denne artikkelen en nyttig introduksjon til substr -funksjonen i COBOL, og demonstrerte riktig noen av de praktiske eksemplene.