This section of the program in the n=(Len (s1) - Len (Replace (s1, s2, "")))/Len (s2) what do you mean ah
Private Sub Command1_Click ()
Open "E: \ 123. TXT" For Binary As # 1
S1=StrConv (InputB (LOF (1), 1), vbUnicode)
Close # 1
S2=""
N=(Len (s1) - Len (Replace (s1, s2, "")))/Len (s2)
Text1. Text=Val (n)
End Sub

CodePudding user response:

In s1 s2 deleted, how many times n is deleted (minus the new string length, the original string length get deleted string length, the total length divided by the length of the string s2, get replace number),

CodePudding user response:

reference 1/X - I - n reply:

to s1 s2 deleted, how many times n is deleted (minus the new string length, the original string length get deleted string length, the total length divided by the length of the string s2, get replace number),

Yes, replace the number of times!