Mga halimbawa ng paggamit ng mga function ng VBA. Mga built-in na function ng Oracle Vba excel function para sa pagtatrabaho sa mga string

  • A.S.C. () - Binibigyang-daan ka ng function na ito na ibalik ang numeric code para sa naipasa na character. Halimbawa, ang ASC("D") ay magbabalik ng 68. Ang function na ito ay kapaki-pakinabang para sa pagtukoy sa susunod o nakaraang titik. Ito ay kadalasang ginagamit kasabay ng pag-andar Chr(), na nagsasagawa ng kabaligtaran na operasyon - nagbabalik ng isang character ayon sa ipinadala nitong numeric code. Ang mga variant ng function na ito ay AscB() At AscW():
    • AscB () - ibinabalik lamang ang unang byte ng numeric code para sa character.
    • AscW () - ibinabalik ang code para sa character sa Unicode encoding
  • Chr () - nagbabalik ng character sa pamamagitan ng numeric code nito. Maaaring gamitin kasabay ng Asc() function, ngunit kadalasan ito ay ginagamit kapag kailangan mong mag-print ng service character (halimbawa quotes - "), dahil Hindi ka basta basta maglalagay ng mga quote sa VBA code (kailangan mong maglagay ng doble). Ito ang function na karaniwan kong ginagamit.

    Dim sWord Bilang String sWord = Chr(34) at "Word in quotes" at Chr(34)

    May mga opsyon para sa function na ito - ChrB() At ChrW(). Magtrabaho nang katulad sa parehong mga opsyon para sa function Asc().

  • InStr () At InStrRev () - isa sa mga pinakasikat na tampok. Binibigyang-daan kang makakita ng character o pagkakasunud-sunod ng mga character sa katawan ng string variable at ibalik ang kanilang posisyon. Kung ang pagkakasunud-sunod ay hindi natagpuan, pagkatapos ay 0 ay ibinalik.

    Dim sStr Bilang String sStr = "w" If InStr(1, "Hello, World!", sStr, vbTextCompare) > 0 Then MsgBox "The search word is present!" Iba pang MsgBox "Nawawala ang hinanap na salita!" Tapusin kung

    Ang pagkakaiba sa pagitan ng mga function ay ang InStr() ay naghahanap para sa tinukoy na salita mula sa simula ng linya, at InStrRev() mula sa dulo ng linya

  • Kaliwa () , Tama () , kalagitnaan () - ang kakayahang kunin ang bilang ng mga character na iyong tinukoy mula sa isang umiiral na string variable sa kaliwa, kanan o gitna, ayon sa pagkakabanggit.
    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Mid(sStr, 1, 5)

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Mid(sStr, 1, 5)

  • Len () - kakayahang makuha ang bilang ng mga character sa isang linya. Madalas na ginagamit sa mga loop, pagpapalit ng mga operasyon, atbp.
  • LCase () At UCase () - I-convert ang string sa lower at upper case ayon sa pagkakabanggit. Madalas na ginagamit upang maghanda ng isang halaga para sa paghahambing kapag ang kaso ay hindi mahalaga kapag naghahambing (mga apelyido, pangalan ng mga kumpanya, lungsod, atbp.).
  • LSset () At RSet () - ang kakayahang punan ang isang variable ng mga simbolo ng isa pa nang hindi binabago ang haba nito (kaliwa at kanan ayon sa pagkakabanggit). Pinutol ang mga karagdagang character at pinapalitan ang mga puwang para sa mga nawawalang character.
  • Ltrim () , RTrim () , Putulin () - ang kakayahang mag-alis ng mga puwang ayon sa pagkakabanggit sa kaliwa, kanan o parehong kaliwa at kanan.
  • Palitan () - ang kakayahang palitan ang isang sequence ng mga character sa isang string ng isa pa.
    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Replace(sStr, "Hello" , "Bay" )

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Replace(sStr, "Hello", "Bay")

  • Space () - kumuha ng string mula sa bilang ng mga puwang na iyong tinukoy;
    Ang isa pang katulad na function ay Spc () , na ginagamit upang i-format ang output ng console. Pinaparami nito ang mga puwang batay sa lapad ng command line.
  • StrComp () - kakayahang maghambing ng dalawang string.
  • StrConv () - kakayahang mag-convert ng isang string (sa Unicode at pabalik, sa upper at lower case, i-capitalize ang unang titik ng mga salita, atbp.):
    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox StrConv("Hello, World!" , vbUpperCase)

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox StrConv("Hello, World!", vbUpperCase)

    Maaaring gamitin ang mga Constant bilang pangalawang parameter na parameter:

    • vbUpperCase: Kino-convert ang lahat ng text character sa UPPER CASE
    • vbLowerCase: Kino-convert ang lahat ng text character sa lowercase
    • vbProperCase: Kino-convert ang unang character ng bawat salita sa Upper Case
    • *vbWide: Kino-convert ang mga string character mula sa single-byte patungo sa double-byte
    • *vbMakitid: Kino-convert ang mga string character mula double-byte patungo sa single-byte
    • **vbKatakana: Kino-convert ang mga Hiragana character sa Katakana character
    • **vbHiragana: Kino-convert ang mga character na Katakana sa mga character na Hiragana
    • ***vbUnicode: Kino-convert ang isang string sa Unicode gamit ang default na pahina ng code ng system
    • ***vbFromUnicode: Kino-convert ang isang Unicode string sa default na pahina ng code ng system

      • * Naaangkop para sa lokalisasyon ng Malayong Silangan
      ** Naaangkop para sa Japan lamang
      *** hindi suportado sa mga operating system ng Macintosh

  • StrReverse () - "i-reverse" ang isang string sa pamamagitan ng paglalagay ng mga character nito sa reverse order. Gumagana lang ang function mula sa Excel 2000 at mas mataas. Ang isang halimbawa ng paggamit ng function, pati na rin ang iba pang mga pamamaraan para sa pag-on ng salita, ay matatagpuan sa artikulong ito: Paano iikot ang isang salita?
  • Tab () ay isa pang function na ginagamit upang i-format ang output ng console. Gumagawa ng mga character sa tab sa numerong iyong tinukoy. Kung walang tinukoy na dami, maglalagay lang ng character ng tab. Maaari mo ring gamitin ang pare-pareho upang magpasok ng isang karakter ng tab sa isang halaga ng string vbTab.
  • String () - nagbibigay-daan sa iyo upang makakuha ng isang string ng isang tinukoy na bilang ng mga character (na muli mong tinukoy). Karaniwang ginagamit upang i-format ang output kasabay ng function Len().

(http://www.cyberforum.ru/vba/thread638743.html)

Pagpipilian 1

strW= (="KOROTEEV DMITRY VLADIMIROVICH") strB=Palitan(Palitan(strW, Chr(61), ""), Chr(34), "")

Pagpipilian

Maaari ka ring gumamit ng byte array:

Sub n() Dim Mass() As Byte, n As Long, Zam As String, TXT As String TXT = "="" DMITRY VLADIMIROVICH KOROTEEV" Mass = StrConv(TXT, vbFromUnicode) Para sa n = 0 To UBound(Mass) If Misa(n)<>34 At Misa(n)<>61 Then Zam = Zam + Chr$(Mass(n)) Next MsgBox Zam End Sub

Pagpipilian

O pag-filter gamit ang mid:

Sub nn() Dim n As Long, TXT Bilang String, L Bilang String, Zam Bilang String TXT = "="" DMITRY VLADIMIROVICH KOROTEEV" Para sa n = 1 Hanggang Len(TXT) L = Mid$(TXT, n, 1) Kung si L<>"""" At ako<>"=" Then Zam = Zam + L Next MsgBox Zam End Sub

Ang linya 6 ay maaaring mapalitan ng husky:
Visual Basic Code
1
Kung L Like “[!””=]” Pagkatapos Zam = Zam + L

Pagpipilian

Gayundin sa pamamagitan ng paghahanap ng posisyon at recursion:

Sub test() Dim n As Long, txt As String txt = "=""DMITRY VLADIMIROVICH KOROTEEV" txt = Change(txt, "=") txt = Change(txt, """") MsgBox txt End Sub Function Change( txt Bilang String, Ano Bilang String, Opsyonal Pos = 1) Dim n As Long Kung Pos<>0 Pagkatapos n = InStr(Pos, txt, Ano) Baguhin = Mid$(txt, Pos, IIf(n - Pos< 0, Len(txt), n - Pos)) + Change(txt, What, IIf(n = 0, 0, n + 1)) End If End Function

Maaari ka ring gumamit ng mga regular na expression, ngunit hindi ko alam ang mga ito.

Pagpipilian

Sa pamamagitan ng right-to-left na paghahanap at recursion:

Visual Basic Code
1 2 3 4 5 6 7 8 Pagbabago ng Function(txt Bilang String, Ano Bilang String, Opsyonal na Pos Bilang Mahaba) Dim n Hangga Kung Pos = 0 Pagkatapos Pos = Len(txt) Kung Pos<>-1 Then n = InStrRev(txt, What, Pos) Change = Change(txt, What, IIf(n = 1, -1, n - 1)) + Mid$(txt, n + 1, Pos - n) End Kung End Function

Pagpipilian

At meron din Hatiin At Sumali

Strb = Join(Split(Join(Split(strW, "="), ""), """"), "")

Wala sa pinaguusapan: Pero para ito sa mga sadista

Malaki at maliit

Gamit ang ActiveDocument.Range "uppercase.Text = Ucase(.Text) "lowercase.Text = Lcase(.Text) End With

o StrConv() - i-convert ang isang string (sa Unicode at pabalik, sa upper at lower case, i-capitalize ang unang titik ng mga salita, atbp.) - tingnan sa ibaba

Mga Pagpapatakbo ng String

Para sa data ng uri ng String, mayroon lamang isang operasyon - concatenation (unyon). Halimbawa, ang resulta ng operasyon ng pagsasama-sama ng tatlong mga halaga ng string na "Peter" & » » & "Ivanovich" ay magiging string na "Peter Ivanovich". Posible ring gumamit ng isa pang operator para sa operasyon ng pagsasama-sama, halimbawa: "sampu" + "libo". Ang pagkakaiba sa pagitan ng mga expression na ito ay na sa unang kaso, ang mga operand ay maaaring maging mga halaga ng anumang uri (sila ay mai-convert lamang sa mga string), at sa pangalawa, ang parehong mga operand ay dapat na may uri ng String. Mayroong isang malaking bilang ng mga function para sa pagtatrabaho sa mga string (talahanayan. Mga function para sa pagtatrabaho sa mga string).

Talahanayan "Mga function para sa pagtatrabaho sa mga string"

Function Paglalarawan Halimbawa
Len(str) Tinutukoy ang haba ng string Mula sa a=len("Mga Tauhan") ito ay sumusunod sa a=9
Kaliwa (<строка>, <длина>) Mga extract mula sa argumento<строка>tinukoy na bilang ng mga character sa kaliwa Kaliwa("1234string", 4) ="1234″
tama(<строка>, <длина>) Mga extract mula sa argumento<строка>tinukoy na bilang ng mga character sa kanan Kanan(" 1234string", 6) ="string"
kalagitnaan(<строка>, <старт> [, <длина>]) Mga extract mula sa argumento<строка>substring na may tinukoy na bilang ng mga character, simula sa posisyon<старт> Kalagitnaan("12345678″, 4.3) ="456"
kalagitnaan(<строка>, <старт>) Ang isang substring mula sa posisyon ay nakuha<старт>hanggang sa dulo ng linya Kalagitnaan("12345678″, 4) ="45678"
LTrim(<строка>) Tinatanggal ang mga puwang sa simula ng isang linya LTrim("print") ="print"
RTrim (<строка>) Tinatanggal ang mga puwang sa dulo ng isang string RTrim("print ") = "print"
Trim(<строка>) Tinatanggal ang mga puwang sa simula at dulo ng isang string Trim("print") ="print"
InStr([<старт>, ] < строка1>, <строка2> [, <сравнение>]) Naghahanap ng substring sa isang string. Ibinabalik ang posisyon ng unang paglitaw ng isang string<строка2>sa linya<строка1>, <старт>— ang posisyon kung saan nagsisimula ang paghahanap. Kung ang argumentong ito ay tinanggal, ang paghahanap ay magsisimula sa simula ng string Instr("C:Temp test.mdb", "Test")=9 Kung ang search string ay wala sa tinukoy na string, ang function ay nagbabalik ng 0
InStrRev([<старт>, ] <строка1>, <строка2> [, <сравнение>]) Naghahanap ng substring sa isang string, ngunit sisimulan ang paghahanap sa dulo ng string at ibinabalik ang posisyon ng huling paglitaw ng substring. Opsyonal na argumento<сравнение>tumutukoy sa uri ng paghahambing sa pagitan ng dalawang string
Palitan(<строка>, <строкаПоиск>, <строкаЗамена>) Binibigyang-daan kang palitan ang isang substring sa isang string ng isa pa. Hinahanap ng function na ito ang lahat ng paglitaw ng argumento<строкаПоиск>sa argumento<строка>at pinapalitan sila ng<строкаЗамена>

Upang ihambing ang mga halaga ng string, maaari kang gumamit ng mga regular na operator ng paghahambing ng numero dahil kapag naghahambing ng mga character, inihahambing ang kanilang mga binary code. Ginagamit din ang operator ng Like para ihambing ang mga value ng string, na nagbibigay-daan sa iyong makakita ng hindi tumpak na tugma, halimbawa, ang expression na "Input" Like "Input*" ay susuriin sa True dahil ang string na inihahambing ay nagsisimula sa salitang "Input." Pinapalitan ng asterisk (*) character sa isang string ang isang arbitrary na bilang ng mga character. Iba pang mga character na pinoproseso ng Like operator sa pinaghambing na string:

  • ? - anumang karakter (isa);
  • # – isang digit (0–9);
  • [<список>] – isang karakter na tumutugma sa isa sa mga karakter sa listahan;
  • [!<список>] – isang character na hindi tumutugma sa alinman sa mga character sa listahan.
  • A.S.C.() - Binibigyang-daan ka ng function na ito na ibalik ang numeric code para sa naipasa na character. Halimbawa, ang ASC("D") ay magbabalik ng 68. Ang function na ito ay kapaki-pakinabang para sa pagtukoy sa susunod o nakaraang titik. Ito ay kadalasang ginagamit kasabay ng pag-andar Chr(), na nagsasagawa ng kabaligtaran na operasyon - nagbabalik ng isang character ayon sa ipinadala nitong numeric code. Ang mga variant ng function na ito ay AscB() At AscW():
    • AscB() - ibinabalik lamang ang unang byte ng numeric code para sa character.
    • AscW() - ibinabalik ang code para sa character sa Unicode encoding
  • Chr() - nagbabalik ng character sa pamamagitan ng numeric code nito. Maaaring gamitin kasabay ng Asc() function, ngunit kadalasan ito ay ginagamit kapag kailangan mong mag-print ng service character (halimbawa quotes - "), dahil Hindi ka basta basta maglalagay ng mga quote sa VBA code (kailangan mong maglagay ng doble). Ito ang function na karaniwan kong ginagamit.

    Dim sWord Bilang String sWord = Chr(34) at "Word in quotes" at Chr(34)

    May mga opsyon para sa function na ito - ChrB() At ChrW(). Magtrabaho nang katulad sa parehong mga opsyon para sa function Asc().

  • InStr() At InStrRev() - isa sa mga pinakasikat na tampok. Binibigyang-daan kang makakita ng character o pagkakasunud-sunod ng mga character sa katawan ng string variable at ibalik ang kanilang posisyon. Kung ang pagkakasunud-sunod ay hindi natagpuan, pagkatapos ay 0 ay ibinalik.

    Dim sStr Bilang String sStr = "w" If InStr(1, "Hello, World!", sStr, vbTextCompare) > 0 Then MsgBox "The search word is present!" Iba pang MsgBox "Nawawala ang hinanap na salita!" Tapusin kung

    Ang pagkakaiba sa pagitan ng mga function ay ang InStr() ay naghahanap para sa tinukoy na salita mula sa simula ng linya, at InStrRev() mula sa dulo ng linya

  • Kaliwa() , Tama() , kalagitnaan() - ang kakayahang kunin ang bilang ng mga character na iyong tinukoy mula sa isang umiiral na string variable sa kaliwa, kanan o gitna, ayon sa pagkakabanggit.

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Mid(sStr, 1, 5)

  • Len() - kakayahang makuha ang bilang ng mga character sa isang linya. Madalas na ginagamit sa mga loop, pagpapalit ng mga operasyon, atbp.
  • LCase() At UCase() - I-convert ang string sa lower at upper case ayon sa pagkakabanggit. Madalas na ginagamit upang maghanda ng isang halaga para sa paghahambing kapag ang kaso ay hindi mahalaga kapag naghahambing (mga apelyido, pangalan ng mga kumpanya, lungsod, atbp.).
  • LSset() At RSet() - ang kakayahang punan ang isang variable ng mga simbolo ng isa pa nang hindi binabago ang haba nito (kaliwa at kanan ayon sa pagkakabanggit). Pinutol ang mga karagdagang character at pinapalitan ang mga puwang para sa mga nawawalang character.
  • Ltrim() , RTrim() , Putulin() - ang kakayahang mag-alis ng mga puwang ayon sa pagkakabanggit sa kaliwa, kanan o parehong kaliwa at kanan.
  • Palitan() - ang kakayahang palitan ang isang sequence ng mga character sa isang string ng isa pa.

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox Replace(sStr, "Hello", "Bay")

  • Space() - kumuha ng string mula sa bilang ng mga puwang na iyong tinukoy;
    Ang isa pang katulad na function ay Spc() , na ginagamit upang i-format ang output ng console. Pinaparami nito ang mga puwang batay sa lapad ng command line.
  • StrComp() - kakayahang maghambing ng dalawang string.
  • StrConv() - kakayahang mag-convert ng isang string (sa Unicode at pabalik, sa upper at lower case, i-capitalize ang unang titik ng mga salita, atbp.):

    Dim sStr Bilang String sStr = "Kumusta, Mundo!" MsgBox StrConv("Hello, World!", vbUpperCase)

    Maaaring gamitin ang mga Constant bilang pangalawang parameter na parameter:

      • vbUpperCase: Kino-convert ang lahat ng text character sa UPPER CASE
      • vbLowerCase: Kino-convert ang lahat ng text character sa lowercase
      • vbProperCase: Kino-convert ang unang character ng bawat salita sa Upper Case
      • *vbWide: Kino-convert ang mga string character mula sa single-byte patungo sa double-byte
      • *vbMakitid: Kino-convert ang mga string character mula double-byte patungo sa single-byte
      • **vbKatakana: Kino-convert ang mga Hiragana character sa Katakana character
      • **vbHiragana: Kino-convert ang mga character na Katakana sa mga character na Hiragana
      • ***vbUnicode: Kino-convert ang isang string sa Unicode gamit ang default na pahina ng code ng system
      • ***vbFromUnicode: Kino-convert ang isang Unicode string sa default na pahina ng code ng system

    *naaangkop para sa Far East localizations
    ** Naaangkop para sa Japan lamang
    *** hindi suportado sa mga operating system ng Macintosh

  • StrReverse() - "i-reverse" ang isang string sa pamamagitan ng paglalagay ng mga character nito sa reverse order. Gumagana lang ang function mula sa Excel 2000 at mas mataas. Ang isang halimbawa ng paggamit ng function, pati na rin ang iba pang mga pamamaraan para sa pag-on ng salita, ay matatagpuan sa artikulong ito: Paano iikot ang isang salita?
  • Tab() ay isa pang function na ginagamit upang i-format ang output ng console. Gumagawa ng mga character sa tab sa numerong iyong tinukoy. Kung walang tinukoy na dami, maglalagay lang ng character ng tab. Maaari mo ring gamitin ang pare-pareho upang magpasok ng isang karakter ng tab sa isang halaga ng string vbTab.
  • String() - nagbibigay-daan sa iyo upang makakuha ng isang string ng isang tinukoy na bilang ng mga character (na muli mong tinukoy). Karaniwang ginagamit upang i-format ang output kasabay ng function Len().

Ang sumusunod na tatlong mga function ay nagbibigay-daan sa iyo upang gumana sa isang hanay ng mga string

hati (<строка> [, <разделитель>]) – ginagawang hanay ng mga substring ang isang string. Bilang default, ginagamit ang espasyo bilang delimiter. Ang function na ito ay maginhawang gamitin para sa paghiwa-hiwalay ng pangungusap sa mga salita. Gayunpaman, maaari mong tukuyin ang anumang iba pang delimiter sa function na ito. Halimbawa, ang Split(3, "This is a test sentence") ay nagbabalik ng array ng tatlong string values: "This", "test", "sentence". Sumali (<массивСтрок> [, <разделитель>]) – nagko-convert ng array ng mga string sa isang string na may tinukoy na delimiter. salain(<массивСтрок>, <строкаПоиск>[, <включение>] [, <сравнение>]) – ini-scan ang isang hanay ng mga halaga ng string at hinahanap ang lahat ng mga substring na tumutugma sa ibinigay na string. Ang function na ito ay may apat na argumento:<строкаПоиск>– string ng paghahanap;<включение>– isang parameter (Boolean value) na tumutukoy kung ang mga ibinalik na row ay isasama ang hinanap na substring o, sa kabilang banda, tanging ang mga array row na hindi naglalaman ng hinanap na string bilang isang substring ang ibabalik;<сравнение>– parameter na tumutukoy sa paraan ng paghahambing ng string. Tatlo pang function ang nagbibigay ng string conversion: LCase(<строка>) – kino-convert ang lahat ng mga character sa isang string sa lowercase, halimbawa ang LCase("MAIL") function ay nagbabalik ng string na "mail"; UCase(<строка>) – kino-convert ang lahat ng mga character sa string sa upper case; StrConv(<строка>, <преобразование>) – gumaganap ng ilang uri ng pagbabagong-anyo ng string depende sa pangalawang parameter. Ang parameter na ito ay inilalarawan ng mga built-in na constant, halimbawa ang function na StrConv("Russia", VbProperCase) ay nagbabalik ng value na "Russia".

At ang huling dalawang function ay bumubuo ng mga string ng mga character

Space(<число>) – lumilikha ng isang string na binubuo ng tinukoy na bilang ng mga puwang; String(<число>, <символ>) – lumilikha ng isang string na binubuo ng bilang ng mga character na tinukoy sa unang argumento. Ang simbolo mismo ay tinukoy sa pangalawang argumento.

Halimbawa

Gumawa ng program na gumagana sa mga string variable. Upang gawin ito, lumikha ng isang form na ang mga label ay naglalaman ng mga sumusunod na mensahe: 1 label: ang haba ng string na ipinasok sa unang field ng teksto ay iniulat (1 linya); 2 label: kino-convert ang lahat ng mga character ng ikatlong field ng teksto (3rd line) sa malalaking titik; 3rd label: ipinapakita ang mga nilalaman ng una at pangalawang field ng text (mga linya 1 at 2) nang magkasama.

Teknolohiya ng pagpapatupad

  • Buksan ang Word, i-save ang dokumento, at pumunta sa VBA editor.
  • Gumawa ng hugis na katulad ng larawan sa ibaba.
  • Sumulat ng tagapangasiwa ng kaganapan para sa pindutang OK.
  • I-compile ang programa.
  • Patakbuhin ang form.

Pribadong Sub CommandButton1_Click() Dim a Bilang String Dim b Bilang String Dim c Bilang String Dim k Bilang String Dim d Bilang String Dim n Bilang Integer a=TextBox1.Text n=Len(a) Label7.Caption=“ang haba ng una line is” & n & "character" c=TextBox3.Text k=Ucase(с) Label8.Caption=k b=TextBox2.Text d=a + " " + b Label9.Caption=d End Sub

Gawain

Kinakailangan na sa Excel sa cell A1 isang paghahanap ay ginanap para sa mga salitang nakasulat na pinaghihiwalay ng mga kuwit sa hanay A2, at ang resulta, at ang mga salita na natagpuan, kasama ang bilang ng kanilang mga pag-uulit (kung maaari) sa hinanap na teksto, ay nakasulat sa isa pa, pangatlo, cell. (mas mabuti kung sila ay naka-highlight (o may salungguhit) sa ilang paraan sa unang cell... upang sila ay agad na makita. Ito ay kung paano mo ilagay ang mga salita sa isang array:

Visual Basic Code
1 2 3 4 5 6 Dim m() Bilang String Kung InStr(1, Cells(1, 2).Value, ","") > 0 Then m = Split(Palitan(Cells(1, 2).Value, " ", ""), " ,"") Iba pang ReDim m(0): m(0) = Trim(Mga Cell(1, 2).Halaga) End If

At pagkatapos ay sa isang loop hahanapin mo ang lahat ng mga salita (muli sa isang loop, nested) Idinagdag pagkatapos ng 23 minuto

Visual Basic Code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Opsyon Ihambing ang Opsyon ng Teksto Tahasang Sub QWERT() Dim R, N, K Dim m() Bilang String Kung InStr(1, Mga Cell(1, 2).Halaga, ","") > 0 Pagkatapos m = Hatiin(Palitan(Mga Cell() 1, 2). Halaga, " ", ""), ",") Iba Pa ReDim m(0): m(0) = Trim(Mga Cell(1, 2).Value) End If Para sa R ​​= 0 To UBound( m) N = 1 Kung InStr(1, Mga Cell(1, 1).Value, m(R)) > 0 Pagkatapos K = InStr(N, Mga Cell(1, 1).Value, m(R)) Gawin COLOR K , Len(m(R)) N = K + Len(m(R)) K = InStr(N, Cells(1, 1).Value, m(R)) Loop Habang K > 0 End Kung Susunod R End Sub Sub COLOR(ST, LN) With Cells(1, 1).Character(Start:=ST, Length:=LN).Font .Color = RGB(0, 0, 255) .Bold = True End With End Sub

Idinagdag pagkatapos ng 15 minuto At ito ay kung paano ito maghahanap sa simula ng salita at piliin ang buong salita

Visual Basic Code
1 2 3 4 5 6 7 8 9 10 11 Sub COLOR(ST, LN) LN = LN - 1 Do LN = LN + 1 Loop Habang VBA.Mid(Cells(1, 1).Value, ST + LN, 1)<>" " With Cells(1, 1).Character(Start:=ST, Length:=LN).Font .Color = RGB(0, 0, 255) .Bold = True End With End Sub

Maaari kang magsagawa ng paghahanap hindi mula sa simula ng salita, ngunit sa pamamagitan ng bahagi ng salita. — magdagdag ng isa pang Do-Loop cycle. Ilipat lamang ang simula (ST) sa kaliwa sa isang puwang (http://www.cyberforum.ru/vba/thread567588.html)

Paano: Itugma ang isang String laban sa isang Pattern (Visual Basic)

Pagsusuri sa pagsunod mga string sa template String Data Type (Visual Basic) - Tulad ng operator (Visual Basic) . ang kaliwang operand ng Like operator ay isang string expression, at ang kanang operand ay isang template string Ang Like ay nagbabalik ng Boolean value

Pagsusuri ng karakter

? - anumang isang simbolo

  • Binubuo ang myString ng character na W na sinusundan ng anumang 2 character

    Dim sMatch Bilang Boolean = myString Tulad ng "W??"

Anumang karakter mula sa listahan at hanay

Anumang karakter at pagkatapos ay isa sa mga karakter na A, C o E

    Dim sMatch Bilang Boolean = myString Like "?" case sensitive

  • myString = num character at pagkatapos ay isang character mula sa range: i, j, k, l, m o n:

    Dim sMatch Bilang Boolean = myString Tulad ng "num" case sensitive

Tulad ng gumagana sa parehong isang zero-length na string array string (""). ay nagbibigay-daan sa iyong suriin na ang isang string ay walang laman

Isang character mula sa listahan o walang character

  1. Ang Like operator ay ginagamit nang dalawang beses, at ang mga resulta ay pinagsama gamit ang Or Operator (Visual Basic) o OrElse Operator (Visual Basic).
  2. Sa template ng unang pahayag, maglagay ng listahan ng mga character sa mga square bracket ().
  3. Sa template ng pangalawang pahayag, huwag maglagay ng anuman sa lokasyon ng check. Halimbawa: pagsuri sa pitong digit na numero ng telepono phoneNum, na dapat maglaman ng eksaktong tatlong digit, na sinusundan ng isang puwang, isang gitling, isang tuldok, o walang character, at pagkatapos apat na numero. (ang unang tatlong digit ay hindi maaaring ihiwalay mula sa huling apat - "walang character") Null , isang error ang nangyayari. Kung bibigyan ng argumento uri_paghahambing , argumento panimulang_posisyon ay sapilitan. linya_1 Kailangan. Ekspresyon ng string, na hinahanap. linya_2 Kailangan. Ang string expression na iyong hinahanap. uri_paghahambing Opsyonal. Tinutukoy ang uri paghahambing ng string. Kung ang halaga ng argumento uri_paghahambing ay Null, may naganap na error. Kung ang argumento uri_paghahambing tinanggal, ang uri ng paghahambing ay tinutukoy ng parameter Ibig sabihin ikasalsindak. Tumukoy ng wastong parameter ng LCID (LocaleID) upang magamit ang mga panuntunan sa paghahambing na tinukoy sa mga setting ng wika.

    Mga pagpipilian

    Pangangatwiran uri_paghahambing gumagamit ng mga sumusunod na parameter:

    Ibalik ang mga halaga

    Mga Tala

    Function InStrB ginamit sa byte data na nakapaloob sa isang string. Function InStrB ibinabalik ang posisyon ng byte, hindi ang posisyon ng character, ng unang paglitaw ng isang string sa loob ng isa pa.

    Mga halimbawa

    Gamit ang InStr function sa isang expression Sa bawat oras na gumamit ka ng mga expression maaari mong gamitin ang function InStr. Halimbawa, kung gusto mong matukoy ang posisyon ng unang punto ( . ) sa isang field na naglalaman ng IP address (pinangalanang "IPAddress"), maaari mong gamitin ang function InStr para mahanap ito:

    InStr(1,,"")

    Function InStr tinitingnan ang bawat halaga sa field na "IPAddress" at ibinabalik ang posisyon ng unang punto. Samakatuwid, kung ang halaga ng unang octet ng IP address ay 10. , ibinabalik ng function ang value 3.

    Maaari kang gumamit ng iba pang mga function na gumagamit ng resulta ng function InStr, upang kunin ang halaga ng IP address octet na nauuna sa unang tuldok, halimbawa:

    Kaliwa(,(InStr(1,,."")-1))

    Sa halimbawang ito ang function InStr(1,,"") ibinabalik ang posisyon ng unang punto. Bilang resulta ng pagbabawas ng 1, ang bilang ng mga character bago ang unang punto ay tinutukoy, sa kasong ito - 2. Pagkatapos ay ang function Kaliwa kinukuha ang mga character na ito mula sa kaliwang bahagi ng field na "IPAddress", na ibinabalik ang value na 10.

    Gamit ang function InStr sa Visual Basic for Applications (VBA) code

    TANDAAN. Ang mga sumusunod na halimbawa ay naglalarawan ng paggamit ng Visual Basic for Applications (VBA) module. Para sa higit pang impormasyon tungkol sa pagtatrabaho sa VBA, piliin Sanggunian ng developer sa drop-down list sa tabi ng button Maghanap, at pagkatapos ay magpasok ng isa o higit pang mga keyword sa field ng paghahanap.

    Sa halimbawang ito, ang function InStr ginagamit upang makuha ang posisyon ng unang paglitaw ng isang string sa loob ng isa pa.

    Dim SearchString, SearchChar, MyPos SearchString ="XXpXXpXXPXXP" " String para maghanap. SearchChar = "P" " Maghanap para sa "P". " Isang paghahambing sa teksto na nagsisimula sa posisyon 4. Nagbabalik 6. MyPos = Instr( 4, SearchString , SearchChar , 1) " Isang binary na paghahambing na nagsisimula sa posisyon 1. Ibinabalik ang 9. MyPos = Instr( 1, SearchString , SearchChar , 0) " Ang paghahambing ay binary bilang default " (huling argumento ay tinanggal). MyPos = Instr( SearchString , SearchChar ) " Nagbabalik 9. MyPos = Instr( 1, SearchString , "W" ) "Ibinabalik ang 0.

Kadalasan ang mga linya sa isang programa ay naglalaman ng mga hindi kinakailangang whitespace na character sa dulo o simula ng linya na kailangang alisin dahil maaaring magdulot ng mga problema sa programa ang mga extraneous na nangunguna o trailing na puwang sa isang linya.

Ang VBA ay may tatlong function na idinisenyo upang alisin ang mga nangunguna at trailing na puwang mula sa isang string: LTrim, RTrim, Trim. Tandaan na ang mga function na ito ay hindi aktwal na nagbabago sa orihinal na string, ngunit sa halip ay nagbabalik ng isang kopya ng string na may mga karagdagang puwang na inalis.

Pagtukoy sa Haba ng String

Karaniwang kailangan mong malaman ang haba ng isang string kapag nagfo-format ng mga mensahe para sa isang user o kapag nagfo-format ng data ng string na ipinasok ng isang pamamaraan sa isang Excel worksheet o Word na dokumento. Ginagamit ng VBA ang function para sa mga layuning ito Len. Sa listahan sa ibaba, mayroong dalawang puwang sa pagitan ng mga panaklong at ng salita.



Dapat kang maging maingat sa mga nakapirming mga string ng haba. Dahil ang isang fixed-length na string ay palaging pareho ang haba, ang Len function ay palaging ibinabalik ang ipinahayag na haba ng string, anuman ang aktwal na haba ng string. Halimbawa, kung ang fixed-length string variable na StrokeName, na 15 character ang haba, ay naglalaman talaga ng salitang "sun", kung gayon ang function Len(StrokeName) ibabalik ang resulta 15. Sa kasong ito, upang malaman ang aktwal na haba ng string (sa aming kaso - 6), kailangan mong gamitin ang sumusunod na kumbinasyon ng mga function: Len(Trim(StrokeName)).

Paghahambing at paghahanap ng mga string

May dalawang function ang VBA na tumutulong sa iyong paghambingin ang mga string: StrComp, InStr.

Function na StrComp

Syntax


StrComp(String1, String2[, Compare])


String1, String2 - anumang dalawang string na expression na kailangang ihambing.

Kapag naisakatuparan ang StrComp, ibabalik ang isa sa mga sumusunod na halaga:

  • -1 kung ang String1 ay mas mababa sa String2;
  • 0 kung ang String1 at String2 ay pantay;
  • 1 kung ang String1 ay mas malaki kaysa sa String2.


Ang listahan sa itaas ay naghahambing ng dalawang string sa text mode: "Default String" at "Default String". Resulta ng paghahambing = 1, i.e. Ang "Default String" ay mas malaki kaysa sa "Default String".

Mag-eksperimento sa iba't ibang mga string upang mas maunawaan kung paano gumagana ang StrComp function.

Function InStr

Ang InStr function ay nagbibigay-daan sa iyo upang matukoy kung ang isang string ay naglalaman ng isa pang string.

Syntax


StrComp(String1, String2[, Compare])


String1, String2 - anumang wastong mga expression ng string. Sinusuri ng function kung ang String1 ay nakapaloob sa String2.

Ang paghahambing ay isang opsyonal na argumento na maaaring alinman sa mga sumusunod na paunang natukoy na mga constant (kung aalisin, ang kasalukuyang setting ng Paghambingin ang Pagpipilian ay ginagamit):

  • vbBinaryCompare - binary na paghahambing ng dalawang string;
  • vbTextCompare - paghahambing ng teksto ng dalawang string;
  • vbDatabaseCompare - ginagamit lamang sa Microsoft Access.

Start - isang opsyonal na argumento, ay isang numeric na expression at tumutukoy sa posisyon ng character sa String1 kung saan dapat magsimula ang tseke.


Ang InStr ay nagbabalik ng isang numero na nagsasaad ng posisyon ng character sa String1 kung saan natagpuan ang String2. Kung hindi mahanap ng InStr ang String2 sa String1, ibinabalik ang 0. Kung Null ang String1 (o String2), ibinabalik din ng Null ang function.



Paghati ng linya

Minsan ito ay nagiging kinakailangan upang hatiin ang isang string sa mga bahaging bahagi nito. Sa VBA, tatlong function ang lumulutas sa problemang ito: Kaliwa, Kanan, Gitna.

Kaliwang function

Syntax


Kaliwa (String, Haba)


Ang function ay nagbabalik ng isang kopya ng String, simula sa unang character at kasama ang bilang ng mga character na tinukoy ng Haba. Kung ang Haba ay isang numerong mas malaki kaysa sa aktwal na haba ng String, ibabalik ang buong String expression.

Tamang function

Syntax


Kanan (String, Haba)


Ang string ay anumang valid na expression ng string.

Haba - anumang numerical value.


Ang function ay nagbabalik ng isang kopya ng String, simula sa huling character at kasama, mula kanan hanggang kaliwa, ang bilang ng mga character na tinukoy ng Haba. Kung ang Haba ay isang numerong mas malaki kaysa sa aktwal na haba ng String, ibabalik ang buong String expression. Palaging kinokopya ng Right function ang mga character mula sa dulo ng isang string hanggang sa simula.

kalagitnaan ng pag-andar

Syntax


Kalagitnaan (String, Simula, [, Haba])


Ang string ay anumang valid na expression ng string.

Haba, Simula - anumang mga numerong halaga.


Ang Mid function ay nagbabalik ng kopya ng String na nagsisimula sa posisyon ng character sa String na tinukoy ng Start argument. Ang opsyonal na argumentong Haba ay tumutukoy sa bilang ng mga character na kokopyahin mula sa String hanggang Mid. Kung ang Start ay naglalaman ng mas malaking bilang kaysa sa aktwal na haba ng String, isang walang laman na string ang ibabalik.



Mga character na hindi maipasok mula sa keyboard

Madalas na nangyayari na kailangan mong magpasok ng isang character kung saan walang key sa keyboard (halimbawa, isang simbolo ng copyright). Ang isa pang sitwasyon ay kapag kailangan mong isama ang isang character ng serbisyo ng VBA sa isang string (ang pinakakaraniwang kaso ay ang pagsasama ng mga double quote).

Upang isama ang mga character sa isang string na hindi maipasok mula sa keyboard, o may espesyal na kahulugan sa VBA, gamitin ang function Chr.

Syntax


Chr (Charcode)


Charcode - anumang numeric na expression na isang wastong code para sa set ng character na ginagamit ng isang computer. Dapat ay isang integer sa pagitan ng 0 at 255.

Ang Chr function ay tumatagal ng isang code ng character bilang argumento at nagbabalik ng string na naglalaman ng character na naaayon sa code na iyon. Ginagamit ang function na ito sa mga listahan sa itaas upang magpakain ng linya kapag nagpapakita ng mensahe sa screen Chr (13).


Dahil ang mga character na ginamit upang magsimula ng bagong linya ay napakahalaga kapag nagfo-format ng mga mensahe at iba pang data ng string na minamanipula ng mga routine ng VBA, mayroong ilang mga paunang natukoy na constant para sa mga character na ito upang maiwasan ang pangangailangang gamitin ang Chr function:

  • vbCr ay isang carriage return character. Katumbas ng Chr(13)
  • vbLf - offset character sa pamamagitan ng isang linya. Katumbas ng Chr(10)
  • vbCrLf - carriage return + offset na character sa pamamagitan ng isang linya. Katumbas ng Chr(13)+ Chr(10)
  • vbTab - karakter ng tab. Chr(9) katumbas

Upang tingnan ang listahan simbolo ng code kailangan mong buksan ang sistema ng tulong ng VBA at kapag hiniling "mga set ng character" Ang kaukulang talahanayan ay ipapakita.



Pag-format ng mga Halaga ng Data

Kadalasan, para sa isang kadahilanan o iba pa, ang format ng data sa output ng isang programa ay hindi ganap na angkop sa amin. Ang problemang ito ay nalutas sa pamamagitan ng pag-andar Format.

Ang function ng VBA Format ay kapareho ng function na Format sa Excel at gumagamit ng parehong mga placeholder sa pag-format ng data.

Syntax


Format (Expression [, Format[, Firstdayofweek [, Firstweecoofyear]]])


Expression - anumang wastong pagpapahayag (kinakailangang argumento).

Ang format ay isang wastong expression ng isang pinangalanan o tinukoy ng user na format.

Ang Firstdayofweek ay isang pare-pareho na tumutukoy sa unang araw ng linggo.

Unang linggo ng taon - isang pare-pareho na tumutukoy sa unang linggo ng taon.


Upang magamit ang function na Format, dapat mong alinman magtakda ng paunang natukoy na format, o lumikha ng isang imahe ng isang tiyak na format, gamit ang mga placeholder na character.


Mga pinangalanang format para gamitin sa function na Format

Pinangalanang format Aksyon
Pangkalahatang Petsa Nag-format ng impormasyon ng petsa at oras sa isang sequential na numero ng petsa gamit ang mga setting ng format ng petsa at oras para sa computer na ito.
Mahabang Petsa I-format lamang ang bahagi ng petsa sa isang sunud-sunod na petsa, gamit ang mga setting ng format ng Mahabang petsa ng computer.
Katamtamang Petsa Ipo-format lamang ang bahagi ng petsa bilang sunud-sunod na petsa, gamit ang mga setting ng Medium date format ng iyong computer.
Maikling Petsa I-format lamang ang bahaging naglalaman ng petsa sa isang sunud-sunod na petsa, gamit ang mga setting ng computer para sa format ng Maikling petsa.
Matagal na panahon Ipo-format lamang ang bahagi ng oras sa isang sunud-sunod na petsa, gamit ang mga setting ng Long time format ng computer.
Katamtamang Panahon I-format lamang ang bahagi ng oras sa isang sunud-sunod na petsa, gamit ang mga setting ng format ng Medium time ng computer.
Maikling oras Ipo-format lamang ang bahagi ng oras sa isang sequential na petsa, gamit ang mga setting ng computer para sa Short time na format.
Pangkalahatang Numero Nagpo-format ng numero sa isang string nang walang anumang mga espesyal na character.
Pera Nagpo-format ng numero na may simbolo ng currency, thousands separator, at dalawang decimal place lang.
Nakapirming Nagpo-format ng numero upang laging mayroong kahit isang digit bago ang decimal point at hindi bababa sa dalawang digit pagkatapos nito.
Pamantayan Nag-format ng isang numero na may isang thousands separator upang mayroong kahit isang digit bago ang decimal separator at hindi bababa sa dalawang digit pagkatapos nito.
Porsiyento Nagpo-format ng numero bilang porsyento sa pamamagitan ng pagpaparami nito sa 100 at pagdaragdag ng simbolo ng porsyento.
Siyentipiko Nag-format ng numero sa regular na exponential na format.
Oo hindi Ang string na "Oo" ay ibinalik kung ang naka-format na numero ay hindi zero, kung hindi - "Hindi".
Tama/Mali Ang string na "True" ay ibinalik kung ang format na numero ay hindi zero, kung hindi - "False".
Bukas sarado Ang string na "Naka-on" ay ibinalik kung ang naka-format na numero ay hindi zero, kung hindi - "Naka-off".

Mga placeholder para sa paglikha ng mga custom na format

Character ng placeholder Pagkilos (gamit ang numerong 1234.45 bilang halimbawa)
0 Isang numeric na character na nagpapakita ng digit kung ang isa ay nasa posisyong iyon, o 0 kung wala. Maaari mong gamitin ang 0 na simbolo upang ipakita ang mga nangungunang zero para sa mga integer at trailing zero para sa mga decimal: 00000.000 na mga display 01234.450
# Ang isang numerong simbolo ay nagpapakita ng isang digit kung mayroong isa sa posisyong ito, kung hindi, ito ay hindi nagpapakita ng anuman. Ang # filler character ay katumbas ng 0, maliban na ang mga leading at trailing na zero ay hindi ipinapakita: #####.### ay nagpapakita ng 1234.45
$ Nagpapakita ng dollar sign: $###,###.00 ay nagpapakita ng $1,234.45
. Decimal placeholder character, ipinapakita ang decimal point sa itinalagang posisyon sa 0 placeholder character string: #.##.## ay nagpapakita ng 1234.45
% Simbolo ng porsyento, i-multiply ang halaga sa 100 at nagdaragdag ng isang porsyentong tanda sa posisyong ipinahiwatig ng mga placeholder 0:#.#0.00% ay nagpapakita ng numerong 0.12345 bilang 12.35% (nagaganap ang pag-round)
, Libo-libong separator, nagdaragdag ng mga kuwit bilang libu-libong separator sa 0 at # na mga string ng placeholder: ###,###,###.00 ay nagpapakita ng 1,234.45
e-e- Ipinapakita ang value sa exponential format na may exponent para sa mga negatibong value lang: #.####E-00 ay nagpapakita ng 1.23445E03
E+ e+ Ipinapakita ang value sa exponential format na may exponent para sa parehong negatibo at positibong value: #.####E+00 ay nagpapakita ng 1.23445E+03
/ Pinaghihiwalay ang araw, buwan, at taon para sa pag-format ng mga halaga ng petsa.
m Tinutukoy kung paano ipakita ang mga buwan sa mga petsa: m ay nagpapakita ng 1, mm - 01, mmm - Ene, mmmm - Enero
d Tinutukoy kung paano ipakita ang mga araw sa mga petsa: d nagpapakita ng 1, dd - 01, ddd - Sun, dddd - Linggo
y Ipinapakita ang araw ng taon bilang isang numero mula 1 hanggang 366
yy Tinutukoy kung paano ipakita ang mga taon sa mga petsa: yy - 66, yyyy - 1966
q Ipinapakita ang quarter ng taon bilang isang numero mula 1 hanggang 4
w Ipinapakita ang araw ng linggo bilang isang numero (1 - Linggo)
w Ipinapakita ang linggo ng taon bilang isang numero mula 1 hanggang 54
: Pinaghihiwalay ang mga oras, minuto at segundo sa mga halaga ng format ng oras: hh:mm:ss - 01:01:01, h:m:s - 1:1:1
h Tinutukoy kung paano ipapakita ang mga oras: hh - 01, h - 1
m Tinutukoy kung paano ipakita ang mga minuto: mm - 01, m - 1
s Tinutukoy kung paano ipakita ang mga segundo: ss - 01, s - 1
AM/PM Ipinapakita ang oras sa 12-oras na format ng oras na may idinagdag na AM o PM
@ Isang placeholder ng character na nagpapakita ng espasyo kung walang katugmang character sa na-format na string.
Ipinapakita ang lahat ng mga character sa uppercase.
> Ipinapakita ang lahat ng mga character sa maliit na titik.
Chr

Pag-andar ng Chr

Chr(CharCode)
Chr$(CharCode)
ChrB(CharCode)
ChrW(CharCode)

Function Chr(Ch aracte r) ay nagbibigay-daan sa iyo na makakuha ng isang character ayon sa halaga ng ANSI o Unicode numeric code nito

Ibalik ang halaga

Mga pag-andar Chr, ChrB, ChrW ibalik ang isang halaga ng String subtype ng uri ng Variant na naglalaman ng character na tumutugma sa tinukoy na ANSI o Unicode character code. Mga pag-andar Chr$, ChrB$, ChrW$ ibalik ang isang halaga ng uri ng String nang naaayon

Tandaan

Chr At Chr$ ibalik ang isang character sa pamamagitan ng ANSI encoding nito
ChrB At ChrB$ bumalik single-byte linya
ChrW nagbabalik ng isang Unicode na character, gayunpaman sa mga non-Unicode system ay pareho ang pag-uugali nito Chr
Gamitin sa parameter CharCode ang mga halagang higit sa 255 ay bumubuo ng mga error sa runtime 5: Di-wastong procedure call o argumento o 6: Overflow

Mga pagpipilian CharCode Ang kinakailangang argumento ay isang Mahabang halaga na tumutukoy sa karakter. Karaniwan ang pag-andar Chr ginagamit kapag naglalagay ng mga hindi napi-print na character sa mga string ng teksto (carriage return, line feed, tabulator, atbp.). Ang mga code 0-31 ay tumutugma sa mga karaniwang ASCII control character. Halimbawa, Chr(10) nagbabalik ng bagong linyang karakter Halimbawa Dim retval retval = Chr(65) Debug.Print retval " ay nagbabalik ng A Kategorya

Sa seksyon sa tanong na Mga Tao, mangyaring ipaliwanag nang detalyado kung ano ang ibig sabihin ng function na ord(x) at ang inverse chr(x) nito sa Pascal? ibinigay ng may-akda Nick Brown ang pinakamagandang sagot ay Mayroong isang espesyal na talahanayan ng mga character (pinalawak na ASCII code, kapag ang bawat karakter ay may numeric na halaga, sa kabuuan mayroong 255 na mga halaga sa talahanayan, iyon ay, ang bawat karakter ay itinalaga ng isang numero,
Ang chr(0..254) ay nagko-convert ng isang numero (isang byte) sa karakter kung saan kabilang ang numerong ito, halimbawa chr(71) ang magiging resulta ay ang titik na "G", ang pagpindot din sa mga key sa keyboard ay gumagawa ng sarili nitong code, ito mismo ang code kapag inilagay sa operator na ito at magbibigay ng resulta kung aling key ang pinindot, ito ay ako halimbawa. Ngunit ginagawa ng ORD(x) operator ang prosesong ito sa reverse order.
Itinakda namin ang value ng character at kumuha ng numero mula 0 hanggang 254 (isang byte)
halimbawa ang ORD("G") ay magbibigay sa amin ng resulta 71 (sa decimal na format)
Yun lang daw!!!

Sagot mula sa Katyonachik[newbie]
Ito ay simple, talaga)
Ord ("X") - ibabalik ang code ng character X mula sa ASKII table.
Ang resulta ng inverse function ay isang simbolo na tumutugma sa ipinasok na code (kung saan kinuha ang function) mula sa parehong talahanayan ng ASCII.


Sagot mula sa Juri[guru]
Ang mga ito ay hindi reciprocal function!
Ang Ord function ay nagbabalik ng ordinal na halaga ng isang enumerated na uri.
Ang bilang ay nagsisimula sa zero.
Para sa uri ng byte, ibabalik ng function ang aktwal na halaga - ang ordinal na numero ay tumutugma sa halaga.
Para sa uri ng char, ibabalik ng function ang serial number ng character, na (ang numero ay random) ay tumutugma sa ASCII code.
Ibinabalik ng chr function ang character na may ibinigay na ASCII code.
Konklusyon: Sa simple, patungkol sa mga simbolikong halaga, talagang gumagana ang mga ito bilang kabaligtaran ng bawat isa...
Samakatuwid, maaari nating sabihin na ang ord function ay ang kabaligtaran ng chr function, ngunit hindi ang kabaligtaran - ang chr function ay hindi ang kabaligtaran ng ord function, dahil ang saklaw ng ord function ay hindi limitado sa pagtatrabaho sa mga simbolo!



Mga kaugnay na publikasyon