-
May 12th, 2021, 09:15 PM
#1
Thread Starter
PowerPoster
Convert string to VB6 code,Maximum number of characters per line
Convert string to VB6 code,Maximum number of characters per line
----------------------
how to intercept a string of a specified length by vb6?
Stringbuilder is a good idea,but i want to use :
a=a & "b"
a=a & "c"
a=
or
dim Arr()
redim arr(3)
arr(0)="*****************************"
arr(1)="adfasfadfasdf"
In VB6 IDE, each line of characters cannot be too long. Is there any way to intercept a string of a specified length and concatenate multiple lines?
For example, double quotes need to occupy 2 characters, and carriage returns need to occupy 14 characters
Dim a
a = "abc""4d" & vbCrLf & "22"
like this vb code ,JsCode =**
str from json2.js( or text file)
Code:
Function StrToVBcodeArrMax(StrA As String, VarName As String, Optional spacesCount As Long = 4, Optional LineMaxLen As Long = 1023)
' Dim Sarr(2) As String
' Sarr(0) = "aaaaaaa"
' Sarr(1) = "bbbbbbb"
' Sarr(2) = "cccccc"
'Len2,Other character length '其他字符长度
'LenA,Length without array index '不含数组索引的长度
Dim Code As String, LenA As Long, CutLen As Long, Len2 As Long, LenSTR As Long
Dim TempS As String, Start As Long, BT() As Byte, TxtSpace As Long
Dim Str As String, VarLen As Long
Dim CodeArr() As String
Dim CuteMax As Long, ID As Long, ArrUb As Long
ArrUb = 1000
ReDim CodeArr(-1 To ArrUb)
Str = StrA
Str = Replace(Str, vbCrLf, "%%vbcrlf%")
Str = Replace(Str, vbCr, vbCrLf)
Str = Replace(Str, vbLf, vbCrLf)
Str = Replace(Str, "%%vbcrlf%", vbCrLf)
Str = Replace(Str, Chr(34), Chr(34) & Chr(34))
BT = StrConv(VarName, vbFromUnicode)
VarLen = UBound(BT) + 1 'Len(VarName)
LenSTR = Len(Str)
Len2 = VarLen + 7
LenA = spacesCount + Len2
Start = 1
ID = 0
'===============
DoCutMaxLine:
'提取最长段处理:
CuteMax = LineMaxLen - LenA - Len(ID & "")
CutLen = CuteMax
Dim TempS0 As String
Do While CutLen > 1
TempS = Mid(Str, Start, CutLen)
TempS0 = TempS
If InStr(TempS, vbCrLf) > 0 Then TempS = Replace(TempS, vbCrLf, Chr(34) & " & VBCRLF & " & Chr(34))
If InStr(TempS, Chr(9)) > 0 Then TempS = Replace(TempS, Chr(9), Chr(34) & " & Chr(9) & " & Chr(34))
BT = StrConv(TempS, vbFromUnicode)
TxtSpace = UBound(BT) + 1
If TxtSpace <= CuteMax Then
If (Right(TempS0, 1) = Chr(34) And Right(TempS0, 2) <> Chr(34) & Chr(34)) Then
'The double quotes are cut
'双引号被切开了
ElseIf Right(TempS0, 1) = vbCr Then
'Carriage return is cut open
'回车符被切开了
Else
CodeArr(ID) = String(spacesCount, " ") & VarName & "(" & ID & ") = """ & TempS & Chr(34)
Debug.Print "第" & ID & "段,字符个数=" & CutLen & ",位置" & Start & ",字符量" & LenSTR
ID = ID + 1
If ID > ArrUb Then
ArrUb = ArrUb * 1.5
ReDim Preserve CodeArr(-1 To ArrUb)
End If
Exit Do
End If
End If
CutLen = CutLen - 1
Loop
If CutLen = 0 Then
MsgBox "CutLen=0"
GoTo Doend
End If
Start = Start + CutLen
If Start < LenSTR Then
GoTo DoCutMaxLine
Else
GoTo Doend
End If
Doend:
CodeArr(-1) = String(spacesCount, " ") & "Dim " & VarName & "(" & ID - 1 & ") As String"
CodeArr(ID) = String(spacesCount, " ") & "'Msgbox Join(" & VarName & ","""")"
ReDim Preserve CodeArr(-1 To ID)
Code = Join(CodeArr, vbCrLf)
StrToVBcodeArrMax = Code
End Function
Code:
Dim Js As ScriptControl: Set Js = New ScriptControl
'Dim Js As Object: Set Js = CreateObject("ScriptControl")
Dim JsCode As String, JsonStr As String
'json1.js at 2005,For Support JSON.stringify in vb6
JsCode = "var JSON=function(){var m={'\b':'\\b','\t':'\\t','\n':'\\n','\f':'\\f','\r':'\\r','""':'\\""','\\':'\\\\'},s={'boolean':function(x){return String(x)},number:function(x){return isFinite(x)?String(x):'null'},string:function(x){if(/[""\\\x00-\x1f]/.test(x)){x=x.replace(/([\x00-\x1f\\""])/g,function(a,b){var c=m[b];if(c){return c}c=b.charCodeAt();return'\\u00'+Math.floor(c/16).toString(16)+(c%16).toString(16)})}return'""'+x+'""'},object:function(x){if(x){var a=[],b,f,i,l,v;if(x instanceof Array){a[0]='[';l=x.length;for(i=0;i<l;i+=1){v=x[i];f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){if(b){a[a.length]=','}a[a.length]=v;b=true}}}a[a.length]=']'}else if(x instanceof Object){a[0]='{';for(i in x){v=x[i];f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){if(b){a[a.length]=','}a.push(s.string(i),':',v);b=true}}}a[a.length]='}'}else{return}return a.join('')}return'null'}};return{"
JsCode = JsCode & "copyright: '(c)2005 JSON.org',license:'http://www.crockford.com/JSON/license.html',stringify:function(v){var f=s[typeof v];if(f){v=f(v);if(typeof v=='string'){return v}}return null},parse:function(text){try{return!(/[^,:{}\[\]0-9.\-+Eaeflnr-u \n\r\t]/.test(text.replace(/""(\\.|[^""\\])*""/g,'')))&&eval('('+text+')')}catch(e){return false}}}}();"
JsCode = JsCode & "var TempStr=''; function SetTempStr(Str){TempStr=Str;};"
Js.Language = "Javascript"
Js.AddCode JsCode
JsonStr = "{""key1"":""●●◆◆"",""key2"":""abc"",""arr1"":[{""c"":""aa"",""d"":""bb""},{""e"":""dd""}]}"
'Convert string to Json object
Js.AddCode "var JsonObj=" & JsonStr
MsgBox Js.Eval("JsonObj.key1")
Js.Eval ("JsonObj.key3='str3'")
'Convert JSON object to string
MsgBox Js.Eval("JSON.stringify(JsonObj)")
Js.Run "SetTempStr", "abc" & vbCrLf & "123"
Js.Eval ("JsonObj.key1=TempStr")
MsgBox Js.Eval("JsonObj.key1")
MsgBox Js.Eval("JSON.stringify(JsonObj)")
Last edited by xiaoyao; May 16th, 2021 at 07:09 AM.
-
May 13th, 2021, 02:50 AM
#2
Re: how to intercept a string of a specified length by vb6?
I'm not sure what you are asking, but I recently posted a script to turn multiline text into String constant that may be close to what you want.
-
May 13th, 2021, 11:20 AM
#3
Re: how to intercept a string of a specified length by vb6?
I also am not sure what you are asking, there are the len(), Mid$() and Instr() functions all of which are related to string length and positions and you showed you already know how to concatenate strings multiline or otherwise so what is it you are actually asking?
-
May 13th, 2021, 11:43 AM
#4
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
Originally Posted by DataMiser
I also am not sure what you are asking, there are the len(), Mid$() and Instr() functions all of which are related to string length and positions and you showed you already know how to concatenate strings multiline or otherwise so what is it you are actually asking?
How to precisely control how many characters should be taken in each line?
In the case of different variable names, accurately control the length of each line to the maximum
a = a & "***"
abc = abc & "***"
abc = abc & """a" & vbcrlf & "***"
sz(0) = "aaaa***"
sz(11) = "aaaa***"
-
May 13th, 2021, 12:00 PM
#5
Re: how to intercept a string of a specified length by vb6?
VB6 has a line limit of 1024 characters, not sure if that is what you are asking.
-
May 13th, 2021, 05:08 PM
#6
Re: how to intercept a string of a specified length by vb6?
Yeah I still do not know what is being asked.
If you are reading the data line by line then you can use len() to see how long it is. You can use Left$() or Mid$() to only read part of that data.
You can use binary methods and read the data in chunks of whatever size you want but again the question is unclear.
-
May 13th, 2021, 05:21 PM
#7
Re: how to intercept a string of a specified length by vb6?
May be this:
Code:
Length = Len("""" & Replace$(Replace$(Replace$(Replace$(Replace$(Replace$(InputText, """", """"""), vbTab, """ & vbTab & """), vbCrLf, """ & vbCrLf & """), vbCr, """ & vbCr & """), vbLf, """ & vbLf & """), "& """" ", "") & """")
-
May 13th, 2021, 09:33 PM
#8
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
I want to turn a relatively long string into a multi-line VB code, and each line just puts the maximum number of characters.
There are many ways to save strings, such as StringBuilder.txt, a data1.txt is stored in the resource, or data1.txt can be placed directly in the software directory, and the released software is compressed into a zip together.
This is just to discuss the method of just concatenating with strings or saving in arrays.
Code:
Private Sub Form_Load()
'text1.text=
'a = a & "*"
'abc = abc & "*"
'sz(n) = "*"
'sz(nn) = "*"
End Sub
Private Sub Command1_Click()
Dim S As String, Arr1, I As Long
Dim Stest As String
Dim LineMaxLen As Long, CutStrLen As Long, LenA As Long
LineMaxLen = 1024
Stest = "abc●〓°" & Chr(9) & vbCrLf & vbLf & Chr(9) & vbCr & vbCrLf
For I = 1 To LineMaxLen '1000
S = S & I & Stest
Next
MsgBox S
Arr1 = Split(Text1.Text, vbCrLf)
Debug.Print "LineMaxLen=" & LineMaxLen
For I = 0 To UBound(Arr1)
LenA = Len(Arr1(I)) - 1
CutStrLen = LineMaxLen - LenA
Debug.Print Arr1(I) & ",LenA=" & LenA & ",CutStrLen=" & CutStrLen
Next
End Sub
Code:
LineMaxLen=1024
a = a & "*",LenA=10,CutStrLen=1014
abc = abc & "*",LenA=14,CutStrLen=1010
sz(n) = "*",LenA=10,CutStrLen=1014
sz(nn) = "*",LenA=11,CutStrLen=1013
len('a')=1
len('●')=2?
Does 1024 refer to the length of a single byte, or are all Chinese characters also 1024? Is the length of UNICODE characters counted as one or two?
Last edited by xiaoyao; May 13th, 2021 at 09:46 PM.
-
May 13th, 2021, 09:53 PM
#9
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
https://github.com/douglascrockford/...aster/json2.js
17KB
VB6 STR CODE FOR THIS FILE LIKE:
S = S & "**"
OR
S="AAAAA*" _
& "*****" _
& "******"
OR
DIM arr()
redim arr(x)
arr(0) = "**"
***
arr(10) = "**"
want a function Like StrToVBcode:
Code:
Function StrToVBcode(str As String, ByArr As Boolean, varName As String, Optional Use_ As Boolean) As String()
'*** vb code
End Function
Sub TEST()
Dim S As String
S = Clipboard.GetText 'OR OPEN TXT FILE
Dim vbcode As String
vbcode = StrToVBcode(S, False, "JsCode")
'Dim JsCode As String
'JsCode = "a*****"
'JsCode = JsCode & "b****"
vbcode = StrToVBcode(S, False, "JsCode", True)
'Dim JsCode As String
'JsCode = "a*****" _
'& "b****" _
'& "c****" _
'& "d***"
vbcode = StrToVBcode(S, True, "JsCodeArr")
Dim JsCodeArr() As String
ReDim JsCodeArr(100)
JsCodeArr(0) = "****"
JsCodeArr(1) = "***"
'*
JsCodeArr(100) = "***"
End Sub
Last edited by xiaoyao; May 13th, 2021 at 10:03 PM.
-
May 13th, 2021, 11:48 PM
#10
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
This is the way with the least code
【String line breaks "_" are spliced, and cannot exceed 25 lines, otherwise an error occurs, and the prompt "Too many line continuation flags"】
Code:
Function LineStrToVbCode_(ByVal Str As String, VarName As String, Optional ByConst As Boolean) As String
Str = Replace(Str, Chr(34), Chr(34) & Chr(34))
While Right(Str, 2) = vbCrLf
Str = Left(Str, Len(Str) - 2)
Wend
LineStrToVbCode_ = IIf(ByConst, "Private Const " & VarName & " As String = ", " Dim " & VarName & " As String : " & VarName & " = ") _
& Chr(34) & Chr(34) & " _" & vbCrLf & " & " & Chr(34) _
& Replace(Str, vbCrLf, Chr(34) & " & vbCrLf _" & vbCrLf & " & " & Chr(34)) _
& Chr(34)
End Function
Private Const cConstName5 As String = "" _
& "Dim a" & vbCrLf _
& "Dim b" & vbCrLf _
& "Dim c" & vbCrLf _
& "a = ""2234333""" & vbCrLf _
& "'afasfa" & vbCrLf _
& "b = ""aafasdfa"" & Chr(34) '""" & vbCrLf _
& "b = ""aafasdfa"" & Chr(34) '"""""
Dim cConstName6 As String: cConstName6 = "" _
& "Dim a" & vbCrLf _
& "Dim b" & vbCrLf _
& "Dim c" & vbCrLf _
& "a = ""2234333""" & vbCrLf _
& "'afasfa" & vbCrLf _
& "b = ""aafasdfa"" & Chr(34) '""" & vbCrLf _
& "b = ""aafasdfa"" & Chr(34) '"""""
Last edited by xiaoyao; May 14th, 2021 at 03:17 AM.
-
May 13th, 2021, 11:59 PM
#11
Re: how to intercept a string of a specified length by vb6?
my guess..
Code:
Option Explicit
Private Sub Form_Load()
Dim s As String
Dim i As Long
s = "1234567890"
For i = 1 To 2
s = s & s
Next
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim i As Long
Dim TLen As Long
TLen = 4 '<- set number of characters
For i = 0 To GetPartStringMaxIndex(Text1.Text, TLen)
Print GetPartString(Text1.Text, i, TLen) & "X"
Next
End Sub
Public Function GetPartString(sString As String, Index As Long, TLen As Long)
Dim StartPos As Long
StartPos = (Index * TLen) + 1
GetPartString = Mid$(sString, StartPos, TLen)
End Function
Public Function GetPartStringMaxIndex(sString As String, TLen As Long)
Dim i As Long
i = (Len(sString) \ TLen) - 1
If (Len(sString) Mod TLen) > 0 Then
i = i + 1
End If
GetPartStringMaxIndex = i
End Function
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
-
May 14th, 2021, 12:27 AM
#12
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
Originally Posted by ChrisE
my guess..
Code:
Option Explicit
Private Sub Form_Load()
Dim s As String
Dim i As Long
s = "1234567890"
For i = 1 To 2
s = s & s
Next
Text1.Text = s
End Sub
Private Sub Command1_Click()
Dim i As Long
Dim TLen As Long
TLen = 4 '<- set number of characters
For i = 0 To GetPartStringMaxIndex(Text1.Text, TLen)
Print GetPartString(Text1.Text, i, TLen) & "X"
Next
End Sub
Public Function GetPartString(sString As String, Index As Long, TLen As Long)
Dim StartPos As Long
StartPos = (Index * TLen) + 1
GetPartString = Mid$(sString, StartPos, TLen)
End Function
Public Function GetPartStringMaxIndex(sString As String, TLen As Long)
Dim i As Long
i = (Len(sString) \ TLen) - 1
If (Len(sString) Mod TLen) > 0 Then
i = i + 1
End If
GetPartStringMaxIndex = i
End Function
Also need to deal with the length of the variable name, splicing character, double quotation mark in front. When encountering carriage return, TAB should also be converted into VB6 code, the length will increase a lot
-
May 14th, 2021, 12:36 AM
#13
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
Want to realize 3 kinds of modes, convert the string into VB code, the number of characters in each line requires the most.
There may be a small amount of spaces before each line, as well as variable names and splicing characters.
Code:
Sub test3()
Dim StrA As String: StrA = "" _
& "aaaaaaa" _
& "bbbbbbb" _
& "ccccccc"
End Sub
Sub test4()
Dim StrA As String
StrA = "aaaaaaa"
StrA = StrA & "bbbbbbb"
StrA = StrA & "ccccccc"
End Sub
Sub test5()
Dim Sarr(2) As String
Sarr(0) = "aaaaaaa"
Sarr(1) = "bbbbbbb"
Sarr(2) = "cccccc"
End Sub
-
May 14th, 2021, 03:05 AM
#14
Thread Starter
PowerPoster
Re: character string changes to VB code,maximized characters
@admin @master
Please transfer this topic to the code bank
-
May 14th, 2021, 03:19 AM
#15
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
Originally Posted by Eduardo-
May be this:
Code:
Length = Len("""" & Replace$(Replace$(Replace$(Replace$(Replace$(Replace$(InputText, """", """"""), vbTab, """ & vbTab & """), vbCrLf, """ & vbCrLf & """), vbCr, """ & vbCr & """), vbLf, """ & vbLf & """), "& """" ", "") & """")
Yes, you need to convert these characters before calculating the length
-
May 14th, 2021, 05:04 AM
#16
Thread Starter
PowerPoster
Re: how to intercept a string of a specified length by vb6?
Text alignment is just a basic algorithm.
Some custom controls are all self-drawn, just like table controls. It is very difficult to accurately calculate the border, the height and width of each column and each row, the click position, and the scroll position.
-
May 14th, 2021, 05:40 AM
#17
Re: how to intercept a string of a specified length by vb6?
Originally Posted by xiaoyao
Also need to deal with the length of the variable name, splicing character, double quotation mark in front. When encountering carriage return, TAB should also be converted into VB6 code, the length will increase a lot
I can't follow what you want
do you want to remove Characters? or ????
did you try regex to split at the n Character
Code:
Private Sub Command1_Click()
Dim TXT As String
Dim regSplit As Match
TXT = "Want to realize 3 kinds of modes, convert the " & vbCrLf & _
" string into VB code, ''the'' number of ""characters"" in each line requires the most."
With New RegExp
.Pattern = "(.{0,24})(?: |$)" '< split every n Characters
.Global = True
For Each regSplit In .Execute(TXT)
Debug.Print regSplit.Value
Next
End With
End Sub
debug output
Code:
Want to realize 3 kinds
of modes, convert the
string into VB code,
''the'' number of
"characters" in each
line requires the most.
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
-
May 14th, 2021, 07:34 AM
#18
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
vbcrlf,chr(9),chr(34),vbcr,vblf,These special symbols can not be displayed directly in the vb6 code. Therefore, when obtaining the length, it needs to be converted into code, which makes it difficult to intercept the fixed length.
You can test a relatively large notepad file, it into VB code.Maximum number of words per line
-
May 14th, 2021, 07:39 AM
#19
Re: Convert string to VB6 code,maximized characters
What is the use case?
Or is this another hypothetical question?
Why not store the large string in file or a resource file?
-
May 14th, 2021, 07:50 AM
#20
Re: Convert string to VB6 code,maximized characters
Looking at the example on post #10 it makes less sense than before.
Why on earth would you be combining multiple lines using line breaks and continuation characters.
That just makes the code longer and harder to read.
I also do not under why you would want to try and achieve max line length. Not exceeding max length makes sense but you should never try to add as much as allowed on a single line. I can't even imagine trying to read a code module where every line has 1000+ characters stuffed in there. That would be extremely hard to read and/or debug.
-
May 14th, 2021, 08:05 AM
#21
Re: Convert string to VB6 code,maximized characters
Originally Posted by xiaoyao
vbcrlf,chr(9),chr(34),vbcr,vblf,These special symbols can not be displayed directly in the vb6 code. Therefore, when obtaining the length, it needs to be converted into code, which makes it difficult to intercept the fixed length.
You can test a relatively large notepad file, it into VB code.Maximum number of words per line
that is just nonsense,for what purpose?
I'm outa here
to hunt a species to extinction is not logical !
since 2010 the number of Tigers are rising again in 2016 - 3900 were counted. with Baby Callas it's 3901, my wife and I had 2-3 months the privilege of raising a Baby Tiger.
-
May 14th, 2021, 09:16 AM
#22
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
It was clearly stated in the question I sent at the beginning.I'm actually putting a piece of json2.js into the code.
After the old version was compressed, basically two or three lines were enough.If not compressed, up to 22 lines.
Here is mainly to discuss one. A shorter string, perhaps three or five lines long.Of course,.
For most purposes, just show it as a line.Or just convert it to hexadecimal.For example, someone used to assemble the program msam.exe, put it as a string, loaded inside the software.
Last edited by xiaoyao; May 14th, 2021 at 09:34 AM.
-
May 14th, 2021, 09:18 AM
#23
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
On the processing of strings here to learn.For example, disassemble each function for him, how many variables and what type are there?
This involves syntax analysis, string extraction and so on.This is also a consideration if you need to add a long block of comment text.
-
May 14th, 2021, 09:21 AM
#24
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
Originally Posted by DataMiser
Looking at the example on post #10 it makes less sense than before.
Why on earth would you be combining multiple lines using line breaks and continuation characters.
That just makes the code longer and harder to read.
I also do not under why you would want to try and achieve max line length. Not exceeding max length makes sense but you should never try to add as much as allowed on a single line. I can't even imagine trying to read a code module where every line has 1000+ characters stuffed in there. That would be extremely hard to read and/or debug.
You can put very long strings of these in a module.
In fact, these technologies are only part of my code generation tool.
For example, a function, how many APIs does it have, if you add more than one function, a lot of process code may be repeated.Code editor to deal with a lot of characters, just this instruction length, line feed is only the most basic functions.Including code formatting and so on.
-
May 14th, 2021, 09:54 AM
#25
Re: Convert string to VB6 code,maximized characters
Originally Posted by xiaoyao
It was clearly stated in the question I sent at the beginning.
LOL.
The good news is that being able to use humor in a language is a sign of understanding that language. Keep it up!
-
May 14th, 2021, 10:05 AM
#26
Re: Convert string to VB6 code,maximized characters
It makes sense to me. It is to store large text in the program without having to use resource files or any external file.
Why take advantage of all the possible line length? To use less lines as possible, since that code is non intended to be human readable.
I updated the script with the option.
(still, not sure if that is what xiaoyao is asking)
-
May 14th, 2021, 10:36 AM
#27
Re: Convert string to VB6 code,maximized characters
Originally Posted by Eduardo-
It makes sense to me. It is to store large text in the program without having to use resource files or any external file.
Why take advantage of all the possible line length? To use less lines as possible, since that code is non intended to be human readable.
I updated the script with the option.
(still, not sure if that is what xiaoyao is asking)
Except in the example posted it shows VBCode, multiple lines with line feeds all thrown together making it much longer than it needs to be. It really makes no sense at all to me.
-
May 14th, 2021, 10:59 AM
#28
Re: Convert string to VB6 code,maximized characters
Originally Posted by DataMiser
Except in the example posted it shows VBCode, multiple lines with line feeds all thrown together making it much longer than it needs to be. It really makes no sense at all to me.
What example?
-
May 14th, 2021, 11:10 AM
#29
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
Many people say that VB6 is no longer worth using. VB.NET will also be eliminated by Microsoft.
Everyone has so many opinions.
In fact, I just want to pursue such an algorithm.
In fact, I found that my code seems to be very long.I wonder if anyone can understand it and optimize it.
It's like the string splitting code I wrote before, using the pointer method.
-
May 14th, 2021, 11:19 AM
#30
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
In the past I've used multi-line text concatenation, mostly for web post submissions. For example, data collection, crawlers automatically release information. You may need to post five to ten different addresses from login to operation. The data of each post is different. Key, value, equivalent to JSON data. a=1&b=k&c=33 Some data are fixed, and some are constantly changing. I couldn't think of a better way, so I went with an array of strings.
dim postArr()
redim postArr(1)
postArr(0)="a=" & "1"
postArr(1)="b=" & bvalue
-
May 14th, 2021, 11:25 AM
#31
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
Originally Posted by Eduardo-
It makes sense to me. It is to store large text in the program without having to use resource files or any external file.
Why take advantage of all the possible line length? To use less lines as possible, since that code is non intended to be human readable.
I updated the script with the option.
(still, not sure if that is what xiaoyao is asking)
Yes, we just want to give him a string to save in code.You do not need to use a resource file.
For example, he used a lot of JS encryption code in the process of web post.After using it, you can not use the resource file.Using resource files is the best approach, though.
-
May 14th, 2021, 01:11 PM
#32
Re: Convert string to VB6 code,maximized characters
-
May 16th, 2021, 06:58 AM
#33
Thread Starter
PowerPoster
Re: Convert string to VB6 code,maximized characters
Originally Posted by Magic Ink
Blah!
Please pay attention to the civilized English of the forum.
Some people ask questions in special ways.
Its method may not be the best, but it may be simpler.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|