:
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.