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