程序员经验分享-hwhale

vb wor转存html,利用VB操作WORD的基本方法

2023-10-26

利用VB操作WORD的基本方法

通过查阅资料，自我实践，经实验通过。

先引用word Application：

Dim MyWord As Word.Application

Dim MyWordBook As Word.Document

Set MyWord = New Word.Application

Set MyWordBook =

MyWord.Documents.Add(ModelPath & "test.dot")

'打开test.dot用户自定义的WORD模版

'MyWord =

CreateObject("Word.Application")

' MyWord.Visible = False

' MyWord.Documents.Open

("test.doc")

'

MyWord.ActiveDocument.Bookmarks.Item("MM").Select

' MyWord.Selection.Text =

"从资料库取出的相应资料"

' MyWord.ActiveDocument.SaveAs

("test1.doc")

MyWordBook.Activate

With MyWordBook

' .Paragraphs(.Paragraphs.Count).Range.Font.Size = 30

'设置文字字体大小(其它设置类推) 如果去除.Paragraphs(.Paragraphs.Count)则表示所有行

' .Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphCenter

'设置文字居中等

' .Content.InsertAfter "hello" &

vbCrLf '向WORD写入一行文字并回车

' .Content.InsertAfter "hello"

' .Paragraphs(.Paragraphs.Count).Range.Font.Size = 10

' .Content.InsertAfter "hello"

.Bookmarks("mm").Range.InsertAfter

"name" '在WORD指定位置(标签)写入文本，指定位置指WORD标签

.Tables(1).Cell(2, 1).Range.InsertAfter "nameFDSAFDSAFDSA"

'在WORD第一个表格的第2行第1列插入文本

.Tables(1).Cell(2, 2).Range.InsertAfter "MM"

.Range(Start:=.Paragraphs(2).Range.Start + 3,

End:=.Paragraphs(2).Range.Start + 8).Font.Size = 30

'给选定的文本(第二段开始位置加3至8的字体)设置字体，其它的累推

.Tables(1).Cell(2, 1).Range.Font.Size = 20 '给选定的单元格设置字体，其它的累推

End With

MyWord.Visible = True

Set MyWord = Nothing

Set MyWordBook = Nothing

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

1、对其WORD内容设置字体样式，以及在WORD中插入表格,以及表格单元格融合与填充.

Option Explicit

Private Sub Command1_Click()

Dim filename As String

CD.ShowSave

filename = CD.filename

OutWord filename

MsgBox "OK"

End Sub

Private Function OutWord(ByVal filePath

As String) As Boolean

Dim newDoc As Word.Document

Set newDoc = New Word.Document

With newDoc

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"

.Paragraphs(.Paragraphs.Count).Range.Font.Size = 10.5

.Paragraphs(.Paragraphs.Count).Alignment =

wdAlignParagraphRight

.Content.InsertAfter "編号:"

& vbCrLf

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"

.Paragraphs(.Paragraphs.Count).Range.Font.Size = 26

.Paragraphs(.Paragraphs.Count).Range.Font.Bold = True

.Paragraphs(.Paragraphs.Count).Alignment =

wdAlignParagraphCenter

.Content.InsertAfter vbCrLf

& "XXXXXXXXX報告" & vbCrLf

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"

.Paragraphs(.Paragraphs.Count).Range.Font.Size = 15

.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False

.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft

.Content.InsertAfter "项目名称:"

& vbCrLf

.Content.InsertAfter "应急类型："

& vbCrLf

.Content.InsertAfter "预警状态：正常/警界/危机"

& vbCrLf

.Paragraphs(.Paragraphs.Count).Alignment =

wdAlignParagraphCenter

.Tables.Add

Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=1,

NumColumns:=3, DefaultTableBehavior:=wdWord9TableBehavior,

AutoFitBehavior:=wdAutoFitFixed

With .Tables(1)

If .Style

<> "表 (格子)" Then

.Style = "表 (格子)"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

.Columns.Width = 50

.Rows.Height = 20

End With

