Foxtable(狐表) → 用户栏目 → 专家坐堂 → net2.0下PDF转图片


  共有10612人关注过本帖树形打印复制链接

主题：net2.0下PDF转图片
帅哥哟，离线，有人找我吗？
zoyong
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/1 17:26:00 [只看该作者]

框架不起作用


图片点击可在新窗口打开查看此主题相关图片如下：b4dceec38d6db23fd02040a8b4f13ce.jpg
图片点击可在新窗口打开查看


框架不起作用

[此贴子已经被作者于2020/2/1 17:26:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/1 17:30:00 [只看该作者]

框架引用路径不对：http://www.foxtable.com/mobilehelp/topics/0011.htm

比如引用路径为：
HttpServer.Prefixes.Add("http://*/")
HttpServer.WebPath = "d:\web"  '指定静态文件存储位置
HttpServer.Start()

那么3个框架文件要放到"d:\web\weui"，如：

d:\web\weui\weui.me.js
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/4 19:56:00 [只看该作者]

Using sr As IO.StreamReader = New IO.StreamReader("c:\temp\openid.txt") '直接从文件路径生成'

Dim count As Integer = 0
Do While line IsNot Nothing '如果不为空.为空说明读取完毕,结束循环
    count += 1
    line = sr.ReadLine() '读取下一行
    Dim dt As DataTable = cmd.ExecuteReader(True)
    Dim dr As DataRow = dt.sqlFind("OpenID = '" & line & "'")
    If dr Is Nothing Then
        Dim dn As DataRow = dt.Addnew()
        dn("OpenID") = line
        dn.Save
    End If
Loop

End Using



最后一行不导入，怎么修改，因为最后一行为空行
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/4 20:23:00 [只看该作者]

 line = sr.ReadLine()
if line  > "" then 
导入的代码
end if
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/7 19:58:00 [只看该作者]

{"request_id": "a1f620dc499e11ea8cc2a3f7c1e595821581075625914415", "code": 0, "msg": "", "data": {"fields": ["ts_code", "trade_date", "open", "high", "low", "close", "pre_close", "change", "pct_chg", "vol", "amount"], "items": [["002411.SZ", "20200206", 14.6700, 15.6900, 14.3300, 15.6900, 14.2600, 1.4300, 10.0281, 1583473.420000, 2427042.981000]], "has_more": false}}



如何将红色代码解析出来，里面有两个[[符号
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/7 20:14:00 [只看该作者]

理解为数组里面有数组即可，用法没有区别：http://www.foxtable.com/mobilehelp/topics/0140.htm

比如帮助的示例4，加多一层括号，也就是多一层循环而已

Dim json As String  = "{'touser':[['zhansan', 'lisi']],'msgtype':'text'}"
Dim jo As JObject = JObject.Parse(json)
Dim ja As JArray = jo("touser")
For i As Integer = 0 To ja.Count - 1
    For j As Integer = 0 To ja(i).Count - 1
        Output.Show(ja(i)(j).ToString)
    Next
Next
Output.Show(jo("msgtype").Tostring)
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/18 19:59:00 [只看该作者]

有多个计划任务，用表形式管理   "表A"
要执行的代码在dr("执行代码")列，以下红色代码怎么写



Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
    dt = Date.Now
    
    For Each dr As DataRow In DataTables("表A").DataRows
        If dr("任务名称") = "30分钟1次" Then
            运行执行代码 = dr("执行代码")
        End If
    Next

End If
[此贴子已经被作者于2020/2/18 20:00:11编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/18 20:49:00 [只看该作者]

        If dr("任务名称") = "30分钟1次" Then
Functions.Remove("abc")
Functions.Add("abc",dr("执行代码"))
Functions.Complie()
Functions.Execute("abc")
        End If
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/2/21 20:12:00 [只看该作者]

计划任务无效，大神帮忙看一下

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:1定时执行.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/21 21:55:00 [只看该作者]

代码没有问题。计划任务有效，只是自己指定的条件不符合

If dr("开始时间") < Date.Now.Hour AndAlso Date.Now.Hour < dr("结束时间") Then
 回到顶部
总数 67 上一页 1 2 3 4 5 6 7 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询