双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

谁能把我的这段代码翻成VB的代码，谢谢了。

2003-12-15 12:03:10 162 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

flxa 墨衍会员 · AI 创作全网分发关注 + 加入社区

python将本地图片转成url_Python如何实现转换URL详解设计一个算法，将URL转换成5部分，分别是：schema、netloc、path、query_params、fragment。问题URL的中文名叫统一资源定位符，就是咱们常说的网址，设计一个算法，将URL转换成5部分，分别是：schema、netloc、path、query_params、fragment。:///?#一图胜千言：应用场景在实际应用场景中，有些聚合网站会把URL里面netloc提取... 阅读详情

procedure TIniFile.ReadSections(Strings: TStrings);
const
BufSize = 16384;
var
Buffer, P: PChar;
begin
GetMem(Buffer, BufSize);
try
Strings.BeginUpdate;
try
Strings.Clear;
if GetPrivateProfileString(nil, nil, nil, Buffer, BufSize,
PChar(FFileName)) <> 0 then
begin
P := Buffer;
while P^ <> #0 do
begin
Strings.Add(P);
Inc(P, StrLen(P) + 1);
end;
end;
finally
Strings.EndUpdate;
end;
finally
FreeMem(Buffer, BufSize);
end;
end;

...全文

openEuler 22.03 安装 openGauss 5.0.2 部署手册 openEuler 22.03 安装 openGauss 5.0.2 部署手册阅读详情

flxa

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

lazygod 2003-12-16

打赏
举报

if secLen = nSize + 1 then
GetSections = 1
else
S = Left$(Buffer, secLen)
Sections = Split(Sections, Chr(0) & Chr(0))
GetSections = 0
//少了个end if

lazygod 2003-12-16

打赏
举报

public sub ReadSections(GetSections(Sections() as String)
错了
public sub ReadSections(Sections() as String)

lazygod 2003-12-16

打赏
举报

public const BufSize = 16384
public sub ReadSections(Sections() as String)
dim Buffer as String * BufSize
dim S as String
dim secLen as long

on error goto errHandler
secLen = GetPrivateProfileString(vbNullString, vbNullString, "", Buffer, BufSize, FileName)
if secLen > 0 then
S = Left$(Buffer, secLen)
Sections = Split(Sections, Chr(0) & Chr(0))
end if
errHandler:
end sub

现改的，大概能用。不过你原代码有问题，看原型：
DWORD GetPrivateProfileString(
LPCTSTR lpAppName,
LPCTSTR lpKeyName,
LPCTSTR lpDefault,
LPTSTR lpReturnedString,
DWORD nSize,
LPCTSTR lpFileName
);

Return Values
The return value is the number of characters copied to the buffer, not including the terminating null character.

If neither lpAppName nor lpKeyName is NULL and the supplied destination buffer is too small to hold the requested string, the string is truncated and followed by a null character, and the return value is equal to nSize minus one.

If either lpAppName or lpKeyName is NULL and the supplied destination buffer is too small to hold all the strings, the last string is truncated and followed by two null characters. In this case, the return value is equal to nSize minus two.

因此，取出来的可能不完整。
所以：
public const BufSize = 16384
public function GetSections(Sections() as String, ByVal nSize as long) as long
dim Buffer as String * nSize
dim S as String
dim secLen as long

GetSections = -1
on error goto errHandler
secLen = GetPrivateProfileString(vbNullString, vbNullString, vbNullString, Buffer, nSize, FileName)
if secLen > 0 then
if secLen = nSize + 1 then
GetSections = 1
else
S = Left$(Buffer, secLen)
Sections = Split(Sections, Chr(0) & Chr(0))
GetSections = 0
end if
errHandler:
end sub

public sub ReadSections(GetSections(Sections() as String)
dim nSize as long

nSize = BufSize
while GetSections(Sections, nSize) = 1
nSize = nSize * 2
GetSections(Sections, nSize)
wend
end sub

wjpop3 2003-12-16

打赏
举报

这是干吗？？

✦双11狂欢大促✦

谁能把我的这段代码翻成VB的代码，谢谢了 。

相关推荐

双11狂欢大促

谁能把我的这段代码翻成VB的代码，谢谢了。