.Paragraphs(.Paragraphs.Count).Range.Font.Name = "宋体"

.Paragraphs(.Paragraphs.Count).Range.Font.Size = 15

.Paragraphs(.Paragraphs.Count).Range.Font.Bold = False

.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft

.Content.InsertAfter "委 托 人："

& vbCrLf

.Content.InsertAfter "预 警 机 构："

& vbCrLf

.Content.InsertAfter "报告负责人："

& vbCrLf

.Content.InsertAfter "时 间："

& vbCrLf

.Paragraphs(.Paragraphs.Count).Alignment = wdAlignParagraphLeft

.Tables.Add

Range:=.Range(Start:=.Range.End - 1, End:=.Range.End), NumRows:=8,

NumColumns:=2, DefaultTableBehavior:=wdWord9TableBehavior,

AutoFitBehavior:=wdAutoFitFixed

With .Tables(2)

If .Style

<> "表 (格子)" Then

.Style = "表 (格子)"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

.Cell(2, 1).Range.Text = "项目名称"

.Range.Cells(3).Row.Cells.Merge

.Range.Cells(3).Range.Font.Size =

15

.Range.Cells(3).Range.Text =

"信息来源/文献检索范围：" & vbCrLf & vbCrLf

& vbCrLf

.Range.Cells(4).Row.Cells.Merge

.Range.Cells(4).Range.Text =

"情况描述/检索结果：" & vbCrLf & vbCrLf

& vbCrLf

.Range.Cells(5).Row.Cells.Merge

.Range.Cells(5).Range.Text = "影响分析："

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf

.Range.Cells(6).Row.Cells.Merge

.Range.Cells(6).Range.Text = "建议："

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf & vbCrLf

& vbCrLf

.Range.Cells(7).Row.Cells.Merge

.Range.Cells(7).Range.Text = "专家组成员："

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf & vbCrLf

& vbCrLf

.Range.Cells(8).Row.Cells.Merge

.Range.Cells(8).Range.Text = "附件目录："

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf & vbCrLf

& vbCrLf

.Range.Cells(9).Row.Cells.Merge

.Range.Cells(9).Range.Text = "报告负责人："

& vbCrLf & vbCrLf &

vbCrLf & vbCrLf & " 年 月 日"

End With

End With

newDoc.SaveAs filePath

newDoc.Close

End Function

2、

很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。到是搜索到了很多问这个问题的记录。没办法，索性只有自己去尝试了。下面把一些代码发上来，给需要的朋友一点提示

a4c26d1e5885305701be709a3d33442f.png。

打开一个已经存在的wrod文件(这个文件包含了表格)

Dim WordApp

Dim Word

Set WordApp =

CreateObject("Word.Application")

WordApp.Visible = True

Set Word =

WordApp.Documents.Open("c:\record.dot")

知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容

Word.Tables(1).cell(1, 2)="内容"

VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells(0,0),WORD的表格也是这样，不信自己试一下就知道了

a4c26d1e5885305701be709a3d33442f.png。所以上面那句话的意思就是对整个word文档中的第一个表格的第一行第二列的内容改变为“内容”。很简单吧？网上有些人在问是不是

Word.Tables(1).cell(1,

2).range.text或者Word.Tables(1).cell(1,

2).text。试一下就发现这2种都不对

a4c26d1e5885305701be709a3d33442f.png。

插入图片其实也很简单，代码如下：

Word.Tables(1).cell(1,

3).Range.InlineShapes.AddPicture ("c:\photo.jpg")

微软的那一套东西集成得很不错，其之间任意调用非常方便，大家如果想用VB对WORD做更多的应用，却又不知道怎么实现，我想最好的办法就是录制宏了，你把你想完成的功能操作一遍，然后查看宏，一目了然了吧！

------------------

问题：

我在vb中调用word打印报表，代码是在word中录制的宏拷贝过来的，但是在生成表格时编译通不过，代码如下：

Dim wdApp As Word.Application

Dim wdBook As Word.Document

Dim Range As Range

Dim NumRows As Long

