谁用过 VB 的 StrConv 函数

[inshua]

该函数的 API 原型是什么？
提示：好象是 LCMapString，但是没有成功

[sysu]

Returns a Variant (String) converted as specified.

Syntax

StrConv(string, conversion, LCID)

string Required. String expression to be converted.
conversion Required. Integer. The sum of values specifying the type of conversion to perform.
LCID Optional. The LocaleID, if different than the system LocaleID. (The system LocaleID is the default.)

This example uses the StrConv function to convert a Unicode string to an ANSI string.

Dim i As Long
Dim x() As Byte
x = StrConv("ABCDEFG", vbFromUnicode) ' Convert string.
For i = 0 To UBound(x)
Debug.Print x(i)
Next

[Wnyu]

内码转换

[inshua]

是啊，内码转换，还可以用来测字符串长度，在 API 里是怎么实现的？
DELPHI 没有这个函数，用 ACTIVEX DLL 包装倒是可以，不过我需要知道 API。

[cobe]

API我记得是 LStrCov*....什么来着

你查查Lstr开头的函数，我以前用过

[naughtyboy]

Visual Basic for Applications Reference

StrConv Function


Returns a Variant (String) converted as specified.

Syntax

StrConv(string, conversion, LCID)

The StrConv function syntax has these named arguments:

Part Description
string Required. String expression to be converted.
conversion Required. Integer. The sum of values specifying the type of conversion to perform.
LCID Optional. The LocaleID, if different than the system LocaleID. (The system LocaleID is the default.)


Settings

The conversion argument settings are:

Constant Value Description
vbUpperCase 1 Converts the string to uppercase characters.
vbLowerCase 2 Converts the string to lowercase characters.
vbProperCase 3 Converts the first letter of every word in string to uppercase.
vbWide* 4* Converts narrow (single-byte) characters in string to wide (double-byte) characters.
vbNarrow* 8* Converts wide (double-byte) characters in string to narrow (single-byte) characters.
vbKatakana** 16** Converts Hiragana characters in string to Katakana characters.
vbHiragana** 32** Converts Katakana characters in string to Hiragana characters.
vbUnicode 64 Converts the string to Unicode using the default code page of the system.
vbFromUnicode 128 Converts the string from Unicode to the default code page of the system.


*Applies to Far East locales.

**Applies to Japan only.

Note These constants are specified by Visual Basic for Applications. As a result, they may be used anywhere in your code in place of the actual values. Most can be combined, for example, vbUpperCase + vbWide, except when they are mutually exclusive, for example, vbUnicode + vbFromUnicode. The constants vbWide, vbNarrow, vbKatakana, and vbHiragana cause run-time errors when used in locales where they do not apply.

The following are valid word separators for proper casing: Null (Chr$(0)), horizontal tab (Chr$(9)), linefeed (Chr$(10)), vertical tab (Chr$(11)), form feed (Chr$(12)), carriage return (Chr$(13)), space (SBCS) (Chr$(32)). The actual value for a space varies by country for DBCS.

Remarks

When you're converting from a Byte array in ANSI format to a string, you should use the StrConv function. When you're converting from such an array in Unicode format, use an assignment statement.

[cobe]

楼上的，看清楚别人的问题再抄答案行吗？！

“该函数的 API 原型是什么？”你明白什么意思吗？

瞎拽~~整英文的我们就晕了呀？！

[inshua]

我试试——找到一个日本人用 LCStrMap 的例子，换成中文的就失败，分特

[inshua]

http://delphi.ktop.com.tw/topic.asp?topic_id=24565

该问题已经结帖 ：P

[inshua]

http://www.aspxcn.com/dotnetbbs/View.aspx?fbId=26&Id=6838

根据该帖，应该用 LCMapString，对照

http://www.nifty.ne.jp/forum/fdelphi/samples/00056.html

作为使用方法的参考。但是还没有成功。