Red de conocimiento informático - Problemas con los teléfonos móviles - vb intercepta las primeras tres cadenas de cada línea de cadenas

vb intercepta las primeras tres cadenas de cada línea de cadenas

Supongamos que S es una variable o un cuadro de texto que almacena la cadena original

Dim tS As String, ttS As String

Do While S lt；gt ""

Si InStr(S, vbCrLf) gt; entonces

tS = Left$(S, InStr(S, vbCrLf) - 1)

S = Mid$(S, InStr( S , vbCrLf) - 1) InStr(S, vbCrLf) - 1)

S = Mid$(S, InStr(S, vbCrLf) 2)

Else

tS = S

S = ""

Fin si

tTtS = ttS amp "ddddddddddd" amp.Mid$(tS, 5) amp ; vbCrLf

Loop

S = ttS

Si agrega la cadena en cada línea, entonces la última 3 líneas reemplazadas con

ttS = ttS & "bb" & tS & vbCrLf

Tenga en cuenta que, independientemente de si ingresa una nueva línea al final donde hay una nueva línea, la salida es