Dim NumColumns As Long

Set wdApp =

CreateObject("Word.Application")

Set wdBook = wdApp.Documents.Add

wdApp.Visible = True

....

....

--〉wdApp.ActiveDocument.Tables.Add

Range:=Selection.Range, NumRows:=16, NumColumns _

:=5,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitWindow

运行时上面这句报实时错误'91'

对象变量或with块变量未设置

该如何写？

对策：

看你的代码是想增加一个表格，VBA的代码和VB的代码是不一样的，需要转换一下，多用几次就清楚了。

应该这样写

Call

wdBook.Tables.Add(wdBook.application.Selection.Range, 16, 5, 1,

0)

问题：如果我要增加一个复杂的表格，举例说就是在表格中我要合并、拆分一些单元格，还要绘制表头(带斜线的)，但是在word中录制宏时无法对表格进行这些操作，我该怎么办？能不能给出一些代码？

对策：

接着上次那个程序来。。。

Set mySelection =

wdApp.Documents.Application.Selection

mySelection.Cells.Borders(-7).LineStyle

= 1

'选中表格的第2行第3列

table.Cell(2, 3).Select

'向下移动6格，第1个参数和第3个是常数

Call

wdBook.Application.Selection.MoveDown(5, 6, 1)

'合并

wdBook.Application.Selection.Cells.Merge

'拆分成7行2列

Call

wdBook.Application.Selection.Cells.Split(7, 2,

True)

问题：我按你如上所说的方法去做，但是在执行table.cell(2,3).select时报错，错误为实时错误'424',要求对象，我不知道是不是在table前需要加上wdapp还是wdbook，或者是myselection，不过我都试过了，还是不行，后面的就写不下去了。我主要是想生成一个7列27行的表格，第1列的1、2两行合并为一个单元格，第1列的第5行和第6行合并做一个带斜线的表头，斜线上下要分别输入“压力计”和“测试点”作为表头分类，第4行的第2、3、4列单元格合并为一个单元格，5、6、7列合并为一个单元格，望楼主能详细写一下代码。非常感谢！我的代码如下：

Dim wdApp As Word.Application

Dim wdBook As Word.Document

Set wdApp =

CreateObject("Word.Application")

Set wdBook = wdApp.Documents.Add

wdApp.Visible = True

wdApp.Selection.Font.Name = "黑体"

wdApp.Selection.Font.Size = 22

wdApp.Selection.ParagraphFormat.Alignment =

wdAlignParagraphCenter

wdApp.Selection.TypeText

Text:="通风机调试报告"

wdApp.Selection.TypeParagraph

wdApp.Selection.TypeParagraph

wdApp.Selection.Font.Name =

"仿宋_GB2312"

wdApp.Selection.Font.Size = 12

Call

wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range,

NumRows:=27, NumColumns _

:=7,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed)

Set mySelection =

wdApp.Documents.Application.Selection

mySelection.Cells.Borders(-7).LineStyle

= 1

'选中表格的第2行第3列

--> Table.Cell(2,

3).Select

'向下移动6格，第1个参数和第3个是常数

Call

wdBook.Application.Selection.MoveDown(5, 6, 1)

'合并

wdBook.Application.Selection.Cells.Merge

'拆分成7行2列

Call

wdBook.Application.Selection.Cells.Split(7, 2, True)

Set wdBook = Nothing

对策：

不好意思啊，上次在自己机器上测试了一下，没有拷全部代码，不过就这个应该也能理解到呀，table就是要操作的那个table，一个word里面有可能有多个table，我们首先要选中要操作的那个table，我们这个table是自己用代码生成的，所以有一个方便的代码就是

dim Table

set Table =

wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range,

NumRows:=27, NumColumns _

:=7,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed)

修改你的程序里面插入table的那句话即可

---------------------------------------------

顺便提一下，像你这样的程序，我个人觉得是否改成模板要方便些呢？你用word做一个模板，把表格什么的全都先写好，然后保存成模板文件。然后你再用程序加载这个模板，然后往模板里填写数据。这样难度要低一些。不过具体情况具体分析。(个人意见)

