各位老鸟请进,帮我看一个问题,

2011-03-07 12:22:08 343 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

一个运维老鸟的年终总结述职报告整理文档，老男孩偶然发现了于大约10年前写的年终工作总结述职报告，2017年已过，2018年刚刚到来，希望这篇报告能发挥余热对大家写述职报告有帮助，希望大家2018年工资都能再翻倍，奋斗是一方面，也要会把做的总结表现出来才行。时间过的飞快，转眼间，来XXX一年出头了。这一年来让我感受了很多，经历了很多，学到了很多。在领导的带领下，在同学们的配合和帮助下，我不断地学习新知识、总... 阅读详情

各位老鸟,情况是这样的,我将DynaPDF 2.5(一个操作PDF的控件包)中VB.NET下一段程序(这段程序主要是对PDF文档进行查找与替换操作)移植到VB6.0下,
移植完成后,问题就出来,其程序在VB6.0下运行结果不正确,每次替换的结果后面都会多一个字符出来.

图一我要操作的PDF文档和查找的字符

图二在VB6.0下替换的结果

图三替换正确的结果

图四在VB6.0下替换其它字符的结果.

我想问的,出现这种情况的原因有那些,是跟计算坐标有关,还是跟读取内存有关还是有些对象没有释放干净造成的.请各位帮我想下原因. 这个问题我调试了几天了,都没有找到原因,谢谢,
顶者也有分

...全文

老鸟带你画tiled lines 小菜：老鸟，你在敲啥子？老鸟：我在画 tiled lines。小菜：tiled lines？这是啥子？老鸟：tile 是瓷片的意思，就是在瓷片中画线，最终形成的线条具有一定的艺术美感。我在用 processing 绘制瓷片线，这就是 tiled lines，咋样，好看不？小菜：哇塞，好神奇耶！老鸟：想了解不？小菜：想！Show me the code！ Processing 是一门开源编程语言和与之配套的集成开发环境（IDE）的名称。Processing 在电子艺术和视觉设计社区被用来教授. 阅读详情

csdn_风中雪狼

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

赵4老师 2011-03-11

打赏
举报

[Quote=引用 40 楼 dianyancao 的回复:]
引用 38 楼 weishaolin131083 的回复:

应该是编码问题，.NET通常是用 UTF-8，而VB是 Unicode，
你把编码搞对应该就行了。
[/Quote]
VB6 UTF8转码请参考这个

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

'常用的代码页：

const cpUTF8   =65001

const cpGB2312 =  936

const cpGB18030=54936

const cpUTF7   =65000

Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String

    Dim bufSize As Long

    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)

    MultiByteToUTF16 = Space(bufSize)

    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize

End Function



Function UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()

    Dim bufSize As Long

    Dim arr() As Byte

    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)

    ReDim arr(bufSize - 1)

    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0

    UTF16ToMultiByte = arr

End Function



Private Sub Command1_Click()

    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)

End Sub

赵4老师 2011-03-09

打赏
举报

改用不定长字节数组试试？
Dim bstr() as Byte
Dim L as Long
L=LenB(strconv("2010",vbFromUnicode))-1
ReDim bstr(L)
bstr=strconv("2010",vbFromUnicode)

csdn_风中雪狼 2011-03-09

打赏
举报

[Quote=引用 29 楼 dianyancao 的回复:]
MIdB(your_code_string, start, length_of_2002) = "2010": 'unioncode or asci?
[/Quote]
这样不行哦,

csdn_风中雪狼 2011-03-09

打赏
举报

[Quote=引用 31 楼 clear_zero 的回复:]
为什么不联系控件开发商呢，这样不就可以知道原因方便修改了么
[/Quote]
给控件商发邮件了,不过没有回信

dianyancao 2011-03-09

打赏
举报

[Quote=引用 38 楼 weishaolin131083 的回复:]

应该是编码问题，.NET通常是用 UTF-8，而VB是 Unicode，
你把编码搞对应该就行了。
[/Quote]

weishaolin131083 2011-03-09

打赏
举报

应该是编码问题，.NET通常是用 UTF-8，而VB是 Unicode，
你把编码搞对应该就行了。

波导终结者 2011-03-09

打赏
举报

没看到代码，估计是没有\0结束符造成的，后面多的字符串是之前使用过的内存。你把要替换为的内容，后面并上一个\0结束符试试。

dianyancao 2011-03-09

打赏
举报

http://hi.csdn.net/tiger_zhaoPPPPPPPPPPPPPPPPPPP

csdn_风中雪狼 2011-03-08

打赏
举报

呵呵,谢谢jjhhgg1111的帮忙,
我也找不出来是什么原因.这个cpdf类是它已经存存的.
每次查找与替换不一样的字符时,还是有问题,

心匪石不可转 2011-03-08

打赏
举报

WriteTextMatrixExW = pdfWriteTextMatrixExW(m_Instance, Matrix, s, LenB(StrConv(s, vbFromUnicode)) / 2) <> 0
这样可以达到目的，但不清楚是否有道理，呵呵

心匪石不可转 2011-03-08

打赏
举报

程序挺多，还涉及了好多dynapdf的api，没有时间仔细看，猜测是超出了你应该截取的位数导致的。

WriteTextMatrixExW = pdfWriteTextMatrixExW(m_Instance, Matrix, s, LenB(s) / 2 - 2) <> 0
这样写就是2010了，加了“-2”，但是不是建立在看明白程序的基础上，瞎折腾得，呵呵