以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么提取扩展类型里面的数据?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126101)

--  作者:jjun2002cn
--  发布时间:2018/10/14 14:12:00
--  [求助]怎么提取扩展类型里面的数据?

我设置个图片类型的字段,现在里面有2张图片。我要提取这俩个字符串。

我用分隔符的方法分出a(0) 和 a(1)

 

Dim c As String = Tables("销售单数据").Current("SalePic")
Dim a() As String =c.Split(vbcrlf)

 

但是a(1)的字符串前面总是有一个空行这个我该怎么弄?


图片点击可在新窗口打开查看此主题相关图片如下:捕获1.png
图片点击可在新窗口打开查看

--  作者:jjun2002cn
--  发布时间:2018/10/14 15:05:00
--  

Dim c As String = Tables("销售单数据").Current("SalePic")
Dim a() As String =c.Split(vbcrlf)

Dim ftp1 As new FTPClient
ftp1.Host= "192.168.0.200"
ftp1.Account="Admin"
ftp1.Password="1"


 

 If  ftp1.Upload(a(1),a(0)) = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If

ftp1.OpenManager()


--  作者:jjun2002cn
--  发布时间:2018/10/14 15:07:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看

--  作者:jjun2002cn
--  发布时间:2018/10/14 15:15:00
--  

Dim c As String = Tables("销售单数据").Current("SalePic")
Dim a() As String =c.Split(vbcrlf)
Dim ftp1 As new FTPClient
ftp1.Host= "192.168.0.200"
ftp1.Account="Admin"
ftp1.Password="1"

 


 If  ftp1.Upload("C:\\Users\\ADMINI~1\\AppData\\Local\\Temp\\WeChat Files\\260466954989701719.jpg","/oldcloud/公共文档/货运底单/2018货运底单/2018-10/2018-10-10/31019.jpg") = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If

ftp1.OpenManager()

[此贴子已经被作者于2018/10/14 15:25:45编辑过]

--  作者:jjun2002cn
--  发布时间:2018/10/14 15:19:00
--  

同样的字符串手工填写就可以,提取出来的就不可以图片点击可在新窗口打开查看 这是为什么?


--  作者:y2287958
--  发布时间:2018/10/14 15:32:00
--  
用lines,搞不定就上例子
--  作者:有点甜
--  发布时间:2018/10/14 16:38:00
--  

方法一:

 

Dim c As String = Tables("销售单数据").Current("SalePic")
Dim a() As String =c.replace(chr(10), "").Split(chr(13))

 

方法二:

 

http://www.foxtable.com/webhelp/scr/2717.htm