之前我不是说了如果是自己创建的表格可以很方便的得到表格对象吗？就在创建时直接取得了。其实还有另外一种办法就是：你的其他程序都不变，只把出错的那句话改成：

wdApp.ActiveDocument.Tables(1).Cell(2,

3).Select

就像我开篇说的，word、excel这些集合的下标都是从1开始，然后只要找到表格那个集合，然后选取第一个表格就是要操作的表格了(因为程序只创建了一个表格)。

如果是模板的话，就应该是对已经存在的表格进行操作了，就只有用这中办法弄了。不知道我说清楚没有。

问题：

我想通过vb在word里添加多个表格，因为数据的列数较多，希望能

分成多个表格显示数据，方便查看。

部分代码如下：

For I = 1 To INT_COL

Call

MyWord.ActiveDocument.Tables.Add(MyWord.Application.Selection.Range,

NumRows:=30, _

NumColumns:=8,

DefaultTableBehavior:=wdWord9TableBehavior, _

AutoFitBehavior:=wdAutoFitFixed)

With

MyWord.Application.Selection.Tables(1)

If .Style

<> "网格型" Then

.Style = "网格型"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

MyWord.Application.Selection.MoveDown　Unit:=wdLine,Count:=30

MyWord.Application.Selection.TypeParagraph

Next I

但是，每次程序执行到MyWord.Application.Selection.MoveDown　Unit:=wdLine,Count:=30这一句，就跳出程序。为什么？

另：您有什么好的建议，处理这种多行多列数据吗？

对策：

程序修改如下，可以出现多个表格，但是在给每一个表格输入数据时，我就不知道怎么处理了，盼回复

For I = 1 To INT_COL

Call

MyWord.ActiveDocument.Tables.Add(MyWord.Selection.Range,

NumRows:=30, _

NumColumns:=8,

DefaultTableBehavior:=wdWord9TableBehavior, _

AutoFitBehavior:=wdAutoFitFixed)

MyWord.Selection.Tables(1).cell(1, 1) =

"Year"

Call MyWord.Selection.MoveDown(5,

30)

MyWord.Selection.TypeParagraph

Next

I

你的代码基本上都差不多了，我没测试，看样子是你的思路有点问题(循环不对)

你可以先生成1个表格，再处理表格的数据。

也可以把所有表格全部生成，再处理表格数据，

看你的代码，你选择的是第2种，不管是哪种，肯定是多重循环的，你的代码只有1重循环。

思路如下：

for 表格数

生成这个表格，得到表格对象

for 表格的行

for 表格行的单元格

单元格="单元格的内容"

next

next

next

呵呵，不知道说清楚没有

你的问题并非上述原因，是我没有把光标移出表格。

楼主实在是高

有个问题一直很奇怪，怎么把光标移到文档末尾，比如我要把剪切板上的东西复制到文件尾。我写的是

ActiveDocument.Range(ActiveDocument.End,ActiveDocument.End).Select

Selection.Paste

这样是不对的

如何用vb在word 中生成多个表格，尤其是在很多时

涉及到换页的操作时，

大家各我看看，我的邮箱是999999999liguang@.163.com

qq:26749732

下面是我的代码 :

For n = 1 To 6

ActiveDocument.Tables.Add

Range:=Selection.Range, NumRows:=10+n, NumColumns:= _

6,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With wdDoc.Tables(n)

.Cell(1, 1).Merge .Cell(1, 6)

End With

With Selection.Tables(1)

If .Style

<> "网格型" Then

.Style = "网格型"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = True

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = True

End With

ActiveWindow.ActivePane.VerticalPercentScrolled = 45

Selection.MoveDown Unit:=wdLine,

Count:=10+n + 1

Selection.TypeParagraph

Next n

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

vb wor转存html

