Instr,Trim,Left,Right等函数的命名空间

2004-04-29 07:28:07 385 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

《Excel 2010 SQL完全应用》学习笔记之一：SQL常见函数的使用一、字符串函数 MID(string，start，length) 用来截取字符串中的部分字符串，string表示待截取的字符串，start表示截取的起点（>0），length表示截取长度(>=0)，如果省略第三个参数则默认返回自start起的所有字符。 eg. SELECT 姓名,MID(身份证号,7,4) AS 出生年份 FROM [身份证信息$] 解释：该例子表示从“身份证信息 ”工作表阅读详情

Imports System
Imports System.String
Namespace Yifang
public class TextFromDB
'只取第一行或者而且不超过20个字符
Public Function ToTitle(strSource as String)
Dim strResult as String
strResult=Trim(strSource)
If InStr(strResult,CHR(13))>0 then
strResult=Left(strResult,InStr(strSource,CHR(13)))
End If
If strResult.Length>20 Then
strResult=strResult.Substring(0,20)+"…"
End If
Return strResult
End Function
End class
End Namespace

不行！

...全文

使用JAVA代码转word文档之动态生成数据填充（图文详解）今天跟公司对接了业务，根据业务需求，乙方需求文档是word格式的，而我们的数据是动态数据，每生成一份数据，就要以word的形式给乙方一份邮件！这就给了我们的工作一定的难度和挑战！通过阅读资料，团队的帮助以及自我测试，终于实现了这个功能！因为在搜索资料方面，发现各位博主讲的比较模糊，自己碰到了很多bug，浪费了很多宝贵的时间，所以今天写了这篇文章，希望对自己以后或者他人有所帮助！操作第一步：先准... 阅读详情

hornbills

.NET社区 62,272 成员 668,968 内容

+ 关注 + 加入社区

切换为时间正序

huojianfei 2004-09-22

打赏
举报

还有一个问题，就是Substring(0,20)当字符串小于20的时候，报错。

hornbills 2004-04-29

打赏
举报

不用导入 System.String
只用导入 System就行了，而且是Convert.ToChar才需要的

hornbills 2004-04-29

打赏
举报

问题已经解决
用String.IndexOf() 替代 InStr()
用String.Substring() 替代 Left()
用String.Trim() 替代 Trim()
用Convert.ToChar 替代 Chr()

只需要导入 System 和 System.String就行了！
谢谢大家的帮助。

------------------------------------------------------------------
Imports System
Imports System.String

Namespace Yifang
public class TextFromDB
Public Function ToTitle(strSource as String)
Dim strResult as String
strResult=strSource.Trim()
If strResult.IndexOf(Convert.ToChar(13))>0 then
strResult=strResult.Substring(0,strResult.IndexOf(Convert.ToChar(13)))
End If
If strResult.Length>20 Then
strResult=strResult.Substring(0,20)+"…"
End If
Return strResult
End Function
End class
End Namespace

wangsaokui 2004-04-29

打赏
举报

Imports Microsoft.VisualBasic
试过了，需要重新生成解决方案才行，否则编译还是通不过，

wangsaokui 2004-04-29

打赏
举报

用
Microsoft.VisualBasic.Left，
Microsoft.VisualBasic.Instr,
Microsoft.VisualBasic.Trim,
Microsoft.VisualBasic.Right

smx717616 2004-04-29

打赏
举报

Imports System.String 没有这个命名空间吧，只是类而已
Imports System
Imports Microsoft.VisualBasic.Strings
Namespace Yifang
public class TextFromDB
'只取第一行或者而且不超过20个字符
Public Function ToTitle(strSource as String)
Dim strResult as String
strResult=Trim(strSource)
If InStr(strResult,CHR(13))>0 then
strResult=Left(strResult,InStr(strSource,CHR(13)))
End If
If strResult.Length>20 Then
strResult=strResult.Substring(0,20)+"…"
End If
Return strResult
End Function
End class
End Namespace

看行不行

wangsaokui 2004-04-29

打赏
举报

注意也许要先引用Microsoft.VisualBasic.dll才行

hornbills 2004-04-29

打赏
举报

Imports System
Imports System.String

Namespace Yifang
public class TextFromDB
'只取第一行或者而且不超过20个字符
Public Function ToTitle(strSource as String)
Dim strResult as new String

strResult=strSource.Trim()

If strResult.IndexOf(Chars(13)) then
strResult=strResult.SubString(0,strResult.IndexOf(Chars(13)))
End If

If strResult.Length>20 Then
strResult=strResult.Substring(0,20)+"…"
End If
Return strResult
End Function
End class
End Namespace

改了改，不用Microsoft.VisualBasic，用 system.String
编译错误出在IndexOf

D:\www\bin>call "C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Tool
s\vsvars32.bat"
Setting environment for using Microsoft Visual Studio .NET 2003 tools.
(If you have another version of Visual Studio or Visual C++ installed and wish
to use its tools from the command line, run vcvars32.bat for that version.)

D:\www\bin>vbc /t:library /out:yifang.dll *.vb /r:System.web.dll /r:System.data.
dll /r:system.dll /r:System.Xml.dll
Microsoft (R) Visual Basic .NET 编译器版本 7.10.3052.4
用于 Microsoft (R) .NET Framework 版本 1.1.4322.573
版权所有 (C) Microsoft Corporation 1987-2000。保留所有权利。

D:\www\bin\Business_public.vb(8) : error BC30516: 没有可访问的“New”接受此数目
的参数，因此重载决策失败。

Dim strResult as new String
~~~~~~~~~
D:\www\bin\Business_public.vb(12) : error BC30518: 重载决策失败，原因是没有可访
问的“IndexOf”可以用这些参数调用:
'Public Function IndexOf(value As String) As Integer': 对非共享成员的引用要
求对象引用。
'Public Function IndexOf(value As Char) As Integer': 对非共享成员的引用要求
对象引用。

If strResult.IndexOf(Chars(13)) then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~
D:\www\bin\Business_public.vb(13) : error BC30518: 重载决策失败，原因是没有可访
问的“IndexOf”可以用这些参数调用:
'Public Function IndexOf(value As String) As Integer': 对非共享成员的引用要
求对象引用。
'Public Function IndexOf(value As Char) As Integer': 对非共享成员的引用要求
对象引用。

strResult=strResult.SubString(0,strResult.IndexOf(Chars(13))
)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~

D:\www\bin>pause
请按任意键继续. . .

hornbills 2004-04-29

打赏
举报

不行啊！！

系统报错

hychieftain 2004-04-29

打赏
举报

MSDN里就有
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003APR.1033/vblr7/html/vafctLeft.htm
注意也许要先引用Microsoft.VisualBasic.dll才行

huangsuipeng 2004-04-29

打赏
举报

:)顶

wangsaokui 2004-04-29

打赏
举报

错了！
import Microsoft.VisualBasic

wangsaokui 2004-04-29

打赏
举报

using Microsoft.VisualBasic;

Instr,Trim,Left,Right等函数的命名空间

相关推荐