 |
| ! | |
16. , ,
|
|
, , .
String 4.7. ? - . (, ) , , , . . .
" ", . Visual Basic . :
| "" +"" | + . Visual Basic | |
| "" &"" & "" | & . +, | |
| Len(" ") | , | |
| Mid("", 3, 4) | 4, 3- | |
| Mid(" ", 5, 1) | 5- |
Mid . "":
s = ""
For i = 1 To Len(s)
Debug.Print Mid(s, i, 1) ' i-
Next
:
| InStr("", "") | ( ), "" "" | |
| InStr ("", "") | "" "" | |
| Left("", 2) | 2 | |
| Right("", 3) | 3 | |
| Ucase("") | ||
| Lcase("") |
2.5 () Val, , 4.10 () - Str, . :
| Val("20 8 ") | , , | |
| Val (" - 1 0") | -10 | |
| 3 * Val("2" & "0") | "2" & "0" "20", Val ("20") 20 | |
| Str(5 * 5) | 25 "25". , , Visual Basic , , . |
, , , , , , . , . ? , . "" " " . , , . . :
| "" & LTrim(" ") & "" | LTrim | |
| "" & RTrim(" ") & "" | RTrim | |
| "" & Trim(" ") & "" | Trim |
ASCII
, , ASCII. . Asc. Chr - :
| Asc("") | ASCII 219 | |
| Chr(219) | 219 ASCII |
ASCII 256 , 0 255. , , 32-:
For i = 32 To 255
Debug.Print Chr(i);
Next
:
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz
{|}~
124: , Debug.Print Chr(Asc("") + 1)?
125: " ". , - , , . . , 6 , . , .
126: . . , . . , ( ASCII). . , , . , , . .
: , , 1, , , . : Dim s(20) As String * 1. . . , "". , .
, . , ? , , . , ? ? - ( 1). , , . , , . , , . , .
, . . . , . , , , , , .
, 2. , , - , , .
Visual Basic . - . , , . , - , , , - . , , , , , , . , "" , . , , .
, .
.
1: "" 1998 c: Filimon.txt, VB.
: , . . Filimon.txt , . 1.
, . . , :
| : | Open | "C:\VB\Filimon.txt" | For | Output | As | #1 |
| : | "C:\VB\Filimon.txt" | 1 |
, . , . , , - , . :
Private Sub Command1_Click()
Open "C:\VB\Filimon.txt" For Output As #1 ' Filimon.txt VB C 1
Write #1, "" ' 1 ""
Write #1, 1998 ' 1 1998
Close #1 ' 1
End Sub
, Write. Close.
, . Visual Basic Windows, , Filimon.txt. , , Notepad , :
""
Write :
Write #1, "", 1998
:
"",1998
, - , Output Open Append.
, , , . - , . Open . Visual Basic . Open , . :
Open App.Path & "\Filimon.txt" For
App.Path - , .
, . - , , . , .
2: Filantrop.txt :
""
"", 2000
.
.
:
Private Sub Command3_Click()
Dim a1 As Integer ' ,
Dim a2 As String '
Dim a3 As String '
Dim a4 As Integer '
Open App.Path & "\Filantrop.txt" For Input As #1 ' 1 Filantrop.txt
Input #1, a1 ' 1-
Input #1, a2 ' 2-
Input #1, a3, a4 ' 3-
Close #1 ' 1
Debug.Print a3, a4
End Sub
Immediate:
2000
, Input. Close. , , , "" .
3: , Filantrop.txt. , , . , , , . , , . , , , String. , Filantrop.txt:
Private Sub Command4_Click()
Dim s1 As String ' ,
Dim s2 As String '
Dim s3 As String '
Open App.Path & "\Filantrop.txt" For Input As #1 ' 1 Filantrop.txt
Line Input #1, s1 '
Debug.Print s1
Line Input #1, s2 '
Debug.Print s2
Line Input #1, s3 '
Debug.Print s3
Close #1 ' 1
End Sub
String Line Input. Immediate:
""
"", 2000
, , 2. , Line Input , . . , , s3 "", 2000, .
- , , , , , , .
4: f 10 . .
:
Dim s(1 To 10) As String
Private Sub Command1_Click()
' :
Open App.Path & "\f.txt" For Input As #1 ' 1 f.txt
For i = 1 To 10
Line Input #1, s(i) '
Next
Close #1 ' 1
' :
For i = 1 To 10
s(i) = s(i) & "!" '
Next
' :
Open App.Path & "\f.txt" For Output As #1 ' 1 f.txt
For i = 1 To 10
Print #1, s(i) '
Next
Close #1 ' 1
End Sub
, Print, Write. , 2.
, Print , .
5: , .
: For , . : ", ". . EOF (End of File), "", , , True, - False.
:
Do While Not EOF(1) ', 1
Line Input #1, s(i)
i = i + 1
Loop
, , :
6: .txt 10. , , . . , . , 10, , .
:
1. , .
2. , . .
. 1 .
:
Dim As Integer
Private Sub Form_Load()
Open App.Path & "\.txt" For Input As #1 ' 1 .txt
Input #1, ' ,
Close #1 ' 1
End Sub
Private Sub Timer1_Timer() ' ,
Debug.Print '
= + 1 '
End Sub
Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\.txt" For Output As #1 ' 1 .txt
Write #1, ' ,
Close #1 ' 1
End Sub
Form_Unload. , Form_Terminate, . .
. , . .
127: " ". 1 . . . , , , - " " " ".
, . , . , , - , , .
Visual Basic , Windows, : , , .
c temp 222, 333, 666, 999 1.txt.
:
| FileCopy"c:\temp\1.txt", "c:\temp\2.txt" | FileCopy . : - , - , . 1.txt 2.txt |
| FileCopy "c:\temp\1.txt", "c:\temp\222\4.txt" | 1.txt c:\temp\222 4.txt |
| Name"c:\temp\222\4.txt" As "c:\temp\222\5.txt" | Name As . , FileCopy. 4.txt 5.txt . |
| Name "c:\temp\222\5.txt" As "c:\temp\5.txt" | 5.txt temp. |
| Kill"c:\temp\5.txt" | Kill . |
:
| Name "c:\temp\333" As "c:\temp\444" | 333 444. |
| Name "c:\temp\666" As "c:\temp\222\666" | 666 222. |
| MkDir"c:\temp\888" | 888. |
| RmDir"c:\temp\888" | 888. |
. . , , . , c:\temp\999, ,
FileCopy "c:\temp\999\22.txt", "c:\temp\999\44.txt"
, :
ChDir "c:\temp\999"
:
FileCopy "22.txt", "44.txt"
CurDir , . Debug.Print CurDir.
: 2014-12-28; : 269 | | !
