JV color JV color JV color
เสาร์, 11 กุมภาพันธ์ 2012

visual basic 6

แบ่งปันสิ่งนี้
แบ่งปันให้เพื่อน
แบ่งปัน

ตัวเลือกของกลุ่ม

วีดีโอ

Resource Editing. 07:59
560 ครั้ง
2010-07-17 06:57:38
poto
2nd Visual Basic 6.0 Tutorial 05:50
802 ครั้ง
2010-07-17 06:56:45
poto
Visual Basic 6.0 Tutorial (Intro) 07:02
1016 ครั้ง
2010-07-17 06:56:07
poto
VB 6.0 Make a shutdown, restart, logout program 05:47
1072 ครั้ง
2010-07-17 06:55:06
poto
ดูวีดีโอทั้งหมด (4)

visual basic 6
หมวดหมู่:
สร้างแล้ว:
เสาร์, 17 กรกฏาคม 2010
ผู้ดูแลกลุ่ม:
poto
1 new update
กลุ่มพัฒนาซอฟต์แวร์ด้วย วิชวลเบสิค 6
ฟังก์ชั่นเกี่ยวกับตัวอักษร UT_Token
จันทร์, 13 กันยายน 2010 โดย poto
Function UT_Token$(p_gSource$, p_gSeparator$)
'-------------------------------------------------------
'Call: p_gSource$ String to modify
'   p_gSeparator$ Delimiting string
'
'Ret : UT_Token$ First token from string
'    p_gSource$ Source with first token removed
'
'Notes:
'------------------------------------------------------
Dim gToken$, iPos%

iPos = InStr(p_gSource, p_gSeparator)
If iPos = 0 Then
   gToken = p_gSource
   p_gSource = ""
Else
   gToken = Left$(p_gSource, iPos - 1)
   p_gSource = Mid$(p_gSource, iPos + Len(p_gSeparator))
End If

UT_Token = gToken
End Function

Function UT_stuff$(p_tString$, p_iStart%, p_nDelete%, p_tStuff$)
'----------------------------------------------
'
' Call: p_tString string to stuff
'    p_iStart starting position at which to stuff
'    p_nDelete number of characters to delete
'    p_tStuff text to stuff
'
' Ret: string with requested deletion/db_valion
'    eg. ?UT_stuff$("bcdefg", 2, 3, "x")
'    bxfg
'
'----------------------------------------------
UT_stuff = Left$(p_tString, p_iStart - 1) & p_tStuff & Mid$(p_tString, p_iStart + p_nDelete)

End Function

Function UT_StripCharacter(StringToStrip As String, StrippingChar As String) As String
'------------------------------------------
'Call: StringToStrip
'    StrippingChar
'    eg. ? UT_StripCharacter("asdfasdfasdfasdf","a")
'    "sdfsdfsdfsdf"
'---------------------------------------
Dim iCount As Integer
Dim strTemp As String

iCount = 1
strTemp = StringToStrip

Do While iCount 0
'Find the position of the character to be stripped
   iCount = InStr(iCount, strTemp, StrippingChar)
'If the character was found, then strip it
   If iCount 0 Then _
     strTemp = Left(strTemp, iCount - 1) & Right(strTemp, Len(strTemp) - iCount)
Loop

UT_ StripCharacter = strTemp

End Function
แสดงประกาศทั้งหมด