vb wor转存html,利用VB操作WORD的基本方法 的相关文章

  • 银行定期存款产品目标客户的确定——基于逻辑回归

    本篇文章将会介绍用Python分析银行定期存款产品目标客户的确定详细建模细节 业务框架分析以及模型的选择与评估分析参见上一篇文章 银行定期存款产品目标客户的确定 基于逻辑回归 建模前分析 1 导入各种模块并读取数据 2 数据预处理 维规约

  • STM32 keil中__IO得意思

    IO解释 STM32得库函数中 HAL和LL库都有 存在一个 IO得宏定义 define I volatile const lt defines read only permissions define O volatile lt defi

  • STM32配置时钟系统流程(固件库/外设标准库)

    前提 STM32F10x系列固件库 标准外设库 前言 固件库帮我们写好了 时钟系统 时钟树 的配置函数 该函数也不需要我们去调用 只要正确包含了STM32的启动文件 s文件 就行 s启动文件调用执行了时钟配置函数 先于main函数执行 s启

  • “钢铁侠”大战“机器人”！马斯克称「笼中格斗」将在 X 上直播，小扎应战：8 月 26 日如何？...

    由马斯克和扎克伯格领衔 随后引爆全网讨论的 约架 已过去快两个月 先是约定在拉斯维加斯来一场 笼中格斗 接着网友看热闹不嫌事大的做起了预告海报 最后由马斯克母亲出面叫停 当大家以为格斗一事要不了了之时 马斯克再次发声 要打 准备在 X 上直

  • 【Android】拾物App期末作业

    一 期末作业题目 校园失物 拾物APP 二 实施目的 通过本实训 使受训者可以深入理解Android相关技术 并将所学知识应用到实际的中等规模的程序设计中 同时 通过本实训 受训者可以拓展Android相关的知识 提升受训者的能力 三 实施

  • java中JDK JRE JVM的关系

    1 1 软件开发介绍 程序是为了模拟现实世界 解决显示问题而使用计算机语言编写的一系列有序的指令集合 软件 即一系列按照特定顺序组织的计算机数据和指令集合 有系统软件和应用软件之分 人机交互方式 图形化界面 GUI 命令行方式 CLI 常用

  • IO作业day5

    1 gt 使用两个线程完成两个文件的拷贝 主线程拷贝前一半内容 子线程拷贝后一半内容 并且主线程要阻塞回收子线程资源 2 gt 使用三个进程完成两个文件的拷贝 主线程拷贝前三分之一 子线程1拷贝中间三分之一 子线程2拷贝后三分之一 主线程要

  • 使用 Android 开发 MQTT 客户端

    MQTT 代表消息队列遥测传输 它是一种功能强大的消息传输协议 主要用于机器对机器 M2M 和物联网 IoT 通信上下文 MQTT 在这些情况下是首选 因为它易于实施 并且非常适合资源有限的设备 在本文中 我们将开发一个使用 MQTT 协议

  • c语言结构体简单试题,C语言6结构体练习题6

    第六章 结构体 1 下面对结构变量的叙述中错误的是 A 相同类型的结构变量间可以相互赋值 B 通过结构变量 可以任意引用它的成员 C 结构变量中某个成员与这个成员类型相同 的简单变量间可相互赋值 D 结构变量与简单变量间可以赋值 2 有枚举

  • 如何实现算法中的公平性

    机器学习的公平性问题近几年受到越来越多的关注 该领域出现了一些新的进展 机器学习训练在涉及到性别 种族等与人相关的敏感属性时 常常会由于统计性偏差 算法本身甚至是人为偏见而引入歧视性行为 由此 为消除差别影响 改进机器学习公平性 主要途径包

  • 在jsp中实现表格内设置滚动框

    当我们在页面中需要放置多条数据时 滚动框则将是一个十分不错的选择 在需要加入滚动框的表格内设置标签 table tbody style display block tbody table

  • 利用Python实现卷积神经网络的可视化

    对于深度学习这种端到端模型来说 如何说明和理解其中的训练过程是大多数研究者关注热点之一 这个问题对于那种高风险行业显得尤为重视 比如医疗 军事等 在深度学习中 这个问题被称作 黑匣子 Black Box 如果不能解释模型的工作过程 我们怎么

  • C#网络编程，多个客户端连接服务器端并发送消息

    最近学习进度到了C 网络编程 在学习这一章节的知识点 写了一些小demo 此次发表的为服务器监听端口 和多个客户端连接 获取多个客户端发来的消息 服务器端代码 using System Net using System Net Socket

  • SQL Server迭代求和

    drop table t geovindu create table t geovindu xid int IDENTITY 1 1 price money DebitCredit VARCHAR 2 adate datetime defa

  • Android学习之 Scroller的介绍与使用

    类概述 Android里Scroller类是为了实现View平滑滚动的一个Helper类 通常在自定义的View时使用 在View中定义一个私有成员mScroller new Scroller context 设置mScroller滚动的位

  • 微服务工程搭建过程中的注意点

    1 父工程pom xml文件 1 父工程的maven坐标 2 packaging使用pom 原因 在Spring Cloud微服务工程中 通常会采用多模块的方式进行开发 父工程的pom文件中的packaging标签设置为pom 是因为父工程

  • Spring Framework 入门（一）

    Spring Framework各模块作用介绍 可以参考spring framework的github项目 源码地址 https github com spring projects spring framework 下面我们分别了解下各个

  • SQL所有关键字及其作用：

    以下是MySQL的所有关键字及其作用 ADD 在表中添加新的列或索引 ALL 返回满足条件的所有行 包括重复行 ALTER 修改表的结构 如添加 修改或删除列 ANALYZE 分析并收集表的统计信息 用于优化查询 AND 用于多条件查询的逻

  • wedo2.0编程模块介绍_西门子S7-200 SMART硬件和编程软件简介

    前文给大家简单的讲介绍了一下PLC编程涉及的一些概念型知识 本文开始实践 今天带来的是SIMATIC S7 200 SMART硬件和编程软件简介 SIMATIC S7 200 SMART 是西门子公司经过大量市场调研 为中国客户量身定制的一

