易截截图软件、单文件、免安装、纯绿色、仅160KB

1句VB代码转VC

请教高手,这句VB代码转成VC的该怎样写啊? 拜谢!!!
VB code:

lPtr = InStrB(1, buff, StrConv("someString", vbfromUnicode)) - 1



char *ptr = strstr( buff, "someString );

你返回的是偏移,这里返回的是指针,两个指针相减就是偏移。


引用
char *ptr = strstr( buff, "someString );

你返回的是偏移,这里返回的是指针,两个指针相减就是偏移。



谢谢!
我也是这样转的,但是有问题!

vbfromUnicode: Converts the given string from Unicode to the system's default code page.

怎样把 L"someString" 转成系统的默认编码呢?

_T("someString")

#include <tchar.h>

LPTSTR lPtr = _tcsstr(_T("someString"));


LPWSTR lPtr = wcsstr(L"someString");

漏掉了buff,应该是
LPTSTR lPtr = _tcsstr(_T("someString"), buff);

LPWSTR lPtr = wcsstr(L"someString", buff);

晕,写反了,两个参数对调一下位置。
{{


相关问答:

【急求】VB中使用WScript调用外部命令 - VB / 基础类

在下是vb的新手,想写段程序,在vb中,使用wscript调用一些外部的命令,但是程序执行一直有错误,请各位高手帮忙解答下,谢谢。
代码如下:
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vb可以这样做不? - VB / 非技术类

可以吗
好奇怪的题目额!!

可以告诉我们你到底想问什么 ?

2分给我的话就可以。

........................可以吗

可以!


  纠结,

29. vb可以这样做不? ( H )√
 A. ......

求vb大虾看一下啊!!!

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount '求当前记录数
  If recs > 0 Then '已有考生
  Adodc1.Recordset.MoveLast '移到最后一条记录
  num = V ......

VB读取文件(M为单位)

我用VB自带的TextBox控件,
Option Explicit
Private Type De '块定义
  FSize(1 To 1024) As Byte
End Type
Private Sub Command1_Click()
Dim F As De
Dim N As Integer
Open "C:\WINDOWS\N ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号