基本的函数
'用于将 一个变量 的类型打印出来。
Public Function getVarTypeToString(ByVal m_value As VbVarType) As String
'varType typename
'information: IsArray IsDate IsEmpty IsError IsMissing IsNULL isNumric IsObject
Select Case m_value
Case vbArray
', vbArray + vbByte, vbArray + vbInteger, vbArray + vbLong, vbArray + vbDouble:
getVarTypeToString = "vbArray"
Case vbBoolean
getVarTypeToString = "vbBoolean"
Case vbByte
getVarTypeToString = "vbByte"
Case vbCurrency
getVarTypeToString = "vbCurrency"
Case vbDataObject
getVarTypeToString = "vbDataObject"
Case vbDate
getVarTypeToString = "vbDate"
Case vbDecimal
getVarTypeToString = "vbDecimal"
Case vbDouble
getVarTypeToString = "vbDouble"
Case vbEmpty
getVarTypeToString = "vbEmpty"
Case vbError
getVarTypeToString = "vbError"
Case vbInteger
getVarTypeToString = "vbInteger"
Case vbLong
getVarTypeToString = "vbLong"
Case vbNull
getVarTypeToString = "vbNull"
Case vbObject
getVarTypeToString = "vbObject"
Case vbSingle
getVarTypeToString = "vbSingle"
Case vbString
getVarTypeToString = "vbString"
Case vbUserDefinedType
getVarTypeToString = "vbUserDefinedType"
Case vbVariant
getVarTypeToString = "vbVariant"
If m_value & 8192 Then
getVarTypeToString = "vbArray + " & getVarTypeToString(m_value - 8192)
getVarTypeToString = CDbl(m_value) & " is what varType ######### (in getVarTypeToString() ) # ? "
End Select
End Function
上面的函数可以将 各种类型的数组都打印出来。
其各种类型 都对应这一些数字，分别是：
string相关函数
Public Function showString(ByVal str As String)
'myDebug "str = " & str
For i = 1 To Len(str)
showString = showString & " " & Mid$(str, i, 1)
myDebug showString
End Function
Public Function string2bytes(ByVal str As String) As Byte()
Dim mulBits() As Byte
ReDim Preserve mulBits(Len(str) - 1 )'从0开始的，如果不-1，则会在字节数组后面多出一个0
For i = 1 To Len(str)
'ReDim Preserve mulBits(i)
mulBits(i - 1) = Asc(Mid(str, i, 1))
'mulBits = str
'myDebug UBound(mulBits)'string是unicode，所以直接转换会会变成双倍个数 8 =》16
string2bytes = mulBits
End Function
Public Function bytes2string(ByRef bytes() As Byte) As String
Dim str As String
For i = 0 To UBound(bytes)
bytes2string = bytes2string & Chr(bytes(i))
End Function
测试函数：
Dim str1 As String: str1 = "cnblogsCOM"
showString str1
myDebug getHex(str1)
myDebug getHex(string2bytes(str1))
myDebug getHex(bytes2string(string2bytes(str1)))
myDebug getHex(string2bytes(bytes2string(string2bytes(str1))))
myDebug getHex(bytes2string(string2bytes(bytes2string(string2bytes(str1)))))结果为：
============================== c n b l o g s C O M[getHex Type is vbString] 0x 63 6E 62 6C 6F 67 73 43 4F 4D [getHex Type is vbArray + vbByte] 0x 63 6E 62 6C 6F 67 73 43 4F 4D [getHex Type is vbString] 0x 63 6E 62 6C 6F 67 73 43 4F 4D [getHex Type is vbArray + vbByte] 0x 63 6E 62 6C 6F 67 73 43 4F 4D [getHex Type is vbString] 0x 63 6E 62 6C 6F 67 73 43 4F 4D==============================
字节数组 和 integer long 整数的互相转换
暂时没有完成。
&应该有 integer2bytes long2bytes
bytes2integer bytes2long
四个函数，分别 用 两个字节，四个字节表示 integer和long（vb中integer就是两个字节而已），没有64位的类型。唉 弱弱的vb，与易学的vb真是不兼容啊。
&2字节integer和4字节long与byte()互相转换的函数为：
'######################################################################################################
'整数和字节数组 转换
'######################################################################################################
Public Function BytesToInt2(ByRef b() As Byte) As Integer
If UBound(b) & 1 Then
MsgBox "#Error: in BytesToInt2(byte()),byte() is not 2 bytes!"
Dim s0 As Integer: s0 = b(0) And &HFF&
Dim s1 As Integer: s1 = b(1) And &HFF&
'SHL(s0,0)
If Not SHL(s1, 8) Then
MsgBox "#Error to SHL()"
BytesToInt2 = s0 Or s1
End Function
Public Function BytesToInt4(ByRef b() As Byte) As Long
If UBound(b) & 3 Then
MsgBox "#Error: in BytesToInt2(byte()),byte() is not 4 bytes!"
Dim s0 As Long: s0 = b(0) And &HFF
Dim s1 As Long: s1 = b(1) And &HFF
Dim s2 As Long: s2 = b(2) And &HFF
Dim s3 As Long: s3 = b(3) And &HFF
'MsgBox "Before bitOpt bytestoint4 s0-s1=" & Hex$(s0) & " " & Hex$(s1) & " " & Hex$(s2) & " " & Hex$(s3) & " "
'SHL(s0,0)
If Not SHL(s1, 8) Then
MsgBox "#Error to SHL()"
If Not SHL(s2, 16) Then
MsgBox "#Error to SHL()"
If Not SHL(s3, 24) Then
MsgBox "#Error to SHL()"
'MsgBox "After bitopt bytestoint4 s0-s1=" & Hex$(s0) & " " & Hex$(s1) & " " & Hex$(s2) & " " & Hex$(s3) & " "
BytesToInt4 = s0 Or s1 Or s2 Or s3
End Function
Public Function Int2ToBytes(ByVal vData As Integer) As Byte()
Dim ret() As Byte
Dim s0 As Integer, s1 As Integer
s0 = vData And &HFF
s1 = vData And &HFF00
If Not SHR(s1, 8) Then
MsgBox "#ERROR:to SHR() "
ReDim ret(1)
ret(0) = s0
ret(1) = s1
Int2ToBytes = ret
End Function
Public Function Int4ToBytes(ByVal vData As Long) As Byte()
Dim ret() As Byte
Dim s0 As Long, s1 As Long, s2 As Long, s3 As Long
s0 = vData And &HFF
s1 = vData And &HFF00
If Not SHL(s1, 16) Then
MsgBox "#ERRO to SHL()"
If Not SHR(s1, 16) Then
MsgBox "#ERRO to SHR()"
s2 = vData And &HFF0000
s3 = vData And &HFF000000
'SHR(s0,8*0)
If Not SHR(s1, 8 * 1) Then
MsgBox "#ERROR:to SHR() "
If Not SHR(s2, 8 * 2) Then
MsgBox "#ERROR:to SHR() "
If Not SHR(s3, 8 * 3) Then
MsgBox "#ERROR:to SHR() "
ReDim ret(3)
ret(0) = s0
ret(1) = s1
ret(2) = s2
ret(3) = s3
Int4ToBytes = ret
End Function
Public Function BytesToLong(ByRef b() As Byte) As Long
BytesToLong = BytesToInt4(b)
End Function
Public Function LongToBytes(ByVal vData As Long) As Byte()
LongToBytes = Int4ToBytes(vData)
End Function
其依赖与BitPlus.bas
BitPlus位操作 vb模块代码
Option Explicit
'Module: BitPlus.Bas
'发信人:hermit (阿修罗～相拥我爱), 信区: VisualBasic
VB中位操作运算函数【移位指令】
'发信站:BBS 水木清华站 (Sat Jun
1 12:40:23 2002)
'Code By Hermit @ SMTH , Jun. 1st,2000
'May these functions will help you, and
'Please keep this header if you use my code,thanks!
'提供在VB下进行位运算的函数
'SHL 逻辑左移
'SAL 算术左移
'ROL 循环左移
'RCL 带进位循环左移
带进位循环右移
'Bin 将给定的数据转化成2进制字符串
'SHL SHR SAL SAR ROL ROR 基本类似，以SHL为例说明
'可以移位的变量类型，字节(Byte)，整数(Integer)，长整数(Long)
'返回值 True 移位成功， False 移位失败,当对非上述类型进行移位是会返回False
'Num 传引用变量，要移位的数据，程序会改写Num的值为运算后结果
'iCL 传值变量，要移位的次数，缺省值移位1次
'例 Dim A As Integer
则移位后 A = &H20
'如 SHL A,2
则移位后 A = &H40
'如 SHL A,4
则移位后 A = &H00
'RCR与RCL类似，以RCL为例说明
'这里需要多给定一个参数，即第一次移位时的进位值iCF
'如 A 为字节，则 Bin(A) 返回值为 ""
'如 A 为整数，则 Bin(A) 返回值为 "0001"
'如 A 为长整数，则 Bin(A) 返回值为 ""
'如果传入参数非上述类型时，返回值为 ""
'更详细的信息，请参考相关汇编书籍
Public Function testBitPlus() As String
Dim testData As Integer
Dim str As String
testData = &HF000
str = str & "数据为:" & Bin(testData) & vbCrLf & vbCrLf
If SHR(testData, 10) Then
str = str & "SHR,10:" & Bin(testData) & " 逻辑右移" & vbCrLf
testData = &HF000
If SAR(testData, 10) Then
str = str & "SAR,10:" & Bin(testData) & " 算术右移" & vbCrLf & vbCrLf
testData = &H100
str = str & "数据为:" & Bin(testData) & vbCrLf & vbCrLf
If SHL(testData, 4) Then
str = str & "SHL,04:" & Bin(testData) & " 逻辑左移" & vbCrLf
If SHL(testData, 10) Then
str = str & "SHL,10:" & Bin(testData) & " 逻辑左移" & vbCrLf & vbCrLf
testData = &H100
If SHR(testData, 4) Then
str = str & "SHR,04:" & Bin(testData) & " 逻辑右移" & vbCrLf
testData = &H100
If SHR(testData, 10) Then
str = str & "SHR,10:" & Bin(testData) & " 逻辑右移" & vbCrLf & vbCrLf
testData = &H100
If SAL(testData, 4) Then
str = str & "SAL,04:" & Bin(testData) & " 算术左移=逻辑左移" & vbCrLf & vbCrLf
testData = &H100
If SAR(testData, 4) Then
str = str & "SAR,04:" & Bin(testData) & " 算术右移" & vbCrLf
testData = &H100
If SAR(testData, 10) Then
str = str & "SAR,10:" & Bin(testData) & " 算术右移" & vbCrLf & vbCrLf
testData = &H100
If ROL(testData, 4) Then
str = str & "ROL,04:" & Bin(testData) & " 循环左移" & vbCrLf
testData = &H100
If ROL(testData, 10) Then
str = str & "ROL,10:" & Bin(testData) & " 循环左移" & vbCrLf & vbCrLf
testData = &H100
If RCL(testData, 4) Then
str = str & "RCL,04:" & Bin(testData) & " 带进位循环左移" & vbCrLf
testData = &H100
If RCL(testData, 10) Then
str = str & "RCL,10:" & Bin(testData) & " 带进位循环左移" & vbCrLf & vbCrLf
testData = &H100
If ROR(testData, 4) Then
str = str & "ROR,04:" & Bin(testData) & " 循环右移" & vbCrLf
testData = &H100
If ROR(testData, 10) Then
str = str & "ROR,10:" & Bin(testData) & " 循环右移" & vbCrLf & vbCrLf
testData = &H100
If RCR(testData, 4) Then
str = str & "RCR,04:" & Bin(testData) & " 带进位循环右移" & vbCrLf
testData = &H100
If RCR(testData, 10) Then
str = str & "RCR,10:" & Bin(testData) & " 带进位循环右移" & vbCrLf & vbCrLf
testBitPlus = str & "结论:逻辑 算术左移一样，右移按照最高位有区别 ; 循环 差不多,就差 边缘的一位 " & vbCrLf & "推荐 使用 逻辑左右移 SHL SHR"
End Function
Public Function SHL(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
Dim i As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If (Num And &H4000) && 0 Then iMask = &H8000
Num = (Num And &H3FFF) * 2 Or iMask
For i = 1 To iCL
If (Num And &H) && 0 Then lMask = &H
Num = (Num And &H3FFFFFFF) * 2 Or lMask
For i = 1 To iCL
If (Num And &H40) && 0 Then bMask = &H80
Num = (Num And &H3F) * 2 Or bMask
SHL = False
Exit Function
End Select
SHL = True
End Function
Public Function SHR(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
Dim i As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If (Num And &H8000) && 0 Then iMask = &H4000
Num = (Num And &H7FFF) \ 2 Or iMask
For i = 1 To iCL
If (Num And &H) && 0 Then lMask = &H
Num = (Num And &H7FFFFFFF) \ 2 Or lMask
For i = 1 To iCL
If (Num And &H80) && 0 Then bMask = &H40
Num = (Num And &H7F) \ 2 Or bMask
SHR = False
Exit Function
End Select
SHR = True
End Function
Public Function SAL(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
SAL = SHL(Num, iCL)
End Function
Public Function SAR(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
Dim i As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If (Num And &H8000) && 0 Then iMask = &HC000
'和 逻辑 右移 区别就是 4000 =& &HC00
0100 =& 1100
Num = (Num And &H7FFF) \ 2 Or iMask
For i = 1 To iCL
If (Num And &H) && 0 Then lMask = &HC0000000
Num = (Num And &H7FFFFFFF) \ 2 Or lMask
For i = 1 To iCL
If (Num And &H80) && 0 Then bMask = &HC0
Num = (Num And &H7F) \ 2 Or bMask
SAR = False
Exit Function
End Select
SAR = True
End Function
Public Function ROL(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
Dim i As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If (Num And &H4000) && 0 Then iMask = &H8000
If (Num And &H8000) && 0 Then iMask = iMask Or &H1
Num = (Num And &H3FFF) * 2 Or iMask
For i = 1 To iCL
If (Num And &H) && 0 Then lMask = &H
If (Num And &H) && 0 Then lMask = lMask Or &H1
Num = (Num And &H3FFFFFFF) * 2 Or lMask
For i = 1 To iCL
If (Num And &H40) && 0 Then bMask = &H80
If (Num And &H80) && 0 Then bMask = bMask Or &H1
Num = (Num And &H3F) * 2 Or bMask
ROL = False
Exit Function
End Select
ROL = True
End Function
Public Function ROR(ByRef Num As Variant, Optional ByVal iCL As Byte = 1) As Boolean
Dim i As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If (Num And &H8000) && 0 Then iMask = &H4000
If (Num And &H1) && 0 Then iMask = iMask Or &H8000
Num = (Num And &H7FFF) \ 2 Or iMask
For i = 1 To iCL
If (Num And &H) && 0 Then lMask = &H
If (Num And &H1) && 0 Then lMask = lMask Or &H
Num = (Num And &H7FFFFFFF) \ 2 Or lMask
For i = 1 To iCL
If (Num And &H80) && 0 Then bMask = &H40
If (Num And &H1) && 0 Then bMask = bMask Or &H80
Num = (Num And &H7F) \ 2 Or bMask
ROR = False
Exit Function
End Select
ROR = True
End Function
'带进位循环左移
Public Function RCL(ByRef Num As Variant, Optional ByVal iCL As Byte = 1, Optional ByVal iCf As Byte = 0) As Boolean
Dim i As Byte, CF As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If CF = 0 Then
If (Num And &H4000) && 0 Then iMask = iMask Or &H8000
If (Num And &H8000) && 0 Then
Num = (Num And &H3FFF) * 2 Or iMask
For i = 1 To iCL
If CF = 0 Then
If (Num And &H) && 0 Then lMask = lMask Or &H
If (Num And &H) && 0 Then
Num = (Num And &H3FFFFFFF) * 2 Or lMask
For i = 1 To iCL
If CF = 0 Then
If (Num And &H40) && 0 Then bMask = bMask Or &H80
If (Num And &H80) && 0 Then
Num = (Num And &H3F) * 2 Or bMask
RCL = False
Exit Function
End Select
RCL = True
End Function
'带进位循环右移
Public Function RCR(ByRef Num As Variant, Optional ByVal iCL As Byte = 1, Optional ByVal iCf As Byte = 0) As Boolean
Dim i As Byte, CF As Byte
Dim bMask As Byte, iMask As Integer, lMask As Long
Select Case VarType(Num)
For i = 1 To iCL
If CF = 1 Then
iMask = &H8000
If (Num And &H8000) && 0 Then iMask = iMask Or &H4000
If (Num And &H1) && 0 Then
Num = (Num And &H7FFF) \ 2 Or iMask
For i = 1 To iCL
If CF = 1 Then
lMask = &H
If (Num And &H) && 0 Then lMask = lMask Or &H
If (Num And &H1) && 0 Then
Num = (Num And &H7FFFFFFF) \ 2 Or lMask
For i = 1 To iCL
If CF = 1 Then
bMask = &H80
If (Num And &H80) && 0 Then bMask = bMask Or &H40
If (Num And &H1) && 0 Then
Num = (Num And &H7F) \ 2 Or bMask
RCR = False
Exit Function
End Select
RCR = True
End Function
'将数值转化为二进制字符串
Public Function Bin(ByVal Num As Variant) As String
Dim tmpStr As String
Dim iMask As Long
Dim iCf As Byte, iMax As Byte
Select Case VarType(Num)
Case 2: iMax = 15
'Integer 16 bits
Case 3: iMax = 31
'Long 32 bits
Case 17: iMax = 7
Exit Function
End Select
If iMask And Num Then
tmpStr = "1"
tmpStr = "0"
For iCf = 1 To iMax
If iCf = 31 Then
If Num & 0 Then
tmpStr = "0" + tmpStr
tmpStr = "1" + tmpStr
iMask = iMask * 2
If iMask And Num Then
tmpStr = "1" + tmpStr
tmpStr = "0" + tmpStr
If (iCf + 1) Mod 4 = 0 Then
tmpStr = " " + tmpStr
'Debug.Print iCf & ":" & tmpStr
Bin = tmpStr
End Function
Dim int2_1 As Integer
int2_1 = &HF0AC
Dim str As String
str = "integer(2字节)与字节 的转换 " & vbCrLf & getHexOnly(int2_1) & vbCrLf & _
getHexOnly(Int2ToBytes(int2_1)) & vbCrLf & _
getHexOnly(BytesToInt2(Int2ToBytes(int2_1))) & vbCrLf & vbCrLf
Dim int4 As Long
int4 = &HFF00EEAA
MsgBox str & "long(4字节)与字节 的转换 " & vbCrLf & getHexOnly(int4) & vbCrLf & _
getHexOnly(Int4ToBytes(int4)) & vbCrLf & _
getHexOnly(BytesToInt4(Int4ToBytes(int4)))
&可以看到经过两次转换，结果与原始数据相同！太成功了(图片文字有点小错误，不再上传图片修改了)
将 各种类型的变量，以十六进制的形式打印出来
'基本的 补全0
Public Function hexfix(ByVal val As Byte) As String
If val & 16 Then
hexfix = "0"
hexfix = hexfix & Hex$(val)
End Function
'只获得十六进制，没有类型
Public Function getHexOnly(ByVal val As Variant) As String
getHexOnly = "0x "
Select Case VarType(val)
Case vbString:
getHexOnly = getHexOnly(string2bytes(val))
Case vbBytes
getHexOnly = getHexOnly & Hex$(val)
Case vbByte + vbArray
For i = 0 To UBound(val)
getHexOnly = getHexOnly & hexfix(val(i)) & " "
Case vbArray
getHexOnly = getHexOnly & " "
Case vbBoolean
getHexOnly = getHexOnly & " "
Case vbInteger
getHexOnly = getHexOnly & " "
Case vbLong
getHexOnly = getHexOnly & " "
Case Decimal
getHexOnly = getHexOnly & " "
Case vbDouble
getHexOnly = getHexOnly & " "
Case vbEmpty
getHexOnly = getHexOnly & " "
Case vbError
getHexOnly = getHexOnly & " "
Case vbNull
getHexOnly = getHexOnly & " "
Case vbObject
getHexOnly = getHexOnly & " "
Case vbSingle
getHexOnly = getHexOnly & " "
Case vbVariant
getHexOnly = getHexOnly & " "
Case vbUserDefinedType
getHexOnly = getHexOnly & " "
If VarType(val) & 8192 Then
getHexOnly = getHexOnly & "[]- -[]" & getVarTypeToString(VarType(val))
MsgBox "What kind of
val" & "(" & VarType(val) & "[0 是vbArray ]) that is
" & TypeName(val)
End Select
End Function
'不但打印类型，还有十六进制
Public Function getHex(ByVal val) As String
getHex = "[getHex Type is " & getVarTypeToString(VarType(val)) & "] " & vbCrLf & getHexOnly(val)
End Function
还没有将所有的类型都写完，基本的 bytes string integer long 有了。
其实 上面 也可以写一个 getDecimalToString，就是按照每个字节，打印出来 整数，可以和十六进制对比。
要知道，搞清楚上面的这些函数，费的时间很长。。需要对vb进行测试。
vb来传输 Socket 数据包，按照字节编写的那种，没有这些基本函数怎么能行呢？
阅读(...) 评论()VB中小数怎么取整？_百度知道
VB中小数怎么取整？
请问下Int(-3.9)=？就是想问下VB中是怎么小数取整数的，谢谢谢谢~！！！！
我有更好的答案
有两个函数：Int 和 Fix。Int 定义为返回不大于给定参数的最大整数值，如：Int(3.9) = 3Int(3.1) = 3Int(3) = 3Int(0) = 0Int(-3) = -3Int(-3.1) = -4Int(-3.9) = -4Fix 又称“截尾”函数。即简单保留整数部分，如：Fix(3.9) = 3Fix(-3.9) = -3如果需要“四舍五入”，则得巧妙利用 Int 函数：Int(x + 0.5) 表示四舍五入到个位；Int(x * 100 + 0.5) * 0.01 表示四舍五入到百分位（小数点后第二位）
采纳率：94%
来自团队：
int(-3.9)=-3;对于大于0的数，如int(5.4)=5反之，如int(-4.3)=-4
本回答被提问者采纳
vb中int(x)是取“不大于x的最大整数”，所以，int(-3.9)=-4
在vb中b=int(a)，则b总是要比a要小。如int(3.9)=3&3.9,
int(-3.1)= -4&-3.1她的意义就是去掉多余的部分。
int就是取不大于所求数的整数，int(-3.9)=-4
FIX()是取整的函数
int(-3.9)=-4
其他5条回答
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。&>&VB中各种数据类型转换函数
VB中各种数据类型转换函数
上传大小：21KB
VB中各种数据类型转换函数 HEX STRING
综合评分：0
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, data.com_username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click", '.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有0条
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
输入下载码
为了良好体验，不建议使用迅雷下载
VB中各种数据类型转换函数
会员到期时间：
剩余下载个数：
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
无法举报自己的资源
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可返还被扣除的积分
被举报人：
举报的资源分：
请选择类型
资源无法下载 （ 404页面、下载失败、资源本身问题）
资源无法使用 （文件损坏、内容缺失、题文不符）
侵犯版权资源 （侵犯公司或个人版权）
虚假资源 （恶意欺诈、刷分资源）
含色情、危害国家安全内容
含广告、木马病毒资源
*详细原因：
VB中各种数据类型转换函数