给字符串变量赋值问题，难

happyweidy 2004-04-08 10:14:22

我有大段文本。要怎么样赋值给一个字符串变量呢？

不要说一点点的累加哦。不知道有什么简便方法，谢谢啦。

...全文

213 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

lizfhn 2004-04-11

打赏
举报

加密通常用的方法就是异或吧！

northwolves 2004-04-11

打赏
举报

可以用资源文件

happyweidy 2004-04-11

打赏
举报

能详细点么？怎么加密？谢谢！

taosihai1only 2004-04-10

打赏
举报

在文件中可以加密呀

wumy_ld 2004-04-09

打赏
举报

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

BlueBeer 2004-04-09

打赏
举报

我有个不是办法的办法，即不赋值给字符串变量，直接用一个textbox装载文本，如果不想让用户看到，把他藏起来就是了

happyweidy 2004-04-09

打赏
举报

是这样的。我是想写一个dll，在asp里用，目的是要把一段文本隐藏起来。
其实也没多少，也就几十行了。
放在资源中可以？？？如果是放在文件中，那就没有起到蕴藏的目的了。
还有什么好方法啊。各位。

pigpag 2004-04-09

打赏
举报

大段文本放在文件中比较好

放在资源中也可

千万不要放在代码里面

pigpag 2004-04-09

打赏
举报

Open 文件 For Input As #1
S = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

wumy_ld 2004-04-09

打赏
举报

调用示例：
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim strDest(10) As Byte
Dim strSource(20) As Byte
Dim i As Integer
Dim strTemp As String

For i = 0 To 20
strSource(i) = i
Next

CopyMemory strDest(0), strSource(0), 10

For i = 0 To 10
strTemp = strTemp & strDest(i)
Next
MsgBox strTemp
End Sub

happyweidy 2004-04-08