随机推荐

  • Java 多线程 --- 按序打印

    Java 多线程 按序打印 方法1 控制变量 使用volatile关键字优化 方法2 synchronized wait notifyAll 方法3 信号量 给你一个类 public class Foo public void first

  • 【深度学习】参数量、模型大小、显存

    对于一个深度学习神经网络来说 其通常包含很多卷积层 用于不断提取目标的特征 或对目标进行最终定位或者分类 1 数据存储精度与存储空间 在深度学习神经网络中 最常见的数据格式是float32 占4个字节 Byte 类似地 float16 占2

  • std::condition_variable

    std condition variable std condition variable 是C 11提供的条件变量 可用于同时阻塞一个线程或多个线程 一般的 生产者线程利用支持std mutex的std lock guard std un

  • 【React Hook】一文让你彻底明白何为State Hook？

    使用 State Hook 下面的例子介绍了 Hook import React useState from react function Example 声明一个叫 count 的 state 变量 const count setCoun

  • 如何解除计算机的启动项,UEFI安全启动怎么关闭 关闭UEFI启动项的方法图解

    大家都知道现在很多电脑都预装win8系统 其系统都开启了UEFI安全启动选项 然而 对于不习惯win8操作界面的朋友来说 可能就会把win8改为win7 但是我们得知道Win8改装Win7需要在BIOS下关闭UEFI选项 如果OS选项已经关

  • ctfshow-萌赛

    目录 web 签到 给她 假声赛 web 签到 很明显的命令执行漏洞 我们把前后闭合即可 payload 1 ls 1 1 cat flag 1 给她 根据题目提示很容易就想到是 git泄露 直接用gitHack扫描题目地址 git 发现存

  • 电子科技大学人工智能期末复习笔记（二）：MDP与强化学习

    目录 前言 期望最大搜索 Expectimax Search 马尔科夫决策 MDP offline 超重点 先来看一个例子 基本概念 政策 Policy 折扣 Discounting 如何停止循环 价值迭代 Value Iteration

  • LeetcodeSQL入门——知识点总结（选择/排序/修改/字符串处理/正则）

    LeetcodeSQL入门 选择 排序 修改 字符串处理 选择 sql语言对于空值的判断是IS NULL或者IS NOT NULL eg 某网站包含两个表 Customers 表和 Orders 表 编写一个 SQL 查询 找出所有从不订购

  • 剑指Offer 40

    使用优先队列 将非负数变为非正数存储 结果变成非负数 class Solution public int getLeastNumbers int arr int k if k 0 return new int 0 int nums new

  • SequenceInputStream----合并流

    这个类的作用是将多个输入流合并成一个输入流 通过SequenceInputStream类包装后形成新的一个总的输入流 1 SequenceInputStream InputStream s1 InputStream s2 和Sequence

  • 差分方程与滤波的实现

    1 滤波基础知识 2 差分方程 3 IIR滤波器 1 直接I型IIR滤波器 2 直接II型IIR滤波器

  • 备战2023蓝桥国赛-移动服务

    题目描述 解析 这道题我想复杂了 一开始我是这样想的 设dp i j 表示按顺序满足到第i个请求时 最初在j号点的人到达第i个请求的位置的情况下的最小花费 state i j 表示按顺序满足到第i个请求时 最初在j号点的人到达第i个请求的位

  • Typescript 之接口 interface（详解）

    一 interface的基本含义 TS新增了一个重要概念 接口 分为对象类型接口和函数类型接口 接口可以约束对象 函数 类的结构和类型 是一种代码协作必须遵守的契约 Interface 是一种描述对象或函数的东西 你可以把它理解为形状 一个

  • 使用github免费搭建个人博客后的写作及上传说明

    项目地址 我的博客github项目地址 个人博客网站 欢迎进入我的博客 本篇文章介绍如何在博客搭建好的基础上 使用它 使用它来写博客 更新博客页面 第一种方法 本地编辑 上传到github 首先 从我的github个人博客项目仓库克隆出该工

  • vscode中CommandNotFoundError: Your shell has not been properly configured to use ‘conda active的可能解决方法

    一 问题背景 如题 出现该问题后 我首先通过搜索尝试了conda init 用管理员身份运行powershell进行权限配置等方法无果 python之 vscode中激活conda虚拟环境报错或者打开虚拟环境失败 if using cond

  • 滑动时间窗口的思想和实现，环形数组，golang

    固定时间窗口 在开发限流组件的时候 我们需要统计一个时间区间内的请求数 比如以分钟为单位 所谓固定时间窗口 就是根据时间函数得到当前请求落在哪个分钟之内 我们在统计的时候只关注当前分钟之内的数量 即 0s 60s 因为流量并不是均匀的 所以

  • 微软RIA服务2009年7月预览版官方手册第2节（翻译：戴石麟）

    2 理解N层Silverlight应用项目 微软 NET RIA服务通过结合ASP NET和Silverlight平台来简化传统N层应用模式 应用逻辑写在中间层上 通过查询 更新 定制方法和服务操作来控制对数据的访问 NET RIA服务特性

  • Verilog入门学习笔记：Verilog基础语法梳理

    无论是学IC设计还是FPGA开发 Verilog都是最基本 最重要的必备技能 但任何一门编程语言的掌握都需要长期学习 并不是简简单单的随便读几本书 随便动动脑筋那么简单 Verilog是一门基于硬件的独特语言 由于它最终所实现的数字电路 具

  • netstat详解

    netstat是控制台命令 是一个监控TCP IP网络的非常有用的工具 它可以显示路由表 实际的网络连接以及每一个网络接口设备的状态信息 netstat可以用于显示与IP TCP UDP和ICMP协议相关的统计数据 一般用于检验本机各端口的

  • vb wor转存html,利用VB操作WORD的基本方法

    利用VB操作WORD的基本方法 通过查阅资料 自我实践 经实验通过 先引用word Application Dim MyWord As Word Application Dim MyWordBook As Word Document Set